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EINLEITUNG 



Alles fur C 16 und Plus/4 



Vor kurzem kam ein Redakteur auf- 
geregt in mein Zimmer hereinge- 
sturmt »Hast Du das schori ge- 
sehen?« Er h'teit mir die Anzeige einer 
Kaufhauskette vor die Nase. ich rieb mir 
die Augen, ais ich genauer hinschaute: 
Plus/4 mit Floppy 1551 fur sagenhafte 
499 Mark! »Das ist ja ein Ding« entfuhr* 
es mir. Ein Anruf bei Commodore 
brachte Klarheit Kein Druckfehler, 
keine Zeitungsente, es stimmte. Eine groBe Anzahl Plus/4 
werden zu diesem »kann-man-gar-nicht~glauben«-Preis 
angeboten und sicherlich im Handumdrehen verkauft sein. 
Sehr schnell wurden mir die Konsequenzen, die sich daraus 
ergeben wurden, klar. Zusammen mit den C16/C116-Be- 
sitzern werden daraus leicht mehr als 300000 Computer- 
freaks, die zum grdBten Teil keine oder nur wenig Erfahrung 
mit diesen oder ahnlichen Geraten haben. Weiterhin bedeu- 
tete das, daB wir in der 64'er-Redaktion unseren Geratepark 
erweitem muBten. Die wichtigste Erkenntnis aber war die, 
daB Sie, die Besitzer dieser beiden Computer, etwas von uns 
erwarten werden, namlich Infprmationen. Genauer gesagt, 
Informationen zum Lemen und Listings zum Abtippen. Genau 
das finden Sie in diesem Sonderheft. 

Die Beschaftigung mit Heimcomputern ist in der Regel eine 
reine Freizeitbeschaftigung. Sie macht SpaB, weil man gefor- 
dert wird, jeder nach seinem Wissen und seinen Fahigkeiten, 
vom Anfanger bis zum Profi. Die Handbucher zum Computer 
sind mehr oder weniger gute Hiifen zum Einstieg. Schon bald 
mochte man jedoch mehr wissen. Viele Informationen fehlen 
namlich oder sind zu knapp beschrieben. Aus diesem Grund 
haben wir in diesem Sonderheft einen riesigen Basic-Kurs 
zum Mitmachen. Die wichtigsten Befehle des C16 und 
Plus/4 werden ausfuhhich und mit vielen Beispielen erkiart. 
Mit diesem Wissen werden Sie problemlos Basic-Programme 
schreiben lernen. 

Bekanntlich besitzt der C16/Plus/4 einen eingebauten 
Maschinensprachemonitor, der vielen Einsteigem wahr- 
scheinlich groBere Kopfschmerzen bereiten wird. Wir erkia- 
ren Ihnen klipp und klar, welche fantastischen Moglichkeiten 




Siemitdfesem Programm haben. Natiir- 
lich auch hier mit vielen Beispielen und 
genauen Erklarungen. Wer danach 
noch weiter in die Maschinensprache 
einsteigen mochte, findet einen Artikel 
mit sehr wichtigen Informationen zur 
Ein- und Ausgabe von Zeichen, Wortern 
und Zahlen. Selbstverstandiich kann 
man nie ailes erklaren, Fragen bieiben 
immer. In diesem Zusammenhang 
mochte ich Sie noch auf drei Sonderhefte hinweisen, die die- 
ses Sonderheft ausgezeichnet erganzen: 

- das C 1 6/Plus/4-Sonderheft 3/86: viele Kurse speziell fur 
Einsteiger, hauptsachiich Grafik, Musik, Dateiverwaitung 
und Maschinensprache Dazu eine genaue Erklarung der 
»lnnereien« des C16, dessen Aufbau und Programmie- 
rung. Wie in jedem Sonderheft naturl ich miteinem groBen 
Listingteil zum Abtippen. 

- Grundwissen-Sonderheft 5/86: zwar nicht speziefl fur den 
C 1 6/Plus/4, aber mit vielen Beitragen, die fur alle Commo- 
dore-Computer gelten, zum Beispiel »Dateiverwaltung fur 
Einsteiger«, ein Kurs Ober die Arbeit mit der Floppy und mit 
Druckern, eine Hilfe bei der Frage »Monitor oder Fernse- 
her?«, etc. 

- »Maschinensprache fur Anfanger und Fortgeschrittene«, 
Sonderheft 8/85, ein Standardwerk, das sehr viel Lob 
geerntet hat und zu dem wir immer noch viele begeisterte 
•Zuschriften erhaiten. Siefinden in diesem Heft einen kom- 
pletten Maschinensprache-Lernkurs, alle Programme, die 
man braucht, urn in Assembler zu pfogrammieren, jede 
Menge Tips&Tricks und immer wieder benotigte wichtige 
Tabellen zum Nachschlagen. 

Mit diesen Sonderheften erhaiten Sie eine Bibliothek 
von ausgezeichneten Beitragen, auf die Sie immer wieder 
zuruckgreifen werden, auch dann, wenn Sie bereits aus- 
giebige Erfahrungen gesammeit haben. ich hoffe, Ihnen 
gefalit dieses Heft Fails das nicht der Fall sein sollte, ist 
uns Ihre Kritik ebenso wertvoil. Denn wir mochten, daB Sie 
rundum zufrieden sind. 

(Georg Klinge) 
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Das Angebot dieser Ausgabe: 

Wer keine Zeit oder Lust hat, alle Programme selbst in miihevoller 
Kleinarbeit abzuschreiben, kann wieder auf den bewahrten 
Programm-Service zuruckgreifen. Alie Programme, die mit dem 
Diskettensymbol Q im inhaltsverzeichnis gekennzeichnet sind, 
gibfs auf Diskette bzw. Kassette. * 

1 Diskette fur VC20 und C116 pmiji nn e\n* 

Bestell-Nr. L6 86 S8 CD (sFr. 24,90/oS 299,-*) UlVl 29,90 

4 KassettenfurC16/C116 -.__ ,,. rtA# 

Bestell-Nr. L6 86 S8 KC {sFr. 29,50/6S 349-*) DM »J4,90 

1 Kassette fur VC 20 _.__ . rt rtrt-f 

Bestell-Nr. L6 86 S8 KV (sFr. 17,-/6S 199,-*) UM 19,90 

* inkl, MwSt. Unverbindliche Preisempfehlung 



Programme aus fruheren Ausgaben: 



64'er-Ausgabe 7/86 
Bestell-Nr. L6 86 07D Diskette 
DM 29,90* (sFr. 24,90/oS 299,-*) 

Die Wachstumspyramide S. 22 

Unvergleichbare Rythmusmasch. (AdM) S. 52 
VariosystemdrucktfijrSie(LdM) S. 56 

Druckertreiber und Zeichensatzeditor zu 
Master-Text fur Epson und MPS802 S. 67 
Vectors: ein fesseindes Spiel fur C128 S. 73 
Reset-Schutz ftir Basic-Programme S. 78 
Basic-Erweiterungen durchschaut S. 80 

Hilfe fiir Schachspieier S. 81 

Newsroom druckt Deutsch S. 89 

Neues von Hypra-Basic S. 96 

64'er-Ausgabe 6/66 
Bestelt-Nr. L6 86 06D Diskette 
DM 29,90* (sFr. 24,90/oS 299,-*) 
Prodisk (AdM) - Eine professionelle 
Diskettenverwaltung S. 50 

Master-Text (LdM) - Die beste Text- 
verarbeitung zum Abtippen S. 55 

Etiketten (Basic und compiiierte 
Version) - Professionelle Etiketten 
fiir Epson-Drucker und Kompatibie 
Erweiterung zu Pseudo-Scroll (3/86) 
ZahTen emgeben mit dem Joystick 
Grafik-Erweiterung for Lores-Bildschirm 
Garcage-Collection-Anzeige (mit Beispiel) S 
43007 start 38911 Basic-Bytes 
fur C64 durch genialen Trick 
Eine sinnvolle Anwendung der 
FN-Anweisung 
Super-Autostart 
Ursdim. Var. Dump 

i : Ausgabe der nicht-DIMensionierten, 
«urfurC128, Variablen) S. 83 

r. Key-Display (vier zusatzliche Bild- 
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schirmzeilen, nur fiir C128, zeigen die 
Funkiionstastenbelegung) 

Find (Basic- Erweiterung for das 

Basic 7.0 desC 128) 

Flashmove (C64-Programm schneller 

laden) C 128 mit Floppy 1571 

Sprites invertieren (C128) 

Basic-Tool (vier zusatzliche 

Basic-Befehle fur C 46) 

Wahl-Gursor 

Hypra-Ass mit Datasette (Erweiterung) 

Von Basic zu Assembler (11 Listings) 

Shopmaster (konvertiert Printshop : ' 

Grafik zu Printmaster-Grafik) 

Read Vizawrite und Vi-Co-CC 

Shades und Synth Dive (zwei Super- 

Musikstticke) 

64'er-Ausgabe 5/86 
Bestell-Nr. L6 86 05D Diskette 
DM 29,90' (sFr. 24,90/6S 299,-*) 
64er DOS V3 

Grafik und Computeranimation 
Fantastische Grafik 
Disk- Wizard (LdM) 
Super Hardcopies fiir Epson- 
Drucker und Kompatibie 
Greatprint - GroBe Zeichen auf 
dem Bildschirm (mit Demo) 
Super Hardcopy (Epson, 1520, CP 80X) 
Der »Epson-Plotter« 
Charakter-Editor 
Steel-Slab (Spielelisting) 
Tips&Tricks zum C 128 

Merge 

Spriteslow 

Old 

Eingabe 



S. 83 

S. 84 

S- 85 
S. 85 

S. 86 
S. 90 
S. 95 
S. 134 

S. 101 

S. 183 
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S. 99 
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S. 100 


Array-Sort 


S. 100 


Basic-Programme im Interrupt 


S. 103 


Neue Module fur Hypra-Basic 


S. 103 


Pascal-Kurs Zeichen 


S. 142 


Joseph 


S. 142 


Matrimult - ein Programm zur 




Multiplikation beiiebiger Matrizen 


S. 145 


AdreBprogramm mit Superbase 64 


S. 168 


Zviza - Zeichensatz ftir Vizawrite 


S. 171 



64'er-Ausgabe 4/86 

Bestell-Nr. L6 86 04D Diskette 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 3/86 

Bestell-Nr. L6 86 03D Diskette 

DM 29,90* (sFr. 24,90/oS 299,- 

64'er-Ausgabe 2/86 

Bestell-Nr. L6 86 02D Diskette 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 1/86 

Besteli-Nr. L6 86 01D Diskette 

DM 29,90* (sFr. 24,90/flS 299,-* 

64'er-Ausgabe 12/85 

Bestell-Nr. L6 85 12D Diskette 

DM 29,90* (sFr. 24,90/oS 299,-* 

Bestel!-Nr. L6 85 12K Kassette 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'ar-Ausgabe 11/85 

Besteli-Nr. L6 85 11A 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 10/85 

Bestell-Nr. L6 85 10A 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 9/85 

Bestell-Nr. L6 85 09A 

DM 29,90* (SFr. 24,90/OS 299,- 

64'er-Ausgabe 8/85 

Bestell-Nr. L6 85 08A 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 7/85 

Bestell-Nr. L6 85 07A 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 6/85 

Bestell-Nr. L6 85 06A 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe S/85 

Bestell-Nr. L6 85 05A 

DM 29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 4/85 

Bestell-Nr. L6 85 04A 

DM 29.90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 3/85 

Bestell-Nr. L6 85 03A 

DM 29,90* (sFr. 24,90/6S 299,-* 

64'er-Ausgabe 2(85 

Bestell-Nr. L6 85 02A 

DM'29,90* (sFr. 24,90/oS 299,-* 

64'er-Ausgabe 1/85 

Besteli-Nr. L6 85 01A 

DM 29,90* (sFr. 24,90/6S 299,-* 

64 ? er-Sonderhefte 

Sonderheft 7/86 - PEEKs & POKEs 
Bestell-Nr. L6 86 S7D 1 Diskette 
DM 29,90* (sFr. 24,90/oS 299,-*) 



Sonderheft 6186 - Grafik 

2 Disketlen mit alien Programmen 
Bestell-Nr. L6 86 S6D1 
DM34,90* (SFr. 29.50/6S349,-*) 
1 Diskette mit Giga-CAD- Demos 
Bestell-Nr. L6 86 S6D2 

DM 19,90* (sFr. 17.-/6S 199,-*) 

3 Disketten mit alien Programmen und Demos 
Bestell-Nr. L6 86 S6D3 

DM 49,80* (sFr. 43.50/6S 498,-*) 

Sonderheft 5/86 - Grundwissen 

Bestell-Nr. L6 86 S5D 1 Diskette 

DM 29,90' (sFr. 24,90/oS 299,-*) 

Sonderheft 4/86 - Abenteuer 

Bestell-Nr. L6 86 S4D 2 Disketlen 

DM 34,90' (SFr. 29,50/oS 349,-*) 

Sonderheft 3/86 - C16, C116, VC20, Plus/4 

1 Diskette fur VC20 und C 16/116: 

Bestell-Nr. L6 86 S3 CD 

DM 29,90* (SFr. 24,90/oS 299,-*) 

1 Kassette fur VC 20: 

Bestell-Nr. L6 86 S3 KV 

DM 19,90* (sFr. 17.-/6S 199,-*) 

1 Kassette fiir C 16: 

Besteli-Nr. L6 86 S3 KC 

DM 19,90* (sFr. 17,-/bS 199,-*) 

Sonderheft 2/86 -Tips&Tricks 

Bestell-Nr. L6 86 S2D Diskette 

DM 29,90* (SFr. 24.90/6S 299,-*) 

Sonderheft 1/86 - C128er 

Bestell-Nr. L6 86 S1D Diskette 

DM 29,90* (SFr. 24,90/oS 299,-*) 

Sonderheft 8/85 - Assembler 

Bestell-Nr. L6 85 S8D Diskette 

DM 29,90* (sFr. 24.90/6S 299,-*) 

Bestell-Nr. L6 85 S8K Kassette 

DM 19,90* (sFr. 17.-/6S 199,-*) 

Sonderheft 7/85 - Professionelle Anwendungen 

Bestell-Nr. L6 85 S7D 2 Disketten 

DM 34,90* (sFr. 29,50/oS 349,-*) 

Besteli-Nr. 16 85 S7K 4 Kassetten 

DM 34,90* (sFr. 29,50/oS 349,-*) 

Sonderheft 6/85 - Top-Themen 

Bestell-Nr. L6 85 S6 2 Disketten 

DM 34,90* (sFr. 29,50/oS 349,-*) 

Sonderheft 5/85 - Floppy, Datasette 

Bestell-Nr. L6 85 S5D Diskette 

DM 29,90* (SFr. 24,90/oS 299,-') 

Bestell-Nr. L6 85 S5K Kassette 

DM 19,90* (sFr. 17.-/6S 199,-*) 

Sonderheft 4/85 - Grafik 

Bestell-Nr. L6 85 S4A 

DM 29,90* (sFr. 24,90/oS 299,-*) 

Sonderheft 3/85 - Spiele 

Bestell-Nr. L6 85 S3 A 2 Disketten 

DM 34,90* (SFr. 29,50/6S 349,-*) 

Sonderheft 2/85 - Abenteuersptele 

Bestell-Nr. L6 85 S2 

DM 34,90* (SFr. 29,50/6S 349,-* } 

Sonderheft 1/85 - Tips&Tricks 

(2-iiberarb. Auflage) 

Bestell-Nr. CB 023 Floppy-Utilities 

DM 29,90* (sFr. 24,90/oS 299,-*) 

Bestell-Nr. CB 024 Hiifsprogramme 

DM 29,90* (sFr. 24,90/oS 299,-*) 

* inkl.MwSt. Unverbindliche Preisempfehlung. 



Bitte verwenden Sie fiir Ihre Bestellung und Uberweisung die eingeheftete Postgiro-Zahlkarte, 

oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 

Sie erieichtern uns die Auftragsabwicklung, und dafur berechnen wir Ihnen keine Versandkosten. 
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NEUE PRODUKTE 



IMehr Dampf fiir 

C16undMus/4mit 

der Floppy 1551 

Es gibt sie zwar schon langer 
- so richtig auf den Markt kommt 
sie aber erst jetzt. Wir haben die 
Floppy 1551 von Commodore 
fur Sie einmal unter die Lupe 
genommen. 

Eine zlemlich lange Zeit 
haben sich die Geruchte urn die 
neue Floppystation von Com- 
modore gehalten. Sie soil eine 
an den C16 und den Pius/4 
angepaBte 1541 sein, die dabei 
atierdings bis zu vierma! schnel- 
ler ist. 

Wir konnen Sie beruhigen. 
Die Geruchte stimmen nur in 
einem Punkt und das ist die 
Geschwindigkeit Die neue 
1551 ist in der Tat viermal so 
schnell wie die 1541. 

Urn einen Umbau der 1541 
handeit es sich dabei aber mit 
Sicherheit nicht. Das wird 
auBerlich schon durch einige 
besondere Merkmaie deutiich. 
So ist die 1551 zum Beispiel 
schwarz und enthalt ein Lauf- 
werk mit KnebelverschluB. 
Anstatt der Buchsen fur den 
seriellen Bus existiert nur ein 
Kabef, an dessen anderem 
Ende ein Kastchen mit 
AnschluB fur den Erweiterungs- 
port des C16 und Plus/4 ange- 
bracht ist. 

Schraubt man das Gehause 
der 1551 auf, so fallt sofort die 
kompfett neue Platine ins Auge. 
Diese Platine ist gegen fiber der 
in der 1541 urn fast die Halfte 
kleiner. Sieht man genauer hin, 
so fallen auch gleich einige 
Details auf. 

Da ist zuerst der Prozessor. 
Hier handeit es sich um einen 
6510, der auch schon im C64 
Verwendung findet. Der einzige 
Ein-/Ausgabebaustein, der auf 
der Platine vorhanden ist, ist ein 
TIA 6525. TIA steht dabei fur 
»Triport Interface Adaptor*. Ein 
Baustein mit 3 x 8 Datenleiiun- 
gen ersetzt also die betden VIA 
6522 in der 1541. 



Wir haben es offensichtlich 
mit einer komplett neuen Elek- 
tronik zu tun, die naturiich auch 
ein entsprechend neues 
Betriebssystem (DOS) benOtigt. 
Wie aus dem Handbuch zur 
1551 ersichtlich, handeit es 
sich dabei aber zumindest um 
ein System, das befehlskompa- 
tibel zur »alten« 1541 ist. 

Eine Sache fallt erst bei nahe- 
rem Hinsehen auf. Richtet der 
Betrachter sein Aug en me rk auf 
die Kabelverbindung zwischen 
Diskettenlaufwerk und Compu- 
ter, so ist zu erkennen, daB es 
sich dabei um ein Parallelkabel 
handeit. Genau 16 Leitungen 
verbinden die 1551 mit dem 
C 1 6 oder dem Plus/4, wodurch 
das Fehlen der Buchsen fur den 
seriellen Bus erkiart ist. 

Hinfallig werden damit jedoch 
auch eventuelle Hoffnungen auf 
den AnschluB der 1551 an den 
C64. Die Steckerausfuhrung 
und auch -belegung am Expan- 
sionport des C16 ist volikom- 
men inkompatibel zum C64, so 
daBdje 1551 als schnelle Alter- 
native'zur 1541 ausscheidet. 

Ein voilkommen neues Gerat 
also, das zumindest fur Besitzer 
eines C64 uninteressant zu 
sein scheint. Fur den Anwender 
eines C16 oder eines Plus/4 
stellt diese Diskettenstation 
aber sicherlich eine Alternative 
dar. Sie ist zwar nicht annahernd 
so schnell, wie es ihre Hardware 
erlaubt, die 1541 wird aber auf 
jeden Fall uberholt. 

Eine andere Entscheidungs- 
hilfe bekommt der Anwender 
aber auch von seiten der Kauf- 
hof AG. Diese bietet den Com- 
modore Plus/4 zusammen mit 
einer Diskettenstation 1551 fiir 
den sagenhaften Preis von 499 
Mark an. Das durfte die Gele- 
genheit ftir aile Einsteiger sein, 
denen ein Computersystem bis- 
her zu teuer war. Immerhin 
kostetallein die 1551 im Handel 
normaterweise um 400 Mark, 
den Computer gibt es also fast 
gratis dazu (Bild)! 

Fur alle, die den Plus/4 viel- 
leicht nicht kennen: Er ist weit 



Ober 90 Prozent kompatibel 
zum C16 (Basic-Programme 
und professionelle Software 
laufen auch auf dem Pfus/4). Er 
besitzt 64 KByte RAM (der C 16 
nur 16 KByte), drei eingebaute 
Programme {Textverarbeitung, 
Tabellenkalkulation und Datei- 
verwaltung}, einen Userport 
und eine angenehmere Tastatur 
als der C 16. (ks) 

Paintbox, 

ein Malprogramm 

fur den C 16 

Zu den wenigen Anbietern 
von C16-Programmen gehort 
die deutsche Firma Kingsoft. 
Mit dem Programm Paintbox 
wird ein Programm geliefert, das 
trotz »spe!chersparender« Pro- 
grammierung kaum Wunsche 
offenlaBt. 

Obwohl bei diesem Programm 
die Optionen nicht wie etwa 
beim Koalapainter oder Hi- 
Eddi+ uberein Grafikmenuaus- 
gewahlt werden konnen, laBt 
sich mit Paintbox sehr bequem 
und komfortabef malen. Zum 
Zeichnen laBt sich ebenso die 
Tastatur wie auch ein Joystick 
nutzen. 

im Menu stehen folgende Zei- 
chenoptionen zur Verfugung: 

Mit LINE lassen sich zwei 
Punkte in beliebiger Lage ver- 
binden. 

Linienketten konnen mit dem 
LINES-Befehl erzeugt werden. 

Verwendet man den RAYS- 
Befehl, kann man eine Anzahl 
von Linien zeichnen, die alle von 
demselben Punkt ausgehen. 
Dadurch entstehen strahlenfor- 
mige Gebilde. Zur Konstruktion 
rechteckiger Umrandungen laBt 
sich die FRAME-Anweisung 
verwenden. Ausgefullte Recht- 
ecke, werden mit dem BOX- 
Befehl gezeichnet. Um das 
eigene Kunstwerk abzurunden, 
lassen sich mit dem Befehl 
CIRCLE und DISC Kreise sowie 
Scheibendarstelfen. Umschios- 
sene Flachen lassen sich mit 
dem PAINT- Befehl ausfiillen. 





Bild. Der Plus/4 und die Floppy 1551 stellen ein sehr 
leistungsfahiges und vor allem preiswertes Computersystem dar 



Mit den Befehlen COLOR und 
LUM lassen sich alle 121 Farb- 
tone erzeugen. Die Cursor- 
Option ermoglicht es dem 
Kunstler, einen Pinsel aus acht 
verschiedenen Formen auszu- 
wahlen. Will man sehr genau 
zeichnen, so kann die Ge- 
schwindigkeit des Grafik-Cur- 
sors beliebig veriangsamt wer- 
den. 1st das Kunstwerk dann fer- 
tig, kann es nach Belieben auf 
Kassette oder Diskette gespei- 
chert werden. 

Paintbox lauft auf den Compu- 
tern C16, 116 und Plus/4. Die 
25 Mark fur das Programm sind 
fiir Gr^fik-Fans mit Sicherheit 
eine lofinende Investition. 

(Christian Q. Spitzner/hm) 

Info: Kingsoft, Schnackebusch 4, 5106 Roet- 
gen, 02406/5119 

Synthesizer und 

Sequenzer: 

Music Master 

Dieses Programm von King- 
soft gehort derzeit mit Sicher- 
heit zu den besten Anwendun- 
genfurdenC16. Das Programm 
entlockt dem »mageren« Tonge- 
nerator des C 16/1 16 und Plus/4 
die erstaunlichsten Sounds. 
Einem Vergleich mit dem C64 
und C128 kann er aber trotz- 
dem nicht standhalten. 

Music Master ist in zwei Teile 
gegliedert, die untereinander 
verknupft werden konnen. 

Teil 1 ist ein Synthesizer, der 
sich uber die Tastatur spieien 
laBt. Die dazugehorige Grafik ist 
recht nett ausgefallen. Es wird 
ein Teil einer Klaviertastatur 
nachgebildet, auf der die gera- 
de gedruckte Taste angezeigt 
wird. Die restlichen Tasten die- 
nen zur Steuerung des Sounds. 

Der Synthesizer verfCigt Ober 
zwei Stimmen. Verknupft man 
beide, so laBt sich auch im 
Zweiton-Akkord spieten. Wenn 
zusatzlich die Stimmen unter- 
einander ieicht verstimmt wer- 
den, so entsteht eine Reso- 
nanzfrequenz und der Ton wirkt 
voller. 

Durch Veranderung der Hull- 
kurve fassen sich viele unter- 
schiediiche Effekte erzielen. 
Viele Instrumente konnen durch 
Variation der Hullkurve nachge- 
ahmt werden. 

Der zweite Teil von Music 
Master ist ein Sequenzer, der 
kaum noch Wunsche offenlaBt. 
Beide Stimmen konnen unab- 
hangig voneinander gesteuert 
werden. Will man ein Lied einge- 
ben, so stehen dem Spieler 
zwei Mogiichkeiten zur VerfCi- 
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gung. Zum einen kann das 
Musikstuck in Echtzeit gespielt 
werden. Zum anderen lassen 
sich die Noten einzeln einge- 
ben. Die Noten konnen sehr 
leichteditiert werden. Es iassen 
sich ganze Tetle innerhalb einer 
Stimme, aber auch in die andere 
Stimme kopieren. Es kbnnen 
Tone eingefugt und Teile des 
Musikstuckes versetzt werden. 
Da beide Stimmen unterschied- 
lich programmiert werden kon- 
nen, lassen sich toile Musik- 
stucke spielen. Dabei konnte 
zum Beispiei Stimme 1 die Me- 
lodie ubernehmen, wahrend 
Stimme 2 Schlagzeug oder BaB 
spielt. 

Fur Leute, die iieber am Syn- 
thesizer in »Echtzeit« spielen, 
wurden fur Stimme 2 zusatzlich 
10 Begleitrhythmen integriert. 
Ein zusatzliches Begteitmuster 
kann selbst programmiert wer- 
den. 

Was der Music Master kann, 
iaBtsich am besten am mitgelie- 
ferten Demo-Lied sehen (horen). 
Dieses Musikstuck zeigt, was 
wirklich im Tongenerator des 
C16 steckt Obrigens kann ein 
ersteiltes Musikstuck auch ins 
eigene Programm ubemommen 
werden. 

Das Programm ist auf Kas- 
sette fur 29 Mark erhaitlich. 
(Christian Q. Spitzner/hm) 

Info: Kingsoft, Schnackebusch 4, 5106 Roet- 
gen, 02408/5119 

C 16/1 16- 

Programmsammlung : 

11 lop-Programme 

fur den C16 

Von Markt&Technik wird eine 
Programmsammlung, beste- 
hend aus 11 Programmen fur • 
den C 16/1 16 und Plus/4, ange- 
boten. Sie ist auch in Kaufh&u- 
sern erhaitlich. 

Die Disketten enthalten viele 
Spiele, eine kleine Textverarbei- 
tung und sogar eine Baslc- 
Erweiterung. 

Zum Lieferumfang der Kas- 
setten (Preis 29,90 Mark) 
gehort auch ein Handbuch mit 
ausfuhrlicher Beschreibung der 
Programme. 

Fblgende 11 Programme be- 
finden sich auf den Kassetten: 
Robot 3.5 

Der Spieier muB in einem 
Labyrinth nach einem Schlussel 
suchen und unterwegs Schatze 
aufsammeln. Dabei machen ihm 
aber Roboter das Leben 
schwer. 

Eine Beruhrung der Roboter 
sowie der elektrischen Wande 



ist fur den Spieler auBerst un- 

gesund. 

Wurmi 

Der Spieler steuert einen 
ununterbrochen laufenden Wurm 
auf dem Bildschirm und sam- 
melt dabei Apfel ein. Der Wurm 
muB aufpassen, daB er nicht 
gegen eine Wand fahrt, bezie- 
hungsweise sich selbst »in den 
Schwanz beiBt«. Hier spielt 
auch die Zeit eine Rolle. Werden 
die Apfel nicht schnell genug 
verspeist, muB der Wurm leider 
an »Unterernahrung« sterben. 
Datagenerator C16 

Das Programm »Datagenera- 
tor C16« wandelt einen frei zu 
wahlenden Speicherbereich in 
DATA-Zeiien urn. Der Datagene- 
rator wird anschlieBend ge- 
Ibscht. Eine passende Einlese- 
schleife wird leider nicht gene- 
rfert. 
Basic-Tool 

Diese Basic-Erweiterung er- 
ganzt das Basic 3.5 des C16 
um 13 zusatzliche Basic-Befeh- 
le. Die neuen Befehfe werden im 
Programm in Tokens umgewan- 
delt * und bendtigen deshalb 
nicht mehr Speicher als ein 
normafer Basic-Befehl. Die Er- 
weiterung umfaBt folgende Be- 
fehle: 

Mit WINDOW kann durch 
Angabe der Koordinaten ein, 
Fenster definiert werden. 
RENEW macht ein versehent- 
liches Loschen eines Basic-Pro- 
gramms ruckgangig. Die Be- 
fehle DMERGE und MERGE 
verknupfen zwei Programme. 
Das 2. Programm wird von Dis- 
kette oder Kassette eingelesen 
und muB groBere Zeilennum- 
mern haben ais das erste Pro- 
gramm. 

Mit der SET-Anweisung kann 
der Cursor an einer beliebigen 
Stelle position iert werden. Soil 
der Zeichensatz verandert wer- 
den, so kann dieser mit 
ZTRANS in den RAM-Bereich 
kopiert werden. ZON setzt die 
Zeiger fur den Zeichensatz auf 
eine beliebige Adresse. Die 
MULTI-Anweisung schaltet den 
Multi-Color-Modus ein. Mit dem 
Befeh! ZNORM wird der Mehr- 
farbenmodus ausgeschaltet, 
und der Zeichensatz wieder aus 
dem ROM gefesen. Mit PUT 
kann an einer beliebigen Stelle 
am Bildschirm ein Zeichen aus- 
gegeben werden. FAST schaltet 
den Bildschirm ab, wodurch der 
C16 um den Faktor 1,5 schnel- 
ler wird. Der Normaizustand 
kann mit dem SLOW-Befehl wie- 
derhergestellt werden. Der 13. 
und letzte Befehl (OFF) schaltet 
die Erweiterung aus. 



Kniffel 

Bekanntes Wurfetspiei fur bis 
zu vier Spieler. Ein Spiel gegen 
den Computer ist nicht moglich. 
Poker 

Das Spiel Poker simuliert eine 
Pokerrunde mit funf Personen. 
Der Computer steiit vier Perso- 
nen, wahrend der Spieler als 
funfte Person gegen den Com- 
puter antreten kann. Jeder 
Spieler kann setzen, erhohen 
Oder Karten tauschen. 
Diabolo 

Ein hervorragendes Geschick- 
lichkeitsspiei mit toiler Grafik. 
Der Spieler hat die Aufgabe, auf 
einem fernen Planeten Roboter- 
Maschinen zu zerstoren und 
gefangene Menschen zu befrei- 
en. Es ist darauf zu achten, daB 
weder Sie, noch die befreiten 
Menschen, noch ihre eigene' 
Basis von Robotern uberrollt 
werden. In jedem Faile muB der 
Spieler sein Leben lassen. Das 
Spiel kann in sechs verschie- 
denen Spielstufen gespielt 
werden. 

Bridge 

Bridge ist ein Geschicklich- 
keitsspiel, bei dem es darum 
geht, Bruckenteile vor einem 
sich nahernden Auto abzuwer- 
fen. MiBgluckt die Aktion drei- 
mal, muB Jonny Car j&mmerlich 
im reiBenden FluB ertrinken. 

No Exit 

In No Exit muB der Spieler ver- 
suchen, in einem Labyrinth den 
Ausgang zu finden. Bevor man 
jedoch aufgibt, kann man den 
Irrgarten auch aus der Vogelper- 
spektive betrachten, was natQr- 
lich Zeit und Punkte kostet. 

Text 1.0 

Text 1.0 ist ein kleines Textver- 
arbeitungsprogramm, mit dem 
sich kurze Notizen verarbeiten 
lassen. Das Programm ist menu- 
gesteuert und hat folgende 
Optionen zur Auswahl: 

Laden: Texte werden von 
Datasette gelesen. 

Speichern: Der sich im Text- 
speicher befindliche Text wird 
auf Band gesichert. 

Drucken: Text wird aufs Papier 
gebracht. 

Formatfestlegung: Dient zur 
Einstellung der Rander und 
Tabulatoren. 

Anfugen: Weitere Eingaben 
werden an den Text angefugt. 

Neueingabe: Der Textspei- 
cher wird geloscht. Die Eingabe 
beginnt beiZeile 1. 

Suchen: Hilft bei der Suche 
nach bestimmten Wortern im 
Text. 

Es konnen im Text zusatzlich 
Steuerbefehie eingesetzt wer- 



den, die bei der Formatierung 
des Textes helfen. Einem Ver- 
gleich mit dem Text-Manager 
kann das Programm jedoch 
nicht standhalten. 
Cannon 

Ein SchieBspiel, bei dem es 
darum geht, den Feind auf der 
anderen Seite eines Hugels mit 
einer Kanone zu treffen. Dabei 
spielen Windgeschwindigkeit, 
Hindernishohe, AbschuBwinkel 
und Geschwindigkeit eine 
groBe Rolle. Der Feind laBt sich 
jedoch ailes gefallen. Er schieBt 
nicht zuruck und wartet darauf, 
von Ihnen getroffen zu werden. 

Unter diesen elf Programmen 
befindet sich bestimmt fur jeden 
das passende Programm. Fur 
29.90 Mark sind 2 Kassetten 
mit ausfuhrlicher Dokumenta- 
tion ein angemessen fairer 
Preis. 

(Christian Q. Spitzner/hm) 

Info: Markt&Technik-Verlag, Hans-Pinsel-Str. 2, 
8013 Haar, 089/4613-0 

Speidiererweiterung 
wird billiger 

Im letzten C16-Sonderheft 
haben wir die Speichererwei- 
terung von Kingsoft vorgestellt 
und getestet. Mittlerweile ist der 
Preis fur die 64-KByte-Erweite- 
rung erheblich gesunken. Zur 
Zeit ist sie fur 139 Markzu erhai- 
ten. (kn) 

Info: Kingsoft, Schnackebusch 4, 5106 Roet- 
gen, 02408/5119 

Speidiererweiflenmg 
einbauen lassen 

In diesem Sonderheft 
beschreiben wir in dem Artikel 
»Aus klein macht groB«, wie Sie 
eine Speichererweiterung auf 
64 KByte selbst bauen konnen. 
Sollten Sie nicht zu den versier- 
ten Hardware-Bastlern geho- 
ren, so konnen Sie den Umbau 
gegen 100 Mark Vorkasse bei 
Elektronik-Technik und bei Man- 
fred Velt in Auftrag geben. 
Schicken Sie dazu den Compu- 
ter in einer stoBsicheren Ver- 
packung an eine der beiden 
nachstehenden Adressen. (kn) 

Elektronik-Technik U. Peters, Tannenweg 9, 
2351 Trappenkamp, 04323/3991 
Manfred Veit, Albrecht-DOrer-Str. 26, 
8540 Schwabach 

64 KByte im 
Selbsfbau 

Die Firma SAS bietet eine 
Speicherplatine f ur den C 1 6 an. 
Ats Bausatz kostet sie 97 Mark, 
als Fertiggerat 144 Mark, (kn) 

SAS Hermann-Josef Bemd, Langgasse 93, 
5216 Niederkassel 5, 0228/452626 
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Deutsche 
Sonderzeidien 

Gibt es eine Moglichkeit zur 
Darstellung deutscher Son- 
derzeichen (a,d,u,A,0\U,B) auf 
dem C16? Holger Sternberg 

Ja, es gibt die Moglichkeit 
deutsche Sonderzeichen zu er- 
zeugen. Dazu muB jedoch der 
Zeichensatz des C16 in den 
RAM-Speicher kopiert werden. 
Dort konnen dann alle Zeichen 
beliebig verandert werden. Dies 
gent dann natOrlich auf Kosten 
einiger Sonderzeichen. Es kon- 
nen also keine neuen Zeichen 
hinzugefugt werden, sondern 
hdchstens bestehende Zei- 
chen verandert werden. - . ' 



C64/VC 20- 

Programme auf 

dem C 16 

Sind Programme, die auf 
dem C 64 oder VC 20 geschrie- 
ben wurden, auch auf dem 
C16 zu verwenden? 

Markus Muller 

C64/VC 20-Programme lau- 
fen problemlos auf dem C16, 
wenn fofgende Bedingungen 
erfulit sind; 

- Es muB ein Basic- Prog ramm 
sein (nicht Simons- Basic oder 
ahnliches). 

- Das Programm darf keine 
Maschinensprache-Anteile mit 
DATA-Zeilen enthalten. 

- Das Programm darf keine 
PEEK-, POKE-, SYS- und WAIT- 
Befehle enthaften, 

- Die Speicherkapazitat des 
C16 muB fur das Programm 
ausreichen. 

Handeit es sich bei den 
POKEs allerdings nur urn einfa- 
che Dinge, wie beispielsweise 
Bfldschirmfarben einstellen, so 
kdnnen Sie diese getrost weg- 
lassen und anschiieBend Ihr 
Gluck versuchen. 



Spekher- 
erweiterung 
fiir den C 16 

Ich besitze seit Weihnach- 
ten einen C16. Seit einiger 
Zeit allerdings habe ich 
Schwierigkeiten damit, well 
der Speicher des C 16 nicht so 
viel Kapazitat aufweist. Meine 
Frage ist nun an Sie, wie man 
diese Speicherkapazitat er- 
weitern kann. 

Claudia Bacherler 



Fragen 

und Anfworten 

zumC16 



Es gibt Speichererweiterun- 
gen fur den C16. Von Kingsoft 
wird eine 16-KByte- sowie eine 
64-KByte-Speichererweiterung 
angeboten. Ein Testbericht er- 
schien im Sonderheft 3/86 
unter der Uberschrift »60671 
BYTES FREE beim C16«. Wei- 
tere Informationen finden Sie 
unter der Rubrik »Neue Pro- 
dukte* in diesem Heft. 



C64-Kassetten 
fur den C16 

Wegen des besseren Basic 
(Basic 3.5) habe ich mir vor 
kurzem elnen C16 mlt Data- 
sette 1531 zugelegt. Ich habe 
jetzt das Problem, daB ich 
meine Programme, die ich mlt 
dem C 64 auf Kassette gespei- 
chert habe, nicht mehr laden 
kann. Bei einem Lade-Versuch 
tut mein C16 so, als ware die 
Kassette leer. Welchen POKE 
muB Ich verwenden, daB ich 
die C64-Kassetten in meinen 
C16 laden kann? 

Robert Wilsperger 

Es gibt leider keinen »POKE«, 
mit dem man so einfach C64- 
Kassetten iaden kann. Das Pro- 
blem besteht darin, daB alle 
Commodore-Model le eine an- 
dere Aufzeichnungsgeschwin- 
digkeit haben. Deshalb ist es 
ebenso unmoglich, VC 20-Kas- 
setten mit dem C64 oder C16 
zu lesen. Die einzige Moglich- 
keit, Ihre Programme in den C 16 
zu bekommen, ware der tlmweg 
uber ein Floppy-Laufwerk. Sie 
muBten alle Ihre Programme auf 
Diskette speichern und konnten 
diese mit dem C16 wieder 
laden. An beiden Computem 
kann das gleiche Laufwerk 
(1541) angeschlossen werden. 



LISTschutz 
fur den €16 

Gibt es fiir den C16 einen 
LISTschutz und einen Kopier- 
schutz? Giinther Ecken 



Ja. Es gibt mehrere Moglich- 
keiten des LISTschutz: Mit 
POKE 775,128 werden bei 
einem LIST-Versuch nur die Zei- 
lennummem ausgegeben. Das 
Programm seibst bleibt unsicht- 
bar. Eine andere Moglichkeit 
besteht durch POKE 775,252. 
Versucht man hier, das Pro- 
gramm zu listen, wird ein Reset--' 
ausgefiihrt. 

Einen Kopierschutz gibt es in 
der Regel nur auf Disketten oder 
Kassetten. Ein eigenes Pro- 
gramm zuschiitzen istnormaier- 
weise nicht so einfach. Es gibt 
jedoch eine einfache Moglich- 
keit, ein Programm vom Spei- 
chern auf Kassette zu schiitzen. 
Geben Sie foigende drei Be- 
fehle ein: 
POKE 1525,0 
POKE 1526,0 
POKE 1527,0 

Der C16 simuliert den Save- 
und Verify-Vorgang und alles 
sieht aus, als ware es in Ord- 
nung. 

< STOP/RESTORE > 
beim C 16? 

Ich besitze seit einiger Zeit 
den C16. Vorher hatte ich 
einen VC 20. Wenn sich mein 
VC 20 in einem Maschinenpro- 
gramm verfangen hat oder in 
einer falschen WAIT-Anwei- 
sung hangengeblieben ist, 
konnte ich ihn mit <STOP/ 
RESTORE > immer »zuruck- 
holen«. Auf melnem C16 finde 
Ich leider keine < RESTORE >- 
Taste mehr. Gibt es einen 
Ersatz? Fritz Mayr 

In der Tat gibt es einen Ersatz. 
Ist Ihr C 1 6 abgesturzt, so laBt er 
sich meist mit einem Trick wie- 
der zum Leben erwecken. Drtik- 
ken Sie die < RUN/STOP >- 
Taste und gleichzeitig den Re- 
set-Taster. Lassen Sie die 
' < RUN/STOP >-Taste erst dann 
los, wenn das Anfangsbild des 
Monitors auf dem Bifdschirm 
erscheint. Befinden Sie sich im 
Monitor, so konnen Sie diesen in 
der Regel mit X (< RETURN >} 
verlassen. Das Basic- Programm 
befindet sich immer noch im 



Speicher. Vorauszusetzen ist 
natOrlich, daB keine wichtigen 
Systemadressen zerstdrt wur- 
den. 



Plus/4-Programme 
auf C 16? 

Sind Programme fiir den 
Plus/4 auch auf dem C16 mit 
64-KByte-Erweiterung lauffa- 
hig? Tobias Rademacher 

Diese Frage laBt sich norma- 
lerweise mit »ja« beantworten. 
Kleine Einschrankungen sind 
allerdings notwendig. Die im 
Plus/4 vorhandene RS232- 
Schnittstelle und die integrierte 
Software darf von dem Pro- 
gramm nicht genutzt werden. 

Weitere Informationen dazu 
erhalten Sie in dem Artikel »Drei 
'ungleiche' Bruder« in diesem 
Heft. 



C64-R0MimC16 

1st es mdglich, durch Aus- 
tauschen der ROM-Bausteine 
im C16/C116 mit EPROMs 
(Betriebssystem des C 64) den 
C16 fiir C64-Programme lauf- 
fahig zu machen? 

Thomas Tiemann 

Auf diese Weise konnen Sie 
C64-Programme auf dem C16 
nicht zum Laufen bringen. Ganz 
im Gegenteii, der C16 wiirde 
nach dieser Anderung gar nicht 
mehr funktionieren. Ein Grund_ 
dafur ist der TED des C 16, der 
im C64 nicht vorhanden ist. Die 
CIAs, derSound- und der Video- 
chip des C64 sind im C16 im 
TED zusammengefaBt. 



Programme fiir C 16 

Es gibt kaum Spielelistings 
und Anwendungsprogramme 
fur den C 16/1 16 (Textverarbei- 
tung oder Matheprogramme). 
Kennen Sie Hersteller? 

Dirk Koch 

Zunachst mochten wir Sie 
noch auf unser C16-Sonderheft 
(3/86 und 8/86) aufmerksam 
machen. 

Ferner wird ab Juli '86 ein 
Cl6-Programmpaketvon Markt 
STechnik mit zwei Kassetten in 
den Kaufhausern erhaltlich 
sein. Viele Spiele und Anwen- 
dungen sind darauf enthalten. 
AuBerdem: immer mehr Soft- 
ware-Hersteiier bieten jetzt Pro- 
gramme fur den C 1 6 an. Sehen 
Sie sich einmal die Anzeigen im 
64'er-Magazin an. 
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MACROTRON 
Peripherie-Fachhandler: 

MOO Berlin. Thor Texl. Tel 30/24 BO 90 • Microcomputer 
Laden, Tel. 30/8 82 65 91 • Systemhaus Saar KG, Tel. 
C 30 8 91 80 82 • Joig Korb Eleklronik. Tel. 30/ 
2 62 74 75 • Ehrig GmbH. Tel 30/3 41 70 21 • Alpha 
Computers GmbH, Tel. 30 / 8 91 10 82 • Comco. Tel. 
JK 3 23 86 91 • DWF Lulher. Tel 30/8 15 94 46 • 
2000 Hamburg. Computer Conlor. Tel 40/23 46 27 • 
iCrelng & Partner. Tel. 40/2 51 20 39 • 2080 Pinneberg. 
GDS. Tel 41 01 /2 37 99 • 2300 Kiel: Computer Partner, 
~» 04 31/9 50 25 • Paosl & Schmitl OHG. Tel. 04 31/ 
6811 11 • 2350 Neumunster Bernhardt Microcomputer- 
sysseme. Tel 43 21/35 89 • 2400 Liibeck: Nlelandl 
Compulerservice. Tel. 04 51 /62 38 51 • 2800 Bremen: 
Comdat GmbH. Tel. 04 21 /32 04 09 • 2820 Bremen: AD 
Computertechnik, Tel 04 21/6 36 12 68 • 2870 Delmen- 
-erst Werner Buro- und Datentechnik. Tel. 42 21/ 
■ -^ "0 • 2940 Sande Muller Buroorganisation. Tel. 
G «4 22/42 42 • 3005 Hemmingen: DP Eleklronik. 
Tel 05 11/4 2000 92»3055Hagenburg. W. Busse Com- 
puter und Eleklronik. Tel 50 33/76 77 • 3057 Neustadt. 
Vofcer Hellborg Labor I. Funk- und MeBlechnik. Tel. 
: 50 32/6 27 96 • 3300 Braunschweig: Apel Burocenter 
SmbH. Tel. 05 31/7 30 71 • 3400 Gollingen. WK 
Ele»tronik, Tel. 05 51/9 60 61 • 3400 Gollingen. RIS 
Software. Tel.05 51 /9 62 82 • 3500 Kassel Gelad GmbH, 
TeL 05 61/77 10 71 • 3501 Fuldabruck: Ruhlig Buro- 
syseme. Tel. 05 61/58 20 57 • 4000 Dusseldort Max 
Lps. Tel 0211/49 90 52 • 4050 Monchengladbach. 
Pfl GmbH. Tel. 21 61 /6 00 60 • 4100 Duisburg. Helmut 
Sennen GmbH. Tel. 02 03/2 49 26 • Kaeppko & Kramer. 
Tel 02 03/77 34 25 • 4300 Essen Helmut RennenGmbH, 
Tel 02 01/23 71 39 • B.T.O Buro-Technik. Tel. 02 01 / 
T7 60 01 • 4400 Munster: Software City. Tel. 02 51 / 
J C£ 66 • 4500 Osnabruck: HDS Compuier GmbH. Tel 
a 41 /6 80 18 • PCO, Tel. 05 41/66 50 • 4690 Heme 
G.-c-o Computersysteme • 4800 Bieleleld. Infotext, Tel. 
0521/3 40 22 • 4900 Herlord Rezo GmbH, • 
4995 Slemwede: HGS Compuier GmbH. Tel. 57 45/ 
25 55» 5000 Koln: KlicmanEleklronik.Tel. 02 21/24 12 23 

• Grosse. Tel. 02 21/5 9919 45 • Buroeieklronik, Tel. 
02 21 '54 43 06»5090Levcrkusen. Holt Rocke Compuier. 
Tel 021 71/26 24*5100 Aachen ICT. Tel. 02 41/1 20 59 

• 5204 Lohmar. Datasoft GmbH, Tel. 22 46/81 77 • 
5300 Bonn HS Oateniechmk GmbH. Tel. 02 28/25 20 91 

• TBS-lnformalions-Systemc. Tel. 02 28/23 20 45 • 
5352 Zulpich-Olpenich: Compuier Zens. Tel 22 52/ 
31 84 • 5400 Koblenz: Wir Burosyst GmbH. Tel. 02 61 / 
80 20 1 4 • 5620 Velbert: hsn NuBbaumer, Tel 20 52/ 
8 10 63 • 5630 Remscheid: Comsolt. Tel 21 91 12 1 33 

• 5650 Solingen: Conex. Tel. 0212/7 54 49 • 578B 
Wmterberg: Karl GroB. Tel 29 81/77 76 • 5800 Hagen 
Broker Computortechn . Tel. 2331/66316 • 5810 
Wfflen Computer Jagusch. Tel 23 02/5 20 46-47 • 
6000 Frankfurt: Utimaco Software GmbH. Tel. 69/ 
57 20 45 • 6100 Darmsiadl: Max Lips GmbH. Tel. 61 51/ 
2 63 43 • 6200 Wiesbaden Everyware Computer GmbH. 
Tel 061 21/44 90 67»6230Franklurt80:MCT,Tel 69/ 
37 32 77 • 6231 Sulzbach. STS-Speclrum, Tel. 
61 96/2 90 71 • 6250 Llmburg: wir Burosyslemo GmbH. 
Tel 64 31 /2 60 88 • 6300 GieBen Ordat GmbH & Co . 
Tel 06 41/79 41-56 • 6600 Saarbrucken: Schommer 
GmbH. Tel. 06 81/58 18 32 • 6710 Frankenthal Movecro 
GmbH. Tel. 62 33/1 33 39 • 6720 Spoyer: Dorr Com- 
puter. Tel. 62 32/7 76 21 • 6730 Neustadl ICR GmbH. 
Tel 63 27/3 90 • 6758 lauterecken Schwenk. Tel. 
63 82/62 66 • 6800 Mannheim Webidata GmbH, Tel. 
06 21/37 10 34 • IK-Systome. Tel 06 21/79 70 0B • 
6835 Bruhl: Dobbertin. Tel. 62 02/714 17 • 6922 
Meckeshetm E. GeiBler Micro. Tel. 62 26/32 68 • 6940 
Weinheim.HMRGmbH.Tel.062 01/1 20 37*6973 Box- 
berg CD-Comp.-Dienst. Tel. 79 30/20 71 • 7000 
Stuttgart Bierbrauer & Nagel • BWI-Sltatos GmbH, Tel 
0711/22 42 38 • Drost & Siegle. Tel. 07 11/81 44 88 • 
Computerland, "Tel. 07 11/29 44 18 • TUD GmbH. 
Tel 07 11/7 15 68 69 • Konrad Weslermeier. Tel. 07 1 1/ 
61 20 84 • Kunkel Induslnebedart. Tel 0711/88 4711 • 
Rausch & Partner, Tel. 07 1 1 /88 1 9 92 • 7024 FiWerstadt 
Daiapec. Tel. 07 1 1/77 50 45 • 7030 Bdblingen. P * B 
Abate. Tel 70 31/6 20 50 • 7050 Waiblingen: P. Nikola 
GmbH. Tei. 71 51/5 50 69 ♦ 7146 Tamm/Hobenstange: 
Computerbuio Fischer. Tel. 71 41 /60 30 91 • 7300 Ess- 
tngen Grasser Computersyst , Tel 07 1 1/3 16 17 86 • 
7400 Tubingen Compuier Point. Tel. 70 71/2 43 39 • 
7417 Ptuftngen Dr P Gehrmann. Tel. 71 21/7 40 76 • 
7440 Nurtngen Burolex GmbH, Tel. 70 22/3 52 31 • 
7500 Karlsruhe gdsGmbH.Tel. 07 21/49 35 20* Krempel 
& Klmgel. Tel 0721/21678 • 7613 Hausach: Slreil 
Daientechn*. Tel 78 31/80 20 • 7707 Eugen: Hatimut 
Schaber. Tel 77 33/84 01 • 7730 VS-Weilersbach 
Maet Datensysleme Tel 77 21.7 03 22 • 7730 VS- 
Senwennmgen BUS GmbH. Tel 77 20/3 80 71 • 7750 
Konstanz Rosier Cornputertechnik, Tel. 75 31/2 18 32* 
7798 PfullenOorl ICR PV GmbH. Tel 75 52/16 81 • 
7800 Freiburg Parsch Electronic. Tel. 07 61/44 20 94 • 
Fntz Computer. Tel 07 61 '70 04 04 • Computer Partner. 
Tel- 07 61/7 80 44 • 7900 Ulm-BOIingen Inlerplan TBS 
Software. Tel 07 31 /2 69 49 • C.T.O. GmbH. Tel. 07 31 / 
2 61 07 • 8000 Munchen Bowe Syslemvertneb, Tel. 89/ 
50 33 93 • Abacus Comoutercenler, Tel. 89/28 60 81 • 
Servon-c Tei. 89/48 32 53 • Burop. Tel. 89/1 7B 30 34 

• SMZ Computei GmbH. Tel 89/9310 65 • 8031 
Gilching- CPV Tel 81 05/2 37 03 • 8057 Eching: Bahe 
BurosystemeGmOHTei 089/3 i9 40 75«8110Hotheim 
Buroorg. SchnaDe-:. Tel 88 47/66 1 1 • 8120 Weilheim: 
Compuiersiuow Huoer. Tel 0881/12 23 • 8202 Bad 
AitAng: Hietxe - Kjnze. Tei 80 61/60 17 • 8228 Frei- 
lassing CF-Compowr FunMion. Tel. 86 54/6 41 56 • 
8300 Landshul ComputerstudK) Landshut. Tel. 08 71/ 
2 82 75 • 8391 Maurft G4.S-EDV. Tel. 85 57/410 • 
8510 Ursensoll: CPV GmbH. Tel. 81 05/14 95 • 8560 
Bayreuth: UnkJata. Tel 09 21/5 66 88 • 8630 Coburg: 
Beyer Computer. Tel 95 61 .'97 56 • 6700 Wurzburg: 
August FassnactH, Tel. 09 31/2 00 15-0 • 8780 Gemun- 
den. EDV Beralung Reuter. Tel. 93 51/26 27 • 8880 
Diliingen: Reilzner Burozenlrum, Tel 090 71/20 60 • 
8900 Augsburg: CSS Computer, Tel. 08 21/51 51 20 • 

. Ing. Buro Bartholomaus. Tel. 08 21/31 19 11 • Bowe 
Syslemvertneb, Tel. 08 21/5 70 25 72 • 8912 Kaulering: 
ISK GmbH. Tel. 81 91/7 03 02 • 8920 Memmingen: 
Compulerladen. Tel. 83 31/59 42 
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Basic-Kurs 
for C 16- 
Einsteiger 




Der C16 hat gegeniiber 
seinem »groften« Bru- 
der, dem C64, zwar 
deutlich weniger Spei- 
cherplatz, aber dafiir 
ein sehr umfassendes 
Basic, das der C 64 
nicht zu bieten hat. 
Hier zeigen wir Ihnen 
die Funktionen von 
haufig gebrauchten 
Basic-Befehlen. 
Bauen Sie sich mit 
Hilfe dieses Kurses 
nach und nach Ihr 
eigenes Programm auf. 



Das folgende kleine Inhaltsverzeichnis sdfljhnen einen Oberblick uber 
diesen Basic-Kurs geben. 

1 . Der Lerncomputer 

2. Die kleinen Unterschiede des C16 

3. Variable machen Programme variabel 

4. Variable in Feldern (Arrays) 

5. Grafische Verschonerungsmittel 

6. Zweidimensionale Felder 

7. Hat man da Tone? 

8. Eine zweidimensionale Melodie 

9. Das Gedachtnis des Computers 

10. Die Adressen der Speicherzellen 

1 1 . Im Speicher stobern 

1 2. Erste Hilfe - Basic-Programm retten nach NEW oder Reset 

1 3. Wir POKEn noch ein Weilchen 



len ausgerustet! Nur der groBe C 1 28 hat noch mehr Befehle, 
namlich 164. 

Besonders dieser Bet ehlsvorrat, sicher aber auch der nied- 
rige Preis, hat dem C 1 6 in der letzten Zeit zu einem rasanten 
Aufstieg verholfen. Auch der kleine Speicher ist inzwischen 
erweiterbar - auf 60600 verfugbare Byte! Damit ubertrumpft 
der C16 in drei wesentlichen Punkten den C64: Basic- 
Befehle, Speicher, Preis. 



1 • Der lerncomputer 






14. Der C 16 hat 121 Farben 

1 5. Der Bildschirmspeicher 

16. Bildschirmeffekte 

1 7. Der Farbspeicher 

1 8. Schleifen mit »DO-LOOP« 

19. Die Uhr des Computers 

20. Stoppuhr und Wecker 

21 . Zeitabhangige Programmunterbrechung 

22. Die Technik der Unterprogramme 

23. Bedienungsfreundliche Menu-Technik 

24. MERGE 

25. Die Low-/High-Byte-Darstellung 

26. Der Unterschied zwischen Programm und Datei (File) 

27. Dateien speichern und laden 

28. Die Funktionstasten des C 16 

29. Zweiteilige Schleifen 

30. Zusammenfassung 

Anhang: Befehlsubersicht C16, C64/VC 20, C128 

Eine ganze Zeit lang gait der C 1 6 als das schwarze Schaf in 
der Familie der Heimcomputer von Commodore. Der Spei- 
cher istf klein, die akustischen Eigenschaften sind begrenzt, 
er hat keine Sprites - das sind prazise selbstdefinierbare 
Figuren. Auch an den Schnittstellen, das sind die Verbindun- 
gen des Computers mit der AuBenwelt, wurde gespart. 

Nicht gespart worden dagegen istbei der eingebauten Pro- 
grammiersprache Basic 

Der alte VC 20 und der Dauerbrenner C 64 weisen 69 ver- 
schiedene Befehle auf; der C 16 dagegen ist mit 120 Befeh- 



Ist der C 1 6 wirklich ein echter Lerncomputer? 

Ein Computer, der geeignet sein soil, Anfangern das Ver- 
standnis und den Gebrauch zu erleichtern, muB drei Voraus- 
setzungen erfullen: 

a) er muB einfach zu bedienen sein 

b) er muB eine simple Programmiersprache besitzen, die aber 
aus vielen Befehlen bestehen soil, so daB spater auch kompli- 
zierte Programme geschrieben werden konnen 

c) es muB genugend und leicht verstandliche Literatur geben, 
die bei Anfangern die Begeisterung zur Computerei weckt. 

Die ersten beiden Bedingungen sind beim C 1 6 ganz sicher 
gegeben. 

DaB aber die dritte Bedingung zutrifft, kann man mit gutem 
Gewissen heute noch nicht behaupten. Einen Teil dieser 
Lticke zu fullen ist das Ziel dieses Kurses. 

Ich werde allerdings nicht von ganz vorn anfangen. Im Son- 
derheft 5/86, das im Mai erschienen ist, steht von Seite 40 
bis Seite 68 ein »Basic-Kurs von Anfang an«. Er ist zwar 
ursprunglich fur den C64 geschrieben worden, aber am 
Ende hat sich herausgestellt, daB er fur den C16 genauso 
anwendbar ist. 

Dieser Anfangskurs schafft namlich mit der Besprechung 
von 23 grundlegenden Basic-Befehlen eine Basis, die auch 
f ur den C 1 6 gilt. Ich brauche diese Befehle deshalb hier nicht 
zu wiederholen. Wenn Sie gerade erst Ihren C 1 6 bekommen 
und noch nie programmiert haben, dann ist der Anfangskurs 
im Sonderheft 5/86 genau der richtige Einstieg fur Sie. 
Selbst wenn Sie schon eine Ahnung vom Programmieren 
haben, ist die Lekture des Anfangskurses sicher keine Zeit- 
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verschwendung, da er viele Tips und Kochrezepte zu den fol- 

genden Befehien enthalt: 

PRINT IF-THEN CHR$ FOR-TO 

LET END ASC STEP 

LIST REM LEFT$ NEXT 

RUN RND(X} MiD$ READ 

NEW iNT{A) RIGHT$ DATA 

INPUT GET LEN RESTORE 

GOTO 

Dieser Kurs schlieBt sich also nahtlos art den Anfangskurs 
an und geht in gemischter Folge sowohi auf weitere Basic- 
Befehle ein, die in alien Commodore-Computern enthalten 
sind, als auch auf die speziellen C16-Befehle. Ich moehte 
allerdings darauf hinweisen, daB diese speziellen Befehle 
des C16 auch im C128 enthalten sind. Zur besseren Ober- 
sicht, wie sich die Befehle auf die Commodore-Computer 
verteilen, habe ich sie im Anhang dieses Kurses in einer 
Tabeile zusammengestellt 

Ich mache ubrigens keinen Unterschied zwischen Befeh- 
ien, Anweisungen, Funktionen und dergleichen. Die Unter- 
schiede sind oft nur akademisch und haben auf die Anwen- 
dung keinen EinfluB. Fur Sie ist es sicher einfacher, wenn ich 
alle »Befehle« nenne. 

Bevor wir anfangen, wili ich schnell noch die Methode 
erwahnen, mit der Sie den Kurs am besten verfoigen und den 
Stoff nachvoliziehen konnen. 

ich habe diese Vorgehensweise »Simulattonsmethode« 
genannt, was nichts anderes bedeutet, als den Basic-Kurs 
vor dem Computer sitzend zu leseij und aile Listings sofort 
einzutippen und auszuprobieren. 

Anmerkung: 

Weitere [nformationen uber den C16 finden Sie im 64'er-Sonderheft 
3/1986, das speziell dem C16 und dem VC 20 gewidmet ist. 

Auch in jeder Ausgabe des 64'er-Stammheftes gibt es immer spezieile 
Tips und Tricks fur den C 16. 



2. Die kleinen Unterschiede des C16 



Ich habe einige Absatze weiter oben behauptet, der Inhalt 
des Anfangskurses gelte fur alle Commodore-Computer. Das 
war etwas voreilig, denn ein paar kleine Unterschiede gibt es 
doch, allerdings nicht die Basic-Befehle betreffend. 

Die kleinen Unterschiede betreffen die Tastatur des C 16, 
speziell die Steuertasten und die Funktionstasten: 

- die Taste <ESC> (links oben) ist neu hinzugekommen. 
Ihre Funktion ist im Handbuch beschrieben. 

- die Funktionstasten (rechts), die beim VC 20 und C 64 nur 
uber ihre ASCII-Codes verwendet werden konnen, sind 
beim C16 mit Funktionen belegt. Wie die im Anfangskurs 
auf Seite 61 bis 63 beschriebene Verwendung der Funk- 
tionstasten auch beim C16 funktioniert, werde ich noch 
naher erkiaren. 

- es gibt keine < RESTORE > -Taste. Ihre Funktion wird 
durch den viel radikaleren Reset-Taster ersetzt. 

- alle anderen Steuertasten arbeiten so, wie im Anfangskurs 
beschrieben; einige von ihnen befinden sich auf der Tasta- 
tur des C 16 an einer anderen Stelle, was uns aber nicht 
storen soil. 



3. Variable machen Programme variabel 



Variabien habe ich bereits im Anfangskurs behandelt, aller- 
dings nur in einer ersten »Ausbaustufe«. Bevor ich ihre 
Bedeutung erweiternd erklare, will ich - ihrer Wichtigkeit 
wegen - das.im Anfangskurs Gesagte kurz wiederhoien. 



Mit dem Begriff »Variable« werden Namen bezeichnet, 
unter denen sich der Computer Zahlenwerte Oder Buchsta- 
benfolgen merken kann. »Merken« bedeutet bei einem Com- 
puter, daB die Zahlen oder Buchstaben im Speicher festge- 
halten sind und, so oft man will, aus dem Speicher herausge- 
holt werden konnen, vorausgesetzt, man kenntihren Namen. 

Nichts ist besser als Ausprobieren. Geben Sie direkt ein: 
A=25 : B=50 : C$= "TEXT " ( < RETURN > -Taste drueken) 

Damit haben wir einer Variabien mit Namen A den Wert 25 
zugewiesen, einer anderen mit Namen B den Wert 50 und 
einer dritten, namlich C$ das Wort »TEXT«. Mit: 
PRINT A: PRINT B (< RETURN >) 

konnen wir die A und B zugewiesenen Werte jederzeit aus 
dem Speicher auf den Bildschirm bringen. 

Oben haben wir noch eine 3. Variable eingegeben, namlich 
C$. Das Dollarzeichen $ kennzeichnet sie als eine »String- 
Variable«, das heiBt, ihr Wert ist keine Zahl, sondern eine 
Buchstabenfolge, auch Zeichenkette Oder String genannt 
Ein String muB immer zwischen Anfunrungszeichen stehen. . 
Auch kann er mittels: 
PRINT C$ (< RETURN >) 

aus dem Speicher geholt werden. Sowett die kurze Wieder- 
holung aus dem Anfangskurs, auBerdem moehte ich als Basis 
fur die dann folgende Erwetterung des Variabien-Konzeptes 
die entsprechende Zusammenfassung wiederhoien. 

Zusammenfassung 

1. Wir haben von zwei Variabien-Typen gesprochen: 

- den »numerischen« Variabien weisen wir ausschiieBlich Zahlenwerte zu 

- den »String-Variablen«, gekennzeichnet durch das $-Zeichen am Ende 
des Variablennamens, weisen wir ausschiieBlich Zeichen, Buchstaben 
oder ganze Folgen von ihnen zu. Diese Foigen heiBen »Zeichenketten« 
oder ^Strings*. 

Zahlen sind auch hier zugelassen, nur werden sie wie Zeichen (und nicht 
wie Zahlenwerte) behandelt. 

2. Die Zuordnung von Zahlen oder Strings zum faischen Variabientyp fuhrt 
immer zu einer Fehlermeldung und oft auch zum Abbruch des Programms. 

3. Der Name einer Variabien darf theoretisch aus soviel Zeichen bestehen, 
wie in eine Programmzeile hineinpassen. Das ist aber wenig sinnvoll, da der 
Computer nur die ersten beiden Zeichen als Name der Variabien registriert 
(PROFIT und PRODUKT ist fiir ihn somit ein und diesseibe Variable). 

4. Im Namen einer Variabien darf kein Basic-Befehl enthalten sein: Namen 
wie OTTO oder SPRINT werden vom Computer mit einer Fehlermeldung 
zurDckgewiesen. 

Der Punkt 4 oben ist neu fiir uns; ich habe im Anfangskurs 
nichts davon erwahnt. 

Aber diese Regel ist wichtig. Probieren Sie es ruhig aus: 
SPRINT=25 ( < RETURN > ) 

0TT0=2 (< RETURN >) 

fiihren unweigeriich zur Fehlermeldung SYNTAX ERROR. 
Warum? Nun, im ersten Wort ist der Befehl PRINT enthalten, 
das S davor wird als faische Schreibweise dieses Befehls 
angesehen und in OTTO ist der Befehl TO enthalten. 

Das ist ubrigens ein haufiger Fehler, denn wer hat schon 
alle Basic-Befehle im Kopf. Es ist daher ratsam, auf »schone« 
Variablennamen zu verzichten und Variable lieber A3 oder ZZ 
zu nennen. 

Gerade die Kombination eines Buchstabens mit einer Zahl 
ist sehr vielseitig. Voraussetzung ist, wie Sie sicher wissen, 
daB der Name mit einem Buchstaben anfangt. 



4. Variabien in Feldern (Arrays) 



Nun lade ich Sie zu einem Experiment ein. 

Wir stellen uns vor, wir benotigten in einem Programm eine 
Tabeile mit Zahlen, zum Beispiel die Anzahl der Bewohner, die 
in 10 einstockigen Hausern einer langen StraBe wohnen. Die 
Adresse der Hauser unterscheidet sich nur durch die Haus- 
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nummer, denn der StraBenname bleibt ja gleich . Statt des Ian- 
gen StraBennamens nehmen wir nur einen Buchstaben, zum 
Beispiel T. Zur Kennzeichnung der 10 verschiedenen Adres- 
sen hangen wir die Ziffern bis 9 hinten an. Die Zaht 10 kon- 
nen wir nicht nehmen, weil nach nach Punkt 3 der obigen 
Zusammenfassung die zweistelligen Variablennamen T1 und 
T10 identisch sind. 

In unserem Beispiel wollen wir den einzelnen Hausern 
Bewohnerzahien zuweisen, die jeweils um 2 groBer sind als 
die Hausnummer. 
10 T0=2 
20 Tl=3 
30 T2=4 
40 T3=5 



100 T9=ll 

110 PRINT T0;T1;T2;T3;T4;T5;T6;T7;T8;T9 

Das ist naturlich eine sehr umstandliche Arbeit, und lang- 
weilig ist diese dauernde Wiederholung obendrein. Also, wie 
gent das einfacher und eleganter? Naturlich mit einer FOR- 
TO-NEXT-Schleife. Aber aufgepaBt: bei ihrer Verwendung 
mussen wir die Hausnummer N in Klammern dem StraBenna- 
men T anhangen. Anders akzeptiert das der C16 in Basic 
nicht. Als Programm sieht das so aus: 
10 FOR N=0 TO 9 
20 T(N)=N+2 
30 PRINT T(N) 
40 NEXT N 

Ihnen ist naturlich klar, daB StraBenname T plus Hausnum- 
mer (N) eine Variable ist, der wirWerte (Bewohner) zuweisen. 

Aber eins sollte Sie stutzig machen. Wie unterscheiden 
sich diese speziellen Variablen voneinander? Sind nicht T{3) 
und T{8) identisch, wenn nach der oben schon zitierten 
Regel nur die ersten beiden Zeichen des Namens - hier T( - 
hergenommen werden? 

Nun, die Klammer macht den Unterschied. Durch sie wird 
ein neuer Typ einer Variablen, eine sogenannte Feld-Variable 
definiert, und Feld-Variabien unterscheiden sich durch die 
Zahl innerhalb der Klammer., Diese Zahl heiBt index (Mehr- 
zahl: Indizes). Warum sie ausgerechnet Feld-Variable heiBt, 
erklare ich gleich. 

Vorher, bei der Schreibweise T0J1 etc. waren wir auf 10 
Variablen beschrankt, weil T1 und T10 dieseibe Variable war. 

Jetzt - mit Indizes als Unterscheidungsmerkmal - gilt diese 
Beschrankung nicht. Deshalb wollen wir die Anzahl der Indi- 
zes im Programmchen noch erhohen. Bei einem N yon bis 
lOgehtesohneProbleme. Aber ab 11 ist schon wieder Feier- 
abend. Wir erhalten die Fehlermeldung »BAD SUBSCRIPT 
ERROR IN 20«. Um Ihnen das zu erklaren, muB ich genauer 
beschreiben, was passiert, wenn wir eine Variable mit einem 
Index in Klammern verwenden. 

Wenn wir eine Variable so schreiben: 
T(1)=25 

dann nimmt der Computer an, daB wir in einer Tabelte noch 
mehrere derartige Variable T( ) verwenden wollen - klar, sonst 
wurden wir uns ja die Mtihe mit der Klammer nicht machen. 

Um uns die Sache zu erleichtern, reserviert der Computer 
unter dem Variablennamen T in seinem Speicher von vornhe- 
rein 11 Platze, furT(O) bisT(10). Diesen reservierten Bereich 
konnen Sie salopp Tabelle nennen; offiziell heiBt er Feld oder 
auf englisch Array. Die alte Regel fur den Namen der Varia- 
blen gilt jetzt auch nicht mehr, denn zum Unterscheiden der 
einzelnen Feld-Variabien desselben Anfangsbuchstabens 
bedient der Computer sich der in Klammer stehenden Index- 
Zahl. 

Die Beschrankung auf eine Feid-(Array-)Gro8e von 1 1 Plat- 
zen ware naturlich sehr lastig, wenn sie nicht umgangen wer- 



den konnte. Wenn wir namlich mehr Platz brauchen, konnen 
wir dem Computer mit dem Basic-Befehl 
DIM 

unsere Reservierungswunsche mitteilen. DIM ist eine Abkur- 
zung, die aus dem Wort »Dimension« abgeieitet ist. Als Bei- 
spiel moge die folgende Programmzeile dienen: 
5 DIM T(25) 

Sie reserviert im obigen Programm fur die Variable T( ) im 
Speicher ein Feld von 26 Platzen, von T(0) bis T(25). 

Die GroBe eines Feldes ist nur durch den vorhandenen 
Speicherptatz begrenzt. Wenn Sie die Zahl zu groB waTilen, 
verweigert der Computer die Reservierung - naturlich erst 
nach dem Befehl RUN - mit OUT OF MEMORY, was soviei 
heiBt wie KEfNEN PLATZ MEHR IM SPEICHER. 

DIM-Befehl 

- dieser Befehl wird in der folgenden Schreibweise verwendet; 
DIM Variablenname (Index) .] 

- er reserviert einen Speicherbereich f Qr-ein© durch den Index festgelegte 
Anzahl von Variablen desselben Namens, die sich nur durch ihren jeweili- 
gen Index unterscheiden. Dieser Speicherbereich wird Feld oder Array 
genannt. #■' 

- mit DIM konnen sowohl Felder fur numerische, als auch fur String- 
Variable reserviert werden. Ein Feld kann immer nur einen einzigen Varia- 
blentyp enthalten. 

- fur den Namen und fur die Kennzeichnung des Typs der Feld-Variablen 
(vor der Klammer) gelten dieselben Regeln wie fur alle anderen Varia- 
bien. 

Ein Feld kann also auch aus String-Variablen bestehen: 

200 DIM A$(25) 
210 A$(0)="FEUER" 

220 A$(l) = "ZANGEN" 
230 A$(2) = "B0WLE" 



300 FOR N=0 TO 2 
310 PRINT A$(N)j 
320 NEXT N 

Dieses kleine Programm reserviert ein Feld von 25 Strings 
und weist den ersten drei Strings davon je ein Wort zu. Mit 
RUN 200 gestartet, druckt es das Wort FEUERZANGEN- 
BOWLE aus, indem in der Zeile 310 nacheinander fur die 
Wertevon N=0bisN=2 diegespeicherten Strings A${0) bis 
A$(2) durch das Semikolon nach dem PRINT-Befehl aneinan- 
dergeklebt werden. Das Eintragen der einzelnen Werte in die 
Tabelle, das ich in den Zeilen 210 bis 230 vorgenommen und 
danach nur noch angedeutet habe, geht viel eleganter mit 
den Befenien READ - DATA, die im Anfangskurs auf Seite 65 
beschrieben sind. 

Um das zu zeigen, schlage ich Ihnen eine kleine Anwen- 
dung - im Computerdeutsch heiBt so ein Programm »Utility« 
- vor, und zwar eine Nachschlagliste von Geburtstagen Ihrer 
Freunde und Verwandten. Naturlich ist das kein Utility- 
Programm, wegen dem ich mir einen Computer kaufen 
wurde, aber fur unsere Zwecke hier ist es ganz passend. 

Ich lege das Beispiel vorerst einmal auf 5 Namen (N$) und 
dazugehbrige Geburtstagsdaten (D$) aus. Wir brauchen also 
2 Felder mit je 5 Platzen, dazu zwei DATA-Zeilen mit den Ein- 
tragungen. Verwenden Sie bitte meine wirr erscheinenden 
Zeilennummem; am Ende passen sie schon zusammen. 
20 DIM N$(4) 

500 DATA MAX, M0RITZ, MARIA, HANS, LUISE 
120 DIM D$(4) 
600 DATA 12.6.52,3.4.60,21.1.40,19.9.56,11.11.70 

Denken Sie bitte daran: DIM N$(4) legt 5 Platze test, nam- 
lich bis 4. 

Denken Sie ebenfalls daran, daB Eintragungen in DATA- 
Zeilen durch ein Komma voneinander getrenntsein mussen, 



12 



SONDERHEFT 8/86 



C16, C116, Plus/4 



BASIC-KURS 



So, jetzt brauchen wir fur beide Felder eine Schleife, mit der 
die Eintragungen der DATA-Zeilen mit READ in das jeweilige 
Feld geiesen werden. Fur das Namensfeld gilt: 
30 FOR 1=0 TO 4 
40 READ N$(I) 
50 NEXT I 

Dasselbe machen wir fur das zweite Feld der Geburtstage: 
130 FOR 1=0 TO 4 
140 READ D$(I) 
150 NEXT I 

Jetzt brauchen wir noch einen Programmteii, der nach Ein-; 
gabe eines Namens das dazugehorige Geburtstagsdatum 
heraussucht und ausdruckt. Fur die »Dazugehorigkeit« 
benutzen wir die Indizes der Feid-Variablen. Das bedeutet 
nichtsanderes, als daB zum zweiten Namen N$(2) das zweite 
Datum D$(2) gehort. 

Doch zuerst sielien wir per INPUT die Frage F$ nach dem 
Namen, dessen Geburtstag wir wissen wollen: 
200 INPUT "NAME";F$ „_. 

Dann vergleiehen wir in" einer weiteren Schleife die gespei- 
cherten Namen N${i) mitdemgefragten Namen F$. Wenn bei 
einem bestimmten Wert I der Vergleichsschleife die beiden 
Namen gleich sind, wird der Geburtstag mit demselben index 
1 ausgedruckt. Das Programm kann dann eine weitere Ein- 
gabe eines Namens verlangen (GOTO 200). 
210 FOR 1=0 TO 4 

220 IF N$(I)=F$ THEN PRINT D$(I):G0T0 200 
230 NEXT I 

Urn den Vergieichs- und Entscheidungsvorgang genau zu 
verstehen, brauchen Sie lediglich die Schleifen durchzuspie- 
len, indem Sie die Werte von i gedanklich hochzahlen und im 
Programm nachschauen, was passiert. Wir konnen aber zum 
Verstandnis auch eine »Lehrzeile« (mit h!) einfugen, die uns 
den jeweiligen Stand des Vergleiches anzeigt: 
215 PRINT I;F$,N$(I);D$(I) 

Nach RUN und nach Eingabe eines der funf Namen sehen 
wir am Bildschirm eine Reihe mit steigenden Werten von I, 
daneben (Semikolon!) den eingegebenen Namen, dann in 
einem groBeren Abstand (Komma!) die Namen und Daten, 
und zwar solange, bis F$ und N$ gleich sind. 

Nehmen Sie jetzt Zeile 215 wieder heraus, aber fugen Sie 
bitte eine Zeiie 240 dazu, die wir fur ein bedienungsfreundli- 
ches Programm brauchen. Wir mCissen namlich Vorkehrung 
fur den Fall treffen, daB ein Name eingegeben wird, der nicht 
in der Liste stent. Auch Tippfehter fallen in diese Kategorie. 
.Wenn kein positiver Vergleich zwischen F$ und N$ innerhalb 
der Schleife auftritt, macht das Programm nach der Schleife 
weiter, mit der neuen Zeile 240, die fur sich selbst spricht: 
215 
240 PRINT "NAME 1ST NICHT IN DER LISTE" 

Das ganze Programm sieht so aus: 
20 DIM N$(4) 
30 FOR 1=0 TO 4 
40 READ N$(I) 
50 NEXT I 
120 DIM D$(4) 
130 FOR 1=0 TO 4 
140 READ D$(I) 
150 NEXT I . 
200 INPUT "NAME";F$ 
210 FOR 1=0 TO 4 

220 IF N$(I)=F$ THEN PRINT D$(I):G0T0 200 
230 NEXT I 

240 PRINT "NAME 1ST NICHT IN DER LISTE" 
500 DATA MAX, M0RITZ, MARIA, HANS, LUISE 
600 DATA 12.6.52,3.4.60,21.1.40,19.9.56,11.11.70 

Der DiM-Befehl und der READ-Befehl haben beide eine 
zusatziiche Eigenschaft, die uns eine wesentliche Verbesse- 
rung dieses Programms erlaubt: 



Man darf hinter einem einzigen DIM^Befehl mehrere Felder 
dimensionieren. Sie mussen lediglich durch ein Komma 
getrennt sein. Genauso darf man mit einem einzigen READ- 
Befehl mehrere Werte-Gruppen auslesen. Hier gilt dieselbe 
Kommaregel wie bei DIM. 

Damit konnen wir die Zeilen 20 bis 150 stark verkurzen: 
20 DIM N$(4),D$(4) 
30 FOR 1=0 TO 4 
40 READ N$(I),D$(I) 
50 NEXT I 

Die Zeile 20 ist einfach nur eine Zusammenziehung der bei- 
den alten Zeilen 20 und 120. Die Funktion des DIM-Befehls 
bleibt dabei erhalten - er dimensioniert halt gleich beide Fel- 
der. 

Beim »doppelten« READ-Befehl in Zeile 40 hat sich in der 
Arbeitsweise, verglichen mit den alten Zeilen 40 und 140, 
etwas geandert. Schuld daran ist aber die FOR-NEXT- 
Schleife der Zeile 30. J 

Bei jedem Wert von I holt sich der READ-Befehl zwei hinter- 
einanderliegende Werte aus den DATA-Zeilen und weist sie 
den beiden Variablen N$ und D,$ zu. Wir mussen diesem Vor- 
gang dadurcn Rechnung tragen, daB wir den Inhait der DATA- 
Zeilen umorganisieren. Es mussen jetzt immer je ein Name 
und das dazugehorige Geburtsdatum hintereinander kom- 
men - was eigentlich viel leichter einzutippen ist. 

Sie sehen, gute Programmierung ist fast immer auch klarer 
und t'ogischer. 

500 DATA MAX, 31. 3-55, M0RITZ, 12.4. 45, HANS, 6. 2. 60 
600 DATA MARIA,14.7.63,LUISE,8.9.60 

Diese Anordnung bietet noch einen weiteren Vorteil. Das 
Programm, Oder besser gesagt die Geburtstagskartei, kann 
ganz leicht erweitert werden. Einen neuen Namen samt 
Datum brauchen Sie nur durch Komma getrennt hinter die 
letzte Eintragung der DATA-Zeilen zu schreiben. 

Doch halt! Noch etwas fehlt: Die Zahl der Namen, die sich 
durch eine neue t Eintragung naturlich erhoht, kommt ja im 
Programm auch vor, und zwar in unserem Fall als Ziffer 4 in 
den Zeilen 20, 30 und 210. Urn uns diese Zusatzarbeit eben- 
falls zu erleichtern, geben wir dieser Zahl einen Variablenna- 
men Z, definieren dieses Z ganz am Anfang und brauchen so 
bei jeder neuen Namenseintragung nur dieses Z urn 1 erho- 
hen. 

Diese Zeilen sehen jetzt so aus: 
10 Z=4 

20 DIM N$(Z),D$(Z) 
30 FOR 1=0 TO Z 
210 FOR 1=0 TO Z 

Zusammenfassung DIM-Befehl 

1. Hinter einem DiM-Befehl konnen mehrere Felder dimensioniert werden. 
Sie mussen lediglich durch ein Komma getrennt sein. 

2. Mit einem READ-Befehl konnen mehrere DATA-Werte geiesen werden. 
Auch diese mussen durch ein Komma voneinander getrennt werden. 

3. Es empfiehlt sich, einen Zahlenwert oder einen String, der mehrmals in 
einem Programm vorkommt, ganz am Anfang des Programms als 
numerische- beziehungsweise als String-Variable zu definieren und im Pro- 
gramm dann nur einmai dieser Variabien den Wert zuzuweisen. 

Wir haben jetzt ein komplettes kleines Programm, dessen 
zusammengewurfelte Zeilennummem ihm allerdings ein 
unfertiges Aussehen verleihen. 

Hier hilft uns ein Basic- Befehl, der Zeilennummem »umnu- 
merierfc. Er hei&t RENUMBER. 

Wenn wir diesen Befehl ohne Zusatze verwenden: 
RENUMBER (<RETURN> nicht vergessen) 
dann erhait das kleine Programm neue Zeilennummem, die 
mit 10 anfangen und in Zehnerschritten weitergehen. Sehr 
wichtig dabei ist, daB RENUMBER die Zeilennummer hinter 
dem GOTO-Befehi automatisch auf den richtigen neuen Wert 
umandert. Mit LIST konnen Sie das Resultat uberprufen. 
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Das ist aber noch nicht alles. Eine Zahl hinter dem 
RENUMBER-Befehl laBt die Zeilennumerierung eines Pro- 
gramms ab dieser Zahl beginnen. 

RENUMBER 1000 

LIST 

beweist es Ihnen. 

Zu guter Letzt kann auch noch die Schrittweite, also der 
Zahlenabstand zwiscnen den Programmzeilen, ausgewahlt 
werden durch Angabe einer zweiten Zahl: 

RENUMBER 10,100 

gibt uns ein Programm, desssen erste Zeile nut 10 beginnt, 
alle anderen Zeilen dagegen mit einem Abstand von 100 wei- 
terzahien. 

RENUMBER-Befehl 

- Dieser Befehl numeriert ein im Arbeitsspeicher des Computers gespei- 
chertes Programm neu durch. 

- »RENUM8ER« numeriert das Programm ab Zeile 10 in Zehnerschritten 
durch. 

- »RENUMBER Z« numeriert das Programm ab Zeile Z in Zehnerschritten 
durch. 

- ^RENUMBER Z,S« numeriert das Programm ab Zeile Z mit der Schritt- 
weite S durch. 

- Dabei werden alle Zeilennummern am Beginn einer Zeile und hinter den 
Basic-Befehien GOTO, GOSUB, THEN und ELSE entsprechend angegli- 
chen. 

Fur unser Programm schlage ich vor, ab Zeile 10 zu begin- 
nen und in Zehnerschritten weiterzumachen. 



5. Grafische Verschonerungsmittel 



Der C 16 besitzt erstaunliche grafische Fahigkeiten. 

Als erstes wollen wir das Resultat der Datumssuche, nam- 
lich das ganz unscheinbar hingedruckte Geburtsdatum, her- 
vorheben. Dazu gibt uns der C16 drei Hiifsmittei: 

- farbige Schrlft 

- invertierte Schrift 

- blinkende Schrift 

Im Direkt-Modus, das heiBtohne Zeilennummern direktein- 
getippt, kann die Farbe der Zeichen und Buchstaben durch 
gleicnzeitiges Drucken der <CTRL>-Taste beziehungs- 
weise < Commodore > -Taste und einer der acht Rarbtasten 
eingestellt werden. 

Beide Vorgange sind im Commodore-Handbuch auf Seite 
49 bis 51 gut beschrieben. 

Auf Seite 23 sind zwei wettere Tasten genannt, <FLASH- 
ON> und <FLASH-OFF>, die gleichzeitig mit <=CTRL> 
gedriickt einen Blinkeffekt hervorrufen. 

Wie konnen wir dasselbe im Program m-Mod us machen? 

Im Anfangskurs habe ich ab Seite 58 unter der Uberschrift 
»Programmierte Steuertasten« diese Vorgehensweise 
bereits beschrieben. Sie verwendet die sogenannten ASCII- 
Codewerte der Steuer- und Farbtasten, die mit dem PRINT- 
Befehl die Funktionen dieser Tasten ausfiihren. 

Die ASCII-Codewerte stehen dabei in Klammern hinter dem 
Basic-Befehl CHR$. 

PRINT CHR$(18)"ABC" 

zum BeispieJ druckt die drei Buchstaben in invertierter Dar- 
stellung. 

Wichtig ist natiirlich die Kenntnis aller entsprechenden 
ASCII-Werte. Im Bedienungshandbuch von Commodore ist 
ab Seite 215 eine Codetabelle enthalten, nur ist sie leider 
nicht ganz vollstandig. Ich habe daher in Tabelle 1 die ASCII- 
Codewerte und die invertierten Zeichen aller Steuertasten 
zusammengestelit. Die invertierten Zeichen treten bekannt- 
lich dann auf, wenn im Anfuhrungszeichen-Modus (nach 
einem Anfuhrungszeichen) eine Taste gedriickt wird. 

Als erstes wollen wir das Ausdrucken des Geburtstages in 



Zeile 80 (vor dem RENUMBER hatte sie die Nummer 220) 

durch den Zusatz CHR${18) invertieren: 

80 IF N$(I)=F$ THEN -PRINT GKR$(18) D$(I):G0T0 60 

Der Zusatz des Codewertes 130 laBt den Datumsausdruck 
blinken: 

80 IF N$(I)=F$ THEN PRINT CHR$(l8) ' CHR$(l30) D$(l) 
:GOT0 60 

Wenn- wir jetzt noch weitere CHR$-Befehle hinzufugen, 
dann wird langsam die Zeile zu klein - ein Grund fur mich, die 
platzsparende Anfuhrungszeichen-Methode vorzufuhren. 

Tippen Sie bitte in Zeile 80 nach dem Befehl PRINT ein 
Anfuhrungszeichen und danach - gleichzeitig mit der 
< CTRL > -Taste - die <RVS-ON> -Taste, die < FLASH- 
ON > -TASTE und die Taste fur die Farbe <BLAU> 
(<BLUE>). SchlieBen Sie bitte noch vor dem D$(l) das 
Ganze mit einem SchluBzeichen {zweites Anfuhrungszei- 
chen) ab. Alle CHR$-Befehle von vorher mussen Sie 
loschen. ] 

Auf dem Bildschirm steht jetzt: 
80 IF N$(I)=F$ THEN PRINT "[rvs on] [flash- 
on] [blue] " D$(I) :G0T0 60 : 



FUNKTION 


TASTE(N) 


ZEICHEN 


ASCII 


schwarz 


CTRL-1 


I 


.144 


weiB 


CTRL-2 


m 


5 


rot 


CTRL-3 





28 


fifa 


CTRL-4 


& 


159 


purpur 


CTRL-5 


m 


156 


grun 


CTRL-6 


n 


30 


blau 


CTRL-7 


s 


31 


gelb 


CTRL-8 


m 


158 


orange 


C=-1 


to 


129 


braun 


C=-2 


m 


149 


gelbgrCin 


C=-3 


>:< 


150 


rosa 


C=-4 


B 


151 


blaugriin 


C=-5 


m 


152 


hellblau 


C=-6 


■i 


153 


dunkelblau 


C=-7 


LI 


154 


hellgrun 


C^-8 


aa 


155 


Revers ein 


CTRL-9 


IS 


18 


Revers aus 


CTRL-0 


a 


146 


Cursor nach oben 


CRSRt 


n 


145 


Cursor ab 


CRSRi 


® 


17 


Cursor links 


CRSR- 


ii 


157 


Cursor rechts 


CRSR- 


a 


29 


Schirm loschen 


SHIFT-CLEAR/HOME 


c 


147 


Cursor Home 


CLEAR/HOME 


m 


19 


Insert 


SHIFT-INST/DEL 


n 


148 


Delete 


INST/DEL 


ii 


20 


Return 


RETURN 


LCJ 


13 


Shift-Return 


SHIFT-RETURN 


m 


141 


Escape 


ESC 


H 


27 


Blinken ein 


CTRL-, 


11 


130 


- Blinken aus 


CTRL-. 


a 


132 


Kiein/Grof3buch~ 
staben 


SHIFT-C= 


OS 


14 


' GroBbuchstaben/ 
Zeichen 


SHIFT-C= 


H 


142 


Funktionstaste 
f1 


F1 


B 


133 


f2 


F2 


a 


137 


f3 


F3 


a 


134 


f4 


SHIFT-F1 


B 


138 


f5 


SHIFT-F2 


II 


135 


t6 


SHIFT-F3 


a 


139 


f7 


SHIFT-HELP 


ii 


136 


f8 


HELP 


(1 


140 



Tabelle 1. Tasten, reverse Zeichen und ASCII-Codes 
Steuertasten des C64 
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H Haberi 

fcfni-CAD mit Hi-Eddi plus 
auf dem C64/C128 

1985, 234 Seiien inkl. Diskette 

Zusammen mit diesem Buch erhalten Sie auf 
Diskette ein CAD-Programm, welches das kom- 
■ortable Erstellen von technischen Zeichnun- 
gen. Planen Oder Diagrammen ebenso erlaubt 
•»« das Malen von Bildern in Farbe, Schildern 
Snefkdpfen und sogar das Erstellen von kleinen 
Thckfilmen Oder von Schautensterwerbung. 
3ei dem Programm handelt es sich um eine 
stark verbesserte Version des Zeichenpro-. 
pamms »Hi-Eddi« aus der Zeitschrift 64'er ' 
Das Buch beschreibt ausfuhrlich und auch fur 
^aien verstandlich die Anwendungsmoglichkei- 
ten an einer Reihe von Beispielen wie das Er- 
stellen von Schaltplanen, Platinenlayouts und 
Struktogrammen. Dazu bietet es durch eine 
ausfuhrliche Dokumentation dem maschinen- 
spracheerfahrenen Programmierer die Mdg- 
Schkeit, Grafikroutinen in eigene Programme zu 
Obernehmen. Hardwareanforderungen: 
Floppy 1525/MPS801/MPS803. Joystick. 
Best.-Nr. MT 90136 
ISBN 3-89090-136-0 
DM 48,-/sFr. 44,20/oS 374,40 





F. Matthes 

Pascal mil dem C64 

Mai 1986, 215 Seiten inkl. Diskette 

Buch und Compiler ermdglichen jedem Besit- 
zer eines C 64 den Einstieg in die modeme Pro- 
grammiersprache Pascal. 
Dem Anfanger wird ein Einfuhrungskurs in Pas- 
cal geboten, wobei viele uberschaubare Bei- 
spiele aus der Praxis und Ubungsauf gaben zum 
aktiven Lemen mit dem C64 auffordern. Beim 
Prografamieren wird er durch eine ausfuhrliche 
Bedienjjngsanleitung unterstiitzt. 
Fur den Pascal-Profi gibt es neben nutzlichen 
Beispielprogrammen ein spezielles Kapitel mit 
Tips und Tricks. Der Compiler akzeptiert den 
gesamten Sprachumfang mit einigen Erweite- 
rungen. Er bildet mit dem sehr komfortablen 
Full-Screen-Editor eine schnelle Einheit, so daB 
der Programmentwicklungsaufwand minimal 
ist. Obersetzte Programme laufen ohne weitere 
Hilfsprogramme auf jedem C64, nutzen den 
gesamten Programmspeicher des C64 und 
sind 3-4mal schneller als vergleichbare Pro- 
gramme in BASIC. 
Best.-Nr. MT 90222 
ISBN 3-89090-222-7 
DM 52,-/sFr. 47,80/dS 405,60 




W. Kassera/F. Kassera 

C64 Programmieren in 
Maschinensprache 

1985, 327 Seiten inkl. Disk 

Die Autoren zeigen in diesem 
Buch, daB jeder die- Grenzen 
des eingebauten BASIC des 
C64 sprengen kann. Der Auf- 
schwung im Programmieren 
stelltsich ein, wenn Sie effek- 
tiv die betriebssystem-inter- 
nen ROM-Routinen nutzen 
konnen. Dazu aber mQssen 
Sie diese Routinen kennen, 
mOssen Ciber ihre Funktions- 
weise und ihr Zusammenspiel 
informiert sein. Und Sie mus- 
sen die Maschinensprache 
Ihres C64 beherrschen. Bei- 
des ermdglicht Ihnen dieses 
Buch: die Programmierung 
bewegter Bildschirmobjekte, 
die Erweiterung der Interrupt- 
Routine des Systems, die 
Arithmetik-Routinen im ROM. 
Best.-Nr. MT 830 
ISBN 3-89090-168-9 
DM 52,-/sFr. 47,80/dS 405,60 



W.-J. Becker/M. Folprecht 

Programmieren unter 
CP/M mit dem C 64 

1985, 290 Seiten 

DAS Buch fur den C64- und 
CP/M-Freak! Selbstverstand- 
lich wird alles vermittelt, was 
fur die Arbeit mit CP/M ndtig 
ist: die Kommandosprache 
und deren residente und tran- 
sients Kommandos, aber 
auch die verbreitetsten Pro- 
grammiersprachen (BASIC- 
80 und MBASIC, Nevada- 
FORTRAN und FORTRAN-80 
sowie Turbo-Pascal). System- 
programmierer f inden ein aus- 
fuhrlich kommentiertes BIOS- 
Listing und Listings der wich- 
tigsten System-Dienstpro- 
gramme sowie Bestuckungs- 
plan, Blockschaltbild und 
Schaltbild des CP/M-Moduls. 
Best.-Nr. MT 751 
ISBN 3-89090-091-7 
DM 52,-/sFr.47,80/6S 405,60 



H. L Schneider/W. Eberl 

Das C64 Profihandbuch 

1985, 413 Seiten 

Der erste Teil des Buches wid- 
met sich allgemeinen Algo- 
rithmen zu unterschiedlichen 
Problemen (Sortieren, Menu- 
techniken, Datumsverarbei- 
tung), die zum Wissensstand 
jede.s Profisgehdren miissen. 
Es folgen niitzliche Utilities in 
BASIC und Maschinenspra- 
che, die auch zu Erweiterun- 
gen des eingebauten BASIC 
genutzt werden konnen. Ein 
Kapitel uber die Schnittstellen 
zur Au8enwelt wird gefolgt 
von systemnahen Tips und 
Tricks mit PEEK, POKE und 
SYS. Der technische Teil mit 
Tabellen zu Hard- und Soft- 
ware (BS-Routinen und Ein- 
sprungpunkte, Bausteine, 
Zeichensatz-Generator, Feh- 
ler von Rechner.und Floppy 
eta) runden das Buch ab. 
Best.-Nr. MT 749 
ISBN 3-89090-110-7 
DM S2,-/sFr. 47,80/dS 405,60 



H. Ponnath 

C64: Wunderland der 
Grafik 

1985, 232 Seiten inkl. Disk 

Wennsie nicht gerade von der 
aliereinfachsten Art sein soil, 
dann setzt Grafikprogrammie- 
rung auf dem C64 einige 
Kenntnisse des Systems vor- 
aus: man bewegt sich meist 
auf der Ebene der Maschi- 
nenprogrammierung. Aber 
keine Angst! Der Autor legt 
beim Leserein solides Funda- 
ment an Wissen und er tut 
dies auch noch auf so unter- 
haltsame Art, da8 Sie bestens 
geriistet sind, um so interes- 
sante Aufgaben wie die Pro- 
grammierung hochauflosen- 
der zwei- und dreidimensio- 
nalerGrafikenanzugehen. Mit 
Spriteszujonglieren istfurSie 
bald kein Problem mehr. 
Best.-Nr. MT 90363 
ISBN 3-89090-363-0 
DM 49,-/sFr.45,10/6S 382,20 



K. Schramm 

Die Floppy 1541 

April 1985, 434 Seiten 

Egal, ob Sie als Floppy- 
Einsteiger nur wissen wollen, 
wie man mit der 1541 Daten 
speichern kann Oder ein Per- 
fektionist sind, der jedes De- 
tail seines Diskettenlaufwerks 
beherrschen will: In diesem 
Buch werden Sie alle Informa- 
tionen uber Ihre Floppy fin- 
den; fur den Anfanger begin- 
nend bei der Handhabung der 
Kanale und der verschiede- 
nen Filetypen bis hin zum gut 
kommentierten DOS-Listing 
der 1541 fur Assembler- 
profis. 

Best.-Nr. MT 90098 
ISBN 3-89090-098-4 
DM 49,-/sFr. 45.10/6S 382,20 



S. Baloui 

C64 Fischertechnik 
Messen, Sieuern, Regeln 

Februar 1986, 174 Seiten 

Dieses Buch bietet einen aus- 
fuhrlichen Programmierkurs 
fur die Entwicklung von Steu- 
erungssoftware mit dem Fi- 
scher- Computing-Baukasten. 
Es beginnt mit einer grund- 
satzlichen Darstellung der ver- 
schiedenen Elemente »Lam- 
pen. Motoren, Elektroma- 
gnete. Potentiometer*, denje- 
weiligen Einsatzmdglichkei- 
ten und der Verkabelung. Da- 
nach folgt die Darstellung des 
zugehorigen Interfaces. 
Best.-Nr. MT 90194 
ISBN 3-89090-194-8 
DM 29,90/sFr. 27,60/oS 233,20 
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Beachten Sie bitte die Schreibwe'tse fur die »Steuerzei- 
chen«. (rvs on] bedeutet, daB hier das Steuerzeichen fur 
»)nvertierte Scbrift Ein« steht; ein revers geschriebenes »R«. 

Nach RUN erscheint der Datumsausdruck invertiert, blin- 
kend und in biauer Farbe. 

PRINT "(flash-on)" erreicht dasselbe wie PRINT 
CHR${130) 

PRINT" [blue]" erreicht dasselbe wie PRINT CHR$(31) 

Die Grunde, warum die invertierten Steuerzeichen in Zeir- 
schriften und gedruckten Listings selten vorkommen, liegen 
einmal in dem nicht ganz einfachen Druck dieser Zeichen, 
zum andern in ihrer schlechten Lesbarkeit 

Anmerkung: Beim C16 sind nach dem Einschalten des 
Computers die acht Funktionstasten mit festen Funktionen 
belegt. Die in der Tabelle genannten ASCII-Codewerte ste- 
hen deswegen erst nach einer Loschung dieser Funktionen 
zur Verfugung. Dieser Vorgang wird bei der Behandlung des 
Basic-Befehls KEY erklart 

Ich ziehe normaierweise den CHR$-Befehl vor, es sei 
denn, ich gerate in Platznot, so wie oben. 

Eine ietzte Verfeinerung des Program ms sei mir gestattet. 
Im Gegensatz zu <REVERS-ON> und < FLASH -ON>, die 
beide nur innerhalb einer einzigen Programmzeile wirken, 
bleibt eine Farbumschaltung fur alle folgenden Programnv 
teile erhalten. Wir mussen also nach dem PRINTen von D$(l) 
wieder auf die ursprungliche Zeichenfarbe schwarz (black) 
zuruckschalten: 

80 IF N$(I)=F$ THEN PRINT "[rv8 on] (flash on] [blue] 
"D$(I) "(black) ".-GOTO 60 * 

in Listing 1 ist das ganze Programm, so wie es jetzt steht, 
zusammengefaBt abgedruckt: 
10 Z=4 

20 DIM N$(Z),D$(Z) 
30 FOR 1=0 TO Z 
40 READ B$(I),D$(I) 
50 NEXT I 

60 INPUT "NAME";F$ 
70 FOR 1=0 TO Z 
80 IF N$(I)=F$ THEN PRINT "(rvs on) (flash on) " D$(I) 

"(black)" :G0T0 60 
90 NEXT I 

100 PRINT "NAME NICHT IN DER LISTE" 
110 DATA MAX,31.3-55,M0RITZ,12.4.45,HANS,6.2.60 
120 DATA MARIA, 14.7. 63, LUISE, 8. 9. 60 



6. Zweidimensonale Felder (Arrays) 



Hinter dieser Uberschrift verbirgt sich eine Erweiterung des 
DIM-Befehls: 

- eindimensional ist eine Linie; sie hat nur in einer Richtung 
eine Ausdehnung 

- zweidimensional ist eine Fiache; sie hat eine Lange und 
eine Breite. 

Diese Betrachtungsweise kann auch auf Variablenfelder 
angewendet werden. 

ich habe bei der ersten Erklarung des Begriffs »Feid« und 
»Fe(dvariabie« den Vergleich mit einstockigen Hausern in 
einer StraBe verwendet. Unser damaliges Beispiel konnte 
man so aufmalen: 

Bewohner 2 3 4 5 6 

Adresse T(0) T(1) T(2) T(3) T{4) 

Ein zweidimensionales Feld ist eine Tabelle, in der sowohi 
waagrecht wie senkrecht Eintragungen moglich sind: 

in unserem Beispiel sind das Hauser, die mehrere Stock- 
werke und pro Stockwerk verschiedene Bewohnerzahlen 
haben. Der Einfachheit halber gebe ich alien Hausern die- 
seibe Zahl von Stockwerken. 



Stockwerk 3 


T(0,3) 


T<1,3) 


T(2,3) 


T{3,3) 


T(4,3) 


2 


T(O f 2) 


T{1,2) 


T(2,2) 


T(3,2) 


T(4,2) 


1 


T(0,1) 


T(1,1) 


T(2,1) 


T{3,1) 


T(4,1) 





T(0,0) 


T{1,0) 


T(2,0) 


T{3,0) 


T(4.0) 


Hausnummer 





1 


2 


3 


4 



Bet diesen Reihenhausem habe ich nicht mehr die Zahl der 
Bewohner in die Hauser beziehungsweise Stockwerke 
geschrieben, sondern die »Adressen«, die wieder unsere 
Feld-Variabfen sind. Nur haben sie diesmal zwei Indizes, 
einen fur das Stockwerk (Zeile des Feldes) und einen fur die 
Hausnummer (Spaite des Feldes). 

Wenn wir jetzt sagen wolien, daB im 3. Stock des 1 . Hau- 
ses 7 Leute wohnen, legen wir das fest mit; 
T(1,3)=7 

Bei der Definition einer zwei.alimensionalen Variablen 
T(A,B) reserviert auch diesmal wieder der Computer ein Feid 
von 11 Variablen, allerdings pro index, das heiBt insgesamt 
11 x 11=121 Platze. 

Ein kleines Programm be'weist diese Behauptung: 
10 FOR 1=0 TO 10 
20 FOR K=0 TO 10 
30 T(I,K)=I+K 

40 PRINT T(I,K); 

50 NEXT K 
60 NEXT I 

Ich habe es extra so geschrieben, daB Sie die beiden 
Schleifen besser sehen konnen. Pro Durchlauf der auBeren 
l-Schieife lauft die innere K-Schleife 11mal durch. Dement- 
sprechend sieht das Resuitat der Zeile 40 aus. 

Wenn Sie jetzt die obere Grenze von I auf 11 erhohen, 
merkt das Programm erst nach dem 121. Durchlauf, daB 
zuwenig Platz reserviert worden ist. Lassen Sie dagegen das 

1 auf maximal 10, erhohen aber das K auf 11, bleibt das Pro- 
gramm schori nach dem ersten Durchlauf der inneren 
Schleife stehen. 

Das war eine kleine Erinnerung an die Wirkungsweise 
geschachtelter Schleifen. 

Wenn wir ein groBeres Feld benotigen, mussen wir diesen 
Bedarf wieder mit dem DIM-Befehl eingeben: 
DIM T(25,34) 

Zusammenfassung DIM-Befehl 

1. Felder konnen auch mehrere Dimensionen haben. Eine zweidimensio- 
nale Feld-Variable hat 2 Indizes in der Klammer, die durch ein Komma 
getrennt sein mussen. 

2. Fur eine mehrdimensionaie Feid-Variabie werden pro index 11 Piatze im 
Speicher reserviert. 

3. Zur Dimensionierung groGerer Felder steht der DIM-Befehl, ebenfalls mit 

2 Indizes, zur Verfugung. 

4. Fur mehrdimensionaie DIM-Befehle und Feld-Variablen gelten dieselben 
Regeln wie fur eindimensionale Felder. 

* Urn Ihnen ein lehrreiches Beispiel fur ein zweidimensiona- 
les Feld zu geben, in dem auch noch andere, fur den C16 
typische Anweisungen vorkommen, mache ich einen kurzen 
Ausflug in die Welt der Tone. 

7. Hat man da Tone? 



Im C16 sind zwei unabhangige Stimmen eingebaut. Mit bei- 
den kann er singen wie ein Zeisig, mit der zweiten Stimme 
krachzt und zischt er zusatzlich wie eine heisere Katze. Mit 
diesen beiden Tongeneratoren iassen sich allerdings recht 
raffinierte Klangkombinationen erzielen. 

Prinzipiell werden bei jedem tonerzeugenden Instrument 
drei Eigenschaften variiert: 
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- die Tonhohe (T) 

- die Lautstarke (L) 

- die Tondauer (D) 

Was furjedeFloteundjedesSaxophon gilt, gilt auchfilr die 
Stimmen desC16. 

Mitdem Befehi VOL, einerAbktirzungdesenglischen Wor- 
tes »Volume« fur Lautstarke, kann diese in 9 Stufen, von bis 
8, verandert werden. 

Zur Festlegung von Tonhohe und Tondauer gibt es einen 
zweiten Befehi SOUND, den ich eigentlich nicht zu uberset- 
zen brauche, ist uns das Wort doch aus der heutigen Musik 
bekannt Der SOUND-Befehl hat drei Variabien hinter sich 
stehen: mit der ersten werden die bereits genannten Tonge- 
neratoren 1 oder 2 ausgewahit, die zweite Variable bestimmt 
die Tonhohe mit Werten von bis 1023, die dritte Variable 
gibt die Tondauer an und zwar von 1/50 Sekunde (0) bis 22 
Minuten (65535). Ein schneller Direkt-Versuch zeigtes uns: 
VOL 3:S0UND 1,500,50 (<RETURN>) 

Aber lustiger und eindrucksvoliler ist es, wenn sich bei 
Tonen etwas verandert. Dazu ein kleines Programm: 
10 FOR L=0 TO 8 
20 VOL L 

30 SOUND 1,800+1*10,50 
40 NEXT L 

Sowohl die Lautstarke L in Zeiie 20, als auch die Tonhohe 
im 2. Ausdruck hinter dem SOUND-Befehl {mit L*10), wer- 
den in 9 Schritten verandert. Nur die Tondauer bleibtkonstant 
auf 1 Sekunde (1/50 mal 50). 

Der 2. Tongenerator wird mit SOUND 2,... ausgewahit Er 
klingt, wie Sie sich ieicht uberzeugen konnen, genauso wie 
der erste. Aber Tongenerator 2 kann auch rauschen. Statt 
SOUND 2 braucht man nur SOUND 3 schreiben. 

DaB es sich urn nur zwei Tongeneratoren handelt, kann ich 
durch Einfugen einer weiteren Zeiie, die den 2. Tongenerator 
einschalten soil, beweisen: 
35 SOUND 2,700+1*10,50 

Der Anfangston der 2. Stimme liegt durch den Wert 700 
etwas tiefer. Nach RUN erklingen beide Stimmen gleichzei- 
tig. Wenn Sie SOUND 2 durch SOUND 3 ersetzen, klingt eine 
Stimme und das Rauschen gleichzeitig. Wenn Sie aber v in 
Zeiie 30 SOUND 2 und in Zeiie 35 SOUND 3 einsetzen, 
erkiingt die Stimme und das Rauschen abwechselnd. 

VOL- und SOUND-Befehl 

- mit VOL, gefolgt von einer Zahl zwischen und 8, wird die Lautstarke der 
Tongeneratoren eingestellt. Dabei gilt fur die kleinste, 8 fur die groBte 
Lautstarke. 

- der VOL-Befehi muB vor dem ersten SOUND-Befehi gegeben werden, 
danach nur noch bei Veranderungen der Lautstarke. 

- mit dem Befehi SOUND #,T,D wird ein Tongenerator eingeschaltet. 

# bestimmt den Tongenerator; mit 1 oder 2 erzeugt Tongenerator 1 oder 
2 Tone, mit 3 erzeugt Tongenerator 2 nur Rauschen. 
T bestimmt die Tonhohe; seine Werte liegen zwischen und 1023. Die 
Zuordnung dieser Werte zu den Tonhohen ist in Tabelle 2 dargestellt. 
D legt die Dauer des Tones fest und zwar mit Werten von bis 65535. 
Diese Werte, mit 1/50 multipliziert, ergeben die Tondauer in Sekunden. 

- die Tone konnen vor Abiauf der Tondauer D mit VOL abgeschaitet wer- 
den. 

Jetzt sind wir gerustet, urn eine Anwendung eines zweidi- 
mensionalen Feldesaufzubauen. Ich will ihnen ein Programm 
zeigen, welches uns in recht einfacher Weise gestattet, eine 
Melodie zu komponieren und zu variieren. 

8. Eine zweidimensionale Melodie 



Als Melodie sollen uns dabei die ersten acht Takte der deut- 
schen Nationalhymne dienen, die erstens alien bekannt sein 
durfte, zweitens nur funf verschiedene Tonhohen hat, aber 
dafur drei Tondauem. 



Ton 



einge- zweige- dreige- vierge- funfge- 

kleine strich. strich. strich. strich. strich. 

Oktave Oktave Oktave Oktave Oktave Oktave 



A 


7 












Ais/B 


66 












H 


118 












C 


169 


596 


810 


917 


970 


997 


Cis/Des 


220 


620 


822 


923 


973 


999 


D 


262 


643 


834 


929 


977 


1002 


Dis/Es 


300 


664 


844 


934 


979 


1004 


E 


345 


685 


854 


939 


982 


1006 


F 


383 


704 


864 


944 


984 


1010 


Fis/Ges 


428 


725 


872 


948 


986 


1011 


G 


453 


739 


881 


953 


988 


1013 


Gis/As 


483 


754 


889 


956 


990 




A 


516 


770 


897 


960 


992 




Ais/B 


543 


784 


904 


963 


994 




H 


571 


798 


911 


967 


996 




Tabelle 2. 


Zahlenwerte fur Tone der chromatischen Tonleiter 



1.Ton 


(0,0) 


2. Ton 


(1.0) 


3. Ton 


(2,0) 


8 Ton 


(7,0) 


9 Ton 


(8,0) 



Wir konnten nun naturlich einfach in neun Programmzeilen 
pro Ton einen SOUND-Befehl mit entsprechenden Variabien 
schreiben. Aber dann gibt un^das Programm nur diese eine 
Melodie, ohne die Mogiiehkeit, sie zu variieren. 

Das erretchen wir, wenn wir die Tone und ihre Dauer mit 
dem INPUT-Befehl in ein zweidimensionales Feld plazieren, 
das dann wie folgt aussieht: 
M(x,0) M(x,1) 
(0,1) 

(1,1) 

(2,1) 
(7,1) 
(8,1) 

Die Feldvariabie M(x,0) soil fur die Tonhohe und M(x,1) fur 
die Dauer eines Tones stehen. 

Wir dimensionieren nun ein Feld fur 9 mal 2 Eintragungen 
und zahlen in einer Schleife die neun Tone der Melodie hoch. 
In jedem Durchgang der Schleife f ragen wir per INPUT nach 
der Tonhohe und der Dauer des jeweiligen Tones und nennen 
sie T und D: 
10 DIM (8,1) 
20 FOR 1=0 TO 8 
30 INPUT "TON, DAUER ";T,D 
40 M(I,0)=T 
50 M(I,1)=D 
60 NEXT I 

Zwei Punkte sind dabei interessant: 

Den ersten habe ich bereits genannt, er ist aber so wichtig, 
daB ich ihn wiederholen mochte: In den Feld-Variablen M(X,Y) 
bedeutet der erste Index die laufende Nummer des Tones, 
der zweite Index die Tonhohe (0) oder die Dauer (1). 

Der zweite Punkt taucht hier zum ersten Mal auf, namlich 
die Eigenschaft des INPUT-Befehls, genau wie bei DIM oder 
READ, gleich mehrere Variable verarbeiten zu konnen. Im 
Programm mussen dann nach dem auffordemden Fragezei- 
chen entsprechend viele Eingaben eingetippt werden. 

Zusammenfassung INPUT-Befehl 

1. Der INPUT-Befehl erlaubt, mehr als eine Variable festzulegen, denen 
dann uber die Tastatur Daten zugewiesen werden. Die Variabien mussen 
durch Kommata voneinander getrennt sein: 

INPUT "TEXT";A,B$,C,D 

2. Die Variabien konnen. gemischt, das heiBt sowohl numerisch als auch 
Strings sein. Die Dateneingabe muB allerdings im Typ genau der Reihen- 
folge des INPUT-Befehls entsprechen. 

3. Die Daten konnen sowohl einzeln, gefolgt von < RETURN >, als auch 
durch Kommata getrennt, aile in einer Zeiie eingegeben werden. Im ersten 
Fail gibt der Computer vor jeder folgenden Eingabe zwei Fragezeichen aus. 

4. Wenn mehr Daten eingegeben werden, als mit Variabien hinter dem 
INPUT-Befehl verlangt worden sind, erscheint die Meldung »?EXTRA IGNO- 
RED«, das heiBt, der Computer ignoriert den OberschuB und macht normal 
weiter. 
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Das Programm wird fortgesetzt mit dem Spielen der Melodie: 

70 FOR 1=0 TO 8 

80 VOL 3 

90 SOUND 1,M(I,0),M(I,1) 

100 NEXT I 

Nach RUN erscheint die Aufforderung nach Tonhohe und 
Dauer des ersten Tones. Wenn Sie Noten kennen, dann kon- 
nen Sie die Tonwerte der Tabelle 2 entnehmen - Oder der 
Tabelle auf Seite 211 des Bedienungshandbuches von Com- 
modore. 

Ich empfeble Ihnen, mehrere Durchlaufe zu machen, im 
ersten aber einen konstanten Wert fur D, zum Beispiei 50, 
einzusetzen. Wenn Sie alle Werte eingegeben baben, 
erkiingt die Melodie und Sie konnen horen, was Sie faisch 
gemacht haben. 

Durch Eingabe von GOTO 70 erkiingt die Melodie immer 
wieder. 

Um Fehierzu korrigieren oder die richtige Dauer D einzuge- 
ben, fahren Sie mit dem Cursor auf den entsprechenden Wert 
und verandern die Zahlen, aber auf keinen Fall die 
< RETURN > -Taste drucken! 

Wenn alles auf dem Bildschirm korrigiert ist, bringen Sie 
den Cursor auf das Wort RUN und drucken < RETURN >. 
Dadurch wird RUN wie vorher ausgefiinrt, und Sie mussen 
lediglich durch wiederholtes Drucken der < RETURN >- 
Taste die bereits korrigierten Werte »bestatigen«. 

Wenn sie durchgelaufen sind, ertont die korrigierte Melo- 
die. Fur die Noten-Unkundigen gebe ich die Zahienwerte zum 
Eintippen an. Das soil Sie aber nteht hindern, ebenfails wie 
oben beschrieben zu experimentieren. 

Auf dem Bildschirm sollte stehen: 



RUN 

TON, DAUER? 

TON, DAUER? 
TON, DAUER? 
TON, DAUER? 
TON, DAUER? 
TON, DAUER? 
TON, DAUER? 
TON, DAUER? 
TON, DAUER? 



810,60 
834,20 
854,40 
834,40 

864,40 
854,40 
834,20 

798,20 
810,40 



Es gibt naturlich auch noch die konventionelle Methode, 
einen der SOUND-Werte zu andern. 

Wenn Ihnen zum Beispiei die Tonhohe des dritten Tones zu 
tief ist, dann geben Sie einfach den neuen Wert direkt mit ein: 
M(2,0)=860 

Um die Dauer des letzten Tones zu verdoppeln, genugt die 
direkte Eingabe: 
M(8,l)=80 

AbscbiieBend mochte ich Ihnen noch gem zeigen, wie man 
mit den beiden Tongeneratoren die obige Melodie zweistim- 
mig erklingen laBt Wir verwenden weiterhin das zweidimen- 
sionale Feld. 

Der erste Index des Feldes bteibt gieich - er definiert wei- 
terhin die Anzahl der Tone. Der zweite Index wird um 1 erhoht, 
denn zu der Tonhohe und der Tondauer kommt jetzt noch die 
Nummer des Tongenerators hinzu. Wir nennen sie »Stimme« 
und geben der Variablen den Namen S. Naturlich wird das 
Feid wegen derzweiten Stimme doppeltsogroB, was wir dem 
Programm mit dem DIM-Befehl derZeile 10 mitteilen mussen: 

10 DIM M{ 17, 2) 

20 FOR 1=0 TO 17 

30 INPUT * STIMME, TON, DAUER ";S,T,D 

35M(I,0)=S 

40M(I,1)=T 

50M(I,2)=D 



60 NEXT I 

70 FOR 1=0 TO 17 

80 VOL 3 

90 SOUND M(I,0) ,M(I,1) ,M(I,2) 

100 NEXT I 

In Zeile 30 wird wie vorher nach den Eingaben gefragt, nur 
sind es dtesmal deren drei. Von den eingeschobenen Zeilen 
35 bis 50 werden diese drei INPUTS den drei Feldvariablen 
zugewiesen und dann in Zeile 90 zum Erkiingen gebracht 
Die beiden Schleifen laufen jetzt entsprechend der Anzahl 
der Tone von bis 17. 

Um Ihnen die Sache zu erieichtem, gebe ich die ganze 
Folge der Tone an, die. nach den Aufforderung en 
»STlMME,TON,DAUER?« wie folgt eingegeben werden mus- 
sen: 



1,810,60 
2,685,60 
1,834,20 
2,739,20 
1,854,40 
2,810,40 
1,834,40 
2,739,40 
1,864,40 



2,7i98,40 
1,354,40 
2,810,40 
1,834,20 
2,739,20 
1,798,20 
2,704,20 
1,810,40 
2,685,40 



Diese Tone, oder genauer gesagt, das zweidimensionale 
Feid mit Variablen, welche unsere Tone reprasentieren, steht 
also im Speicher des C 1 6 gespeichert. Wenn wir den Com- 
puter ausschalten, wird der Speicher geloscht und alles ist 
weg. 

Es ware deshalb schon, wenn wir das Feid mit den Tonen 
auch auf ein Band oder auf eine Diskette speichern konnten, 
um es bei spaterer Gelegenheit wieder in den Computer 
holen zu konnen. 

Aus dem Betriebshandbuch von Commodore {von Seite 
34 bis 45) kennen Sie sicher die Speicher - und Ladebefehle 
SAVE, LOAD fur Kassetten und DSAVE, DLOAD fur Diskettes 

Diese Befehle speichern und iaden jedoch nur Programme, 
nicht aber Variablenwerte, die im Lauf eines Programms erst 
erzeugt werden wie zum Beispiei unsere Tone. Um aiso 
unsere Melodie mit diesen Befehien auf Kassette oder Dis- 
kette speichern zu konnen, muBten wir die Zahienwerte - pro 
Ton1 SOUND-Befehl-im Programm festlegen.Es ware dann 
ailerdings kein Komponier-Programm mehr. 

Zum Gluck gibt es aber noch eine andere Methode, wie 
man Variablenwerte speichern kann. Dazu muB ich Ihnen 
aber erst ein biBchen mehr Ober den Speicher des C 1 6 erkla- 
ren. Speichern Sie bitte dieses Fragment auf Band Oder Dis- 
kette ab, wir werden es spater vervollstandigen. 

Der nun folgende Abschnitt hat nur indirekt etwas mit Basic 
zu tun. Aber wie ganz am Anfang betont, komme ich ohne 
einige Beschreibungen der Eigenschaften oder besser 
gesagt Eigenheiten des C16 nicht aus. Einige Kenntnisse 
' des Innenlebens des Computers gehoren eben auch zum 
Programm ieren. 

9. Das Gedaditnis des Computers 

Alle Computer - GroBrechenanlagen genauso wie kleine 
Heimcomputer - sind aus den folgenden Grundbausteinen 
aufgebaut: 

- zentrale Recheneinheit, auch Mikroprozessor oder CPU 
(Central Prozessing Unit) genannt 

- Speichereinheit 

- Ein- und Ausgabe-Bausteine 

Wahrend die CPU rechnet, aile Vorgange im Computer 
steuert, Befehle ausfuhrt und somit das eigentliehe Herz des 
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Computers darstellt, braucht man die Ein- und Ausgabe- 
Bausteine, urn Daten in den Computer hinein- Oder herauszu- 
leiten. Alle Anschlusse von Datasette, Dtskettenlaufwerk, 
Drucker und Bildschirm werden von ihnen gesteuert. Der 
Speieher ist der Notizblock des Computers. In ihm steht altes, 
was er sich merken soil: Prog ram mzeilen, Variablenwerte, 
Zeichenketten (Strings) und so wetter. Auf englisch heiBt 
Speieher passenderweise Memory, was wir wiederum auf 
deutsch mit Gedachtnis ubersetzen konnten. 

Jeder Computer hat zwei Arten von Speichern; 

Das RAM (Random Access Memory) ist ein aus elektroni- 
schen Bauteilen aufgebauter Speieher, der fur Programme 
frei verfugbar ist. Wir konnen in diesen Speieher Daten hin- 
einschreiben und sie wieder heraustesen, ohne sie zu zersto- 
ren. Nur nach dem Ausschaiten des Computers sind sie weg ! 

Das passiert auch dann, wenn nur ganz kurzzeitig der 
Strom ausfalit, etwa bei einem Gewitter Oder wenn der Netz- 
stecker einen Wackelkontakt hat. 

Es ist deshalb ratsam, bei langeren Programmierarbeiten 
Zwischenergebnisse, das heiBt den jeweiiigen Inhalt des 
RAM auf Kassette Oder Diskette abzuspeichern, denn nur 
dort sind sie dauerhaft sicher. 

Das ROM (Read Only Memory) ist nicht frei verfugbar. Es 
besteht zwar auch aus elektronischen Bauteilen, aber sein 
Inhalt ist test »eingebrannt« - man kann inn nicht andern. Er 
wird vom Computer selbstverwendet. WennSiezum Beispiel 
Ihren C16 einschalten, dann lauft eine im ROM eingespei- 
cherte Fofge von Programmschritten ab, die schlieBlich mit 
der Meldung des Computers auf dem Bildschirm endet, mit 
der er sich bereit (READY) meldet Im ROM stehen nicht nur 
die Programmschritte, die den Betrieb des Computers steu- 
ern, sondern auch das Programm, welches alle Basic- 
Befehle in einen Code »ubersetzt«, den der zentrale Mikro- 
prozessor (CPU) versteht. 



10. Die Adressen der Speicherzellen 



Der gesamte Speieher des C 1 6 ist aus einzelnen Speicher- 
zellen aufgebaut. Der C 1 6 bietet Platz fur 65536 Speicher- 
zellen. Jede dieser Speicherzellen hat eine Nummer, von 
bis 65535. 

Diese Nummern nennen wir Adressen. Urn eine Zahl oder 
einZeichen In eine bestimmte Speicherzelle hineinschreiben 
zu konnen, miissen wir ihre Adresse kennen. Naturlich gilt 
dasselbe fur das Auslesen. Es liegt deshaib sehr nahe, uns 
ein »AdreBbuch« des Speichers zu beschaffen. 

Im Betriebshandbucb ist eine derartige Liste im Anhang auf 
Seite 228 unter dem Titel »Speicherbelegung« angegeben. 
Diese Liste ist aber alies andere als klar und verstandlich. In 
den Bildern 1 und 2 habe ich daher eine andere Darstellung 
gewahlt, die Ihnen eine Ubersicht uber die verschiedenen 
Speicherbereiche und ihre Bedeutung geben soil. Aber ein 
AdreBbuch, oder wie es auf englisch heiBt, eine »Memory 
Map«, ist das eigentlich auch nicht. Dazu muBte ich ja jede 
einzelne Adresse beschreiben. 

Bild 1 ist also eine Kurzfassung eines AdreBbuches, in der 
wir aber bereits viel sehen konnen: 

- Der Speieher beginnt ganz unten bei Adresse 0. 

- Die ersten 4096 RAM-Speicherzellen werden vom Com- 
puter selbst benotigt. 

- Ab Adresse 4096 begin nt der RAM -Speieher fur Basic-" 
Programme. Ab hier werden alle eingegebenen oder von 
Band und Diskette geladenen Programme gespeichert. 
Auch alie Variablen, Felder und Zeichenketten, die im Lauf 
eines Programms auftauchen, werden dort gespeichert. 

- Bei einem C16 ohne Speichererweiterung endet dieser 
Speicherbereich bei Adresse 16383. 



Theoretisch stehen dem Program miererv also 12287 Spei- 
cherplatze zur Verfugung. Warum sich der C16 nach dem 
Einschalten mit der Oberschrift »12277 Bytes Free« meldet, 
und wo dazehn Speicherplatze abgezwackt werden, weiB ich 
leider auch nicht. Mein C 1 6 meldet sich namlich mit »60671 
Bytes Free«, denn ich habe eine Speichererweiterung einge- 
baut, die den Programm-Speicher bis zur Adresse 64767 
aufstockt- Bei dieser Erweiterung stimmt die Meldung des 
Computers mit der theoretisch verfugbaren Speicherzahl, 
namlich mit der Differenz von 64767 minus 4096, uberein. 
Wie dem auch sei: 

- Beim C 1 6 ohne Erweiterung, also in der Grundversion, ist 
der Bereich von 16384 bis 64767 leer; das heiBt im Klar- 
text, er enthalt keine elektronischen Speicherschaitkreise. 

- Ganz oben am Ende des Speichers hat der Computer wie- 
der einige Platze fur seinen Eigenbedarf reserviert und 
zwar von 64768 bis 65535, das sind 768 Speicherplatze. 
Alle diese Speicherzellen sind also fj^AM-Zellen, das heiBt, 

man kann Daten hineinschreiben und heraustesen. 
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Bild 1. 

Speieher im Normal-Modus 



Bild 2. Speieher im Hi Res- 
Graf ik-Modus 



Wo, so werden Sie sicher fragen, ist der ROM-Speicher 
untergebracht? Des Ratsels Losung habe ich Ihnen in Bild 3 
aufgemalt: Von Adresse 32768 bis 64367 ist der Speieher 
zweistockig; der ROM-Speicher sitzt dort auf denselben 
Adressen wie das RAM. 

- von 32768 bis 53247 sind die fest vorgegebenen Pro- 
gramme zum Ubersetzen von Basic in den Maschinen- 
Code enthalten 

- anschlieBend bis 55295 sind alle Buchstaben und Zei- 
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Bild 3. Der »doppelstockige« Speicher des C16 



BETRIEBS- 

SYSTEM 

(KERNAL) 



ZEICHEN 



BASIC- 



UBERSETZER 



ANWENDER-RAM 
(GRUNDVERSION) 



SYSTEM-SPEICHER 




ERWEITERUNG 



chen, die der C 1 6 kennt, gespeichert 
- danach folgen die Programme des Betriebssystems. 

Der Computer schaltet ganz einfach zwischen diesen Dop- 
peladressen urn, so wie es die Situation gerade erfordert. 

Sie als Basic-Programmierer merken allerdings nichts 
davon, Sie arbeiten nur mit dem RAM-Bereich. 

Spater, wenn Sie einmal in das Gebiet der Maschinenspra- 
che vordringen, werden Sie den Umgang mit beiden Spei- 
cherbereichen lernen mussen. 

Interessehalber will ich noch kurz auf Bild 2 eingehen: 

Es zeigt die Speicheraufteilung des C 16 im sogenannten 
Grafik-Modus. Interessant ist dabei, daf3 in dieser Betriebsart 
dem Programmierer der Speicherbereich von 6144 bis 
16383 weggenommen wird, so daB in der Grundversion des 
C 16 nur der Bereich von 4096 bis 6143 als Programmspei- 
cher bleibt - und das ist herzlich wenig! 

Vorlaufig bleiben wir beim Normal-Modus, also bei den Ver- 
haltnissen, die in Bild 1 gezeigt sind. 

Uns stellt sich als nachstes die Frage, wie wir Daten in ein- 
zelne Speicherzellen des Programmspeichers hineinschrei- 
ben und herauslesen konnen. 



11. Im Speicher stobern 



In Basic gibt es zwei Befehle, mit deren Hilfe der Speicher 
abgefragt werden kann. 

Wahrend der Lese-Befehl vollig unschadlich ist - er 
»kopiert« praktisch den Inhalt der Speicherzelle und laBt das 
Original unverandert - kann der Schreib-Befehl gefahrlich 
sein. Ich will Sie gleich zu Beginn davor warnen, ihn unbe- 
dacht einzusetzen - er verandert den Inhalt einer Speicher- 
zelle, und uber die Folgen dieser Veranderung fur ein Pro- 
grarhm oder den Betrieb des Computers mul3 man sich im kla- 
ren sein. 

Der Schreib-Befehl heiBt POKE, was das englische Wort 
fur »hineinstochern« ist. Nach dem Befehlswort muB die 
Adresse der Speicherzelle stehen, danach folgt, durch ein 
Komma getrennt, die Zahl, die hinelngeschrieben werden 
soil. 

Der Befehl 
POKE 14000,55 
schreibt also die Zahl 55 in die Speicherzelle 14000. 
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M. Breuer 

Das AMIGA-Handbuch 

Marz 1986, 461 Seiten 

Der Commodore AMIGA stellt einen neuen 
Schritt in o'er Enrwicklung der Personal Compu- 
ter dar. Er setzt die neuesten Entwicklungen 
der Chip-Technologie ein, urn dem Endanwen- 
der eine extrem leistungsfShige Maschine zu 
einem vergleichsweise gunstigen Preis auf den 
Schreibtisch stellen zu konnen. Der AMIGA 
besitzt enorme Farbgrafik-Fahigkeiten, die 
auch ffjr die BenutzerfQhrung konsequent ein- 
gesetzt werden. 

Das Buch liefert ubersichtlich gegliedertes • 
Grundwissen Ober die neue Commodore-Ma- 
schine. Aus dem Inhalt: Vorhang auf: Der AMI- 
GA! • Auf der Werkbank des AMIGA • Grund- 
iagederBedienungdes AMIGA ■ Grafik mit Gra- 
Scraft und Delux Paint. AMIGA fur Fortgeschrit- 
:ene: Das CLI • Automatisierung des AMIGA • 
Die Spezialchips des AMIGA • Grundlagen von 
Sound und Grafik. 

• Mit vielen Abbildungen und Obersichtstafeln 
fur den taglichen Einsatz. 
Best.-Nr. MT 90228 
ISBN 3-89090-228-6 
DM 49,-fsFr. 45.10/6S 382,20 
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M. Kohlen 

Grafik auf dem AMIGA 

S.Quartal 1986, ca. 250 S. 

Dieses Buch setzt sich mit 
den auBerordentlichen Grafik- 
fshigkeiten des AMIGA aus- 
einander. Es enthSIt zum 
e nen eine ausfiihrliche Be- 
schreibung der Grafikhard- 
und -software des AMIGA und 
ihrer Funktionsweise. Zum an- 
deren will es aber auch in die 
GrundzOge der Grafikprogam- 
mierung uberhaupt einf uhren. 
In zwei Einleitungskapiteln 
: . -d, diese Informationen in 
einer fur den unvorbereiteten 
Leser verstandlichen Form 
.-ermittelt In den folgenden 
Kapiteln werden diese Kennt- 
- sse dann in praktischen Bei- 
spielen umgesetzt. AuBer- 
dem bietet das Buch einen 
Oberblick Ober die Soft- und 
Hardwareerweiterungen fur 
den AMIGA. 
Best.-Nr. MT 90236 
ISBN 3-89090-236-7 
DM 49,-/sFr. 45,10/6S 382,20 



G.Jurgensmeier 

WordStar 3.0 mit 
MailMerge fiir den 
Commodore128 PC 

1985, 435 Seiten 

Best.-Nr. MT 780 

ISBN 3-89090-181-6 

DM 49,-fsFr. 45,10/dS 382,20 

Dr.P.AIbrecht 

dBASE II fiir den 
Commodore 128 PC 

1985, 280 Seiten 

Best.-Nr. MT 838 

ISBN 3-89090-189-1 

DM 49,-fsFr. 45,10/dS 382,20 

Dr.P.AIbrecht 

Multiplan fiir den 
Commodore 128 PC 

1985, 226 Seiten 

Best.-Nr. MT 836 

ISBN 3-89090-187-5 

DM 49,-/sFr. 45,10/dS 382,20 



G. Mollmann 

C128-Programmieren v 
in Maschinensprache 

3. Quartal 1986, 
ca. 250 Seiten 

Ein Buch, das alle Informatio- 
nen bietet, urn erfolgreich auf 
dem C128 zu programmieren. 
Dazu gehort auch der Urn- 
gang mit den ROM-Routinen 
aus Basic und Betriebssy- 
stem. 

Best.-Nr. MT 90213 
ISBN 3-89090-21 3-S 
DM 52,-/sFr.47,80/6S 405,60 

P. Rosenbeck 

Das Commodore 128- 

Handbuch 

1985, 383 Seiten 

Dieses Buch sagt Ihnen alles, 
was Sie Ober Ihren C128 wis- 
sen mussen: die .Hardware, 
die drei Betriebssystem-Modi 
und was die CP/M-Fahigkeit 
fur Ihren Computer bedeutet. 
Best.-Nr. MT 90195 
ISBN 3-89090-195-6 
DM 52,-/sFr.47,80/6S 405,60 



Markt&Techmk-Fachbiicher 
erhalten Sie bei Ihrem Buchhandler 

Bestellungen im Ausland bitte an den 
Buchhandel oder an untenstehende Adressen. 
Schweiz Markt&Technjk Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, S 042/41 5656 
Osterreich: Ueberreuter Media Handels- und 
Vsrlagsges. mbH. Alser StraBe 24, 1091 Wien, 
S 0222/481538-0 

rrtumer und Anderungen vorbehalten. 




R. Schineis, M. Braun, N. Demgensky 

C128-R0M-Listing: Operating System 

Marz 1986, 450 Seiten 

Dieses Buch ist fur alle Programmierer und 
Anwender gedacht, die mehr Ober ihren Com- 
modore 128 PC wissen wollen. Ein umfangrei- 
ches, vollstandig kommentiertes Assemblerli- 
sting mit Cross-Referenzliste (Verweistabelle) 
umfaBt das komplette Betriebssystem mit dem 
40/80-Zeichen-Editor, des eingebauten Ma- 
schineniprache-Monitors sowie alien Kernal- 
Routineii. 

Best.-Nr. MT 90221 
ISBN 3-89090-221-9 
DM 49,-fsFr. 45,10/dS 382,20 

R. Schineis, M. Braun 

C128-R0M-Listing: 
BASIC-7.0-Betriebssystem 

3. Quartal 1986, ca. 300 Seiten 

Eine umfassende Beschreibung des BASIC- 

Interpreters. Mit vollstandig kommentiertem 

Assemblerlisting und Cross-Referenzlista 

Best.-Nr. MT 90220 

ISBN 3-89090-220-0 

DM 49,-/sFr. 45,1 0/6S 382,20 
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H. Ponnath 

Grafik-Programmierung 
C128 

Marz 1986, 196 Seiten, 
inkl. Disk 

Die Programmierung von Gra- 
fik gehort zu den interessan- 
testen Aufgaben, die man mit 
dem Commodore 128 PC 
losen kann. Dieses Buch h i Iff 
Ihnen dabeil Das Themenfeld 
ist weit gespannt und behan- 
delt unter anderem: hochauf- 
losende- und Mehrfarben-Gra- 
fikimC 128-Modus. 
Best.-Nr. MT 90202 
ISBN 3-89090-202-2 
DM 52,-/sFr. 47.80/6S 405,60 

J. Huckstadt 

BASIC 7.0 auf dem 
Commodore 128 

1985, 239 Seiten 

An praxisnahen Beispielen 
zeigt dieses Buch, wie man 
die fiir den 128er typischen 
Merkmale und Eigenschaften 
(Sprites, Shapes, hochauflo- 
sende Grafik) optimal nutzt. 
Best.-Nr. MT 90149 
ISBN 3-89090-149-2 
DM 52,-/sFr.47,80/6S 405,60 



J. Huckstadt 

CP/M-3.0-Anwender- 
Handbuch C128 

Mai 1986, 250 Seiten 

Wenn Sie Ihren Commodore 
128 PC schon ganz gut im 
Griff haben und jetzt so richtig 
einsteigen wollen in die Mog- 
lichkeiten, die das leistungs- 
starke Betriebssystem CP/M- 
3.0 bietet, sollten Sie mal in 
dieses Buch schauen: Es 
sagt Ihnen alles uber den Auf- 
bau einer Datenverarbeitungs- 
anlage, Mikrocomputer, Pro- 
grammiersprachen und Be- 
triebssysteme im allgemeinen 
und uber das Betriebssystem 
CP/M speziellauf dem C 128. 
Best.-Nr. MT 90196 
ISBN 3-89090-196-4 
DM 52,-/sFr. 47.80/6S 405,60 



K. Schramm 

Die Roppy 1570/1571 

Mai 1986, 470 Seiten 

In der Floppy 1571 wurde ein 
v8llig neues Floppy-Konzept 
verwirklicht: Diese Floppysta- 
tion ist in der Lage, mehrere 
verschiedene Diskettenfor- 
mate zu verarbeiten. 
Dieses Buch soil es sowohl 
dem Einsteiger als auch dem 
fortgeschrittenen Program- 
mierer ermoglichen, die viel- 
faltigen Mbglichkeiten dieses 
neuen Gerates voll auszu- 
schopfen. 
Best.-Nr. MT 90185 
ISBN 3-89090-185-9 
DM 52,-/sFr. 47.80/6S 405,60 
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POKE-Befehi 

- er wird in der foigenden Weise geschrieben: 

POKE Adresse.Wert 
Adresse und Wert mussen durch ein Komma voneinander getrennt sein 

- der POKE-Befehl speichert den »Wert« in der mit »Adresse« bezeichne- 
ten Speicherzelle. Er uberschreibt dabei einen dort gespeicherten fruhe- 
ren Wert. 

- gultige »Werte« liegen im Bereich von minimal bis maximal 255, Wird 
dieser Bereich uberschritten, erscheint die Fehtermeldung ILLEGAL 
QUANTITY ERROR*. 

- der erlaubte Bereich fur »Adresse« reicht von bis 65535. Ein Ober- 
schreiten erzeugt wiederum die Fehlermeldung ILLEGAL QUANTITY 
ERROR«. 

Der Lese-Befehl heiBt PEEK, das englische Wort fur »hin- 
einschauen«. Hinter diesem Befehlswort steht die Adresse - 
und zwar in Klammern! - deren Inhalt geiesen werden soil. 
Die Befehlsfolge: 
A=PEEK( 14000): PRINT A 
oder noch kurzer • • ' 
PRINT PEEK (14000) 

iiest den Inhalt der Speicherzelle 14000 und druckt inn auf 
den Bildschirm. 

In der ersten Zeile wird der Inhalt der Variablen A zugeord- 
net und steht unter diesem Namen fur spatere Verwendung 
im Speicher. Da der Inhalt aber trotz PEEKen in der Zelle 
1 4000 stehenbleibt und von dort immer wieder herausgehoit 
werden kann, bietet sich die Kurzform der zweiten Zeile an, 
die direkt das PEEK-Ergebnis aysdruckt. 

PEEK-Befehl 

- er wird in der foigenden Weise geschrieben: 

PEEK (Adresse) 

- die »Adresse« muG immer in Klammern stehen. 

- der Befehl Iiest den Inhalt der durch die »Adresse« angegebenen Spei- 
cherzelle. 

- der erlaubte Bereich von »Adresse« reicht von Obis 65635. Wird er uber- 
schritten, meidet der Computer dies mit ILLEGAL QUANTITY ERROR*. 

Wir haben gerade vorhin mit dem POKE-Befehl die Zahl 55 
in die Speicherzelle 14000 hineingeschrieben und sie 
danach mit PEEK wieder ausgeiesen. 

Nun, das beweist naturlich noch gar nichts. Schauen wir 
also mal im Speicher rund urn die Zelle 14000 nach, was da 
so drin steht. Mit den Programmzeiien: 
10 FOR 1=13900 TO 14200 
20 PRINT I,PEEK(I) 
30 NEXT I ■ 

schauen wir uns den Speicherbereich von 13900bis 14200 
an. Durch Zeile 20 wird der jeweilige Wert von I und daneben 
die Zahl, die in der Adresse I gespeichert ist, mit nur einem 
PRINT-Befehl ausgedruckt Das Komma zwischen den bei- 
den bewirkt den Abstand von einer Viertei-Zeilenlange. 

Nach RUN sehen wir, daB in alien Speicherzelien entweder 
eine oder 255 steht, mit Ausnahme der Zelle 14000, da 
steht unsere 55. Obrigens hoffe ich, daB Sie wissen, daB mit 
der Commodore-Taste links unten der Ablauf des Programms 
gebremst werden kann - zum besseren Oberbiick, wenn die 
Speicherzelle 14000 vorbeisaust. In diesem Teii des Spei- 
chers steht also praktisch gar nichts. Das ist auch kein Wun- 
der, denn wir tummeln uns ja im oberen Teil des RAM- 
Speichers, der uns fur Basic-Programme zur Verfugung 
steht Unser Mini-Programm von drei Zeilen reicht da natur- 
lich bei weitem nicht hin. Wenn Sie Zeile 20 so abandern, daB 
der Ausdruck ab dem Speicheranfang 4096 beginnt: 
20 FOR 1=4096 TO 5000 

dann sehen wir in der Tat ein Durcheinander von Zahlen, die 
bis hin zur Adresse 41 50 reichen. Das ist - in einem besonde- 
ren Code geschrieben - unser Programm. Danach kommen 
wieder die Leerserien mit und 255. 



Wenn Sie mehr uber Code und Schreibweise, mitdenen die 
Programmzeiien im RAM abgespeichert werden, erfahren 
wollen, dann lesen Sie bitte den Aufsatz »Den C 1 6 und VC 20 
durchschaut« von Christoph Sauer im 64'er-Sonderheft 
3/1986, das ich bereits in der Einleitung als wertvoile Fund- 
grube bezeichnethabe. in diesem Aufsatz finden Sie ab Seite 
32 im Text und in Bild 2, Tabelle 2 und Bild 5b entsprechende 
Erklarungen. 

Schauen wir spaBeshaiber noch in den obersten Teii des 
Speichers, wo laut Bild 1 die mysteriosen Register fur Ein- 
und Ausgabe und fur den TED-Baustein liegen. Ich wahte 
Speicherzelle 65287 ais Versuchskaninehen. 
PRINT PEEK (65287) 

Das ergibt eine 8. 

Jetzt machen wir ein Experiment - das, wie gesagt, uner- 
wunschte Folgen haben kann. Wir andern mutwillig den Inhalt 
dieser Speicherzelle mit: . 

POKE 65287,0 j 

Und siehe da, nach Drucken der < RETURN > -Taste ver- 
schiebt sich der linke Rand des Biidschirms und schneidet 
_ aile linken Zeichen ab. Siesind zwar noch da, aber nicht sicht- 
barv 

Der Originaizustand laBt sich mit dem oben ermittelten 
»Normalwert« wieder herstellen, indem Sie - am Anfang blind 
- eintippen: 
POKE 65287,8 

Dieser Versuch ist gutgegangen. Aber wenn Sie statt der 
oder der 8 die Zahl 33 in die Zelle POKEn: 
POKE 65287,33 

dann geht es schief. Der Bildschirm wird dunkel und durch 
keine Steuertasten laBt er sich wieder beleben - der Compu- 
ter ist »abgesturzt«! 

Ein Mittel bleibt uns doch, namlich die Reset-Taste, die sich 
winzig klein neben dem Netzschalter auf der rechten Seite 
des C16 befindet. 

Zusammenfassung POKE-Befehl 

1. Der POKE-Befehl ist nutziich und gefahrlich zugleich. 

2. Wird eine bestimmte Zahl in eine Speicherzelle gePOKEt, mit der der 
Computer seine eigenen Ablaufe steuert (Bereiche bis 4095, 64768 bis 
65535), kann dadurch der Ablauf beeinfluBt werden. Es kann aber auch 
zum »Absturz« des Computers fuhren. 

3. Mit »Absturz« wird beim Computer der Zustand bezeichnet, in dem kein 
Programm mehr iauft und der Computer auf keine normalen Steuertasten 
mehr reagiert. 

4. Ein abgesturzter Computer kann nur durch Aus- und Wiedereinschalten 
oder durch die Reset-Taste wieder in Gang gesetzt werden. 

Nach dem Aus- und Einschaiten befindet sich der Computer im Anfangszu- 

stand, das heiBt, ein Programm, das vorher im Arbeitsspeicher war, ist verlo- 

ren. 

Mit der Reset-Taste geht der Computer ebenfails in den Anfangszustand 

zuriick, aber der Speicherinhalt bleibt erhalten. Mit einem Trick, der im 

Abschnitt »Erste Hilfe - Basic-Programme retten nach NEW oder Reset« 

beschrieben ist, kann es wieder hergestellt werden. 

5. Es ist empfehlenswert, vor einem POKE-Befehl ein im Arbeitsspeicher 
befindliches Programm fur aile Falle zuerst auf Band oder Diskette zu spei- 
chem! 

12. Erste Hilfe - Basic-Programme 
retten nach NEW oder Reset 

Diese Uberschrift stammt nicht von mir, sondern aus dem 
schon zitierten 64'er-Sonderheft 3/1986, wo auf Seite 32 
beschrieben wird, wie der folgende Trick funktioniert. 

Da er Kenntisse des Betriebssystems des Computers und 
eines Befehls (SYS), den wir nicht behandeln werden, vor- 
ausetzt, gebe ich den Trick nur ais Kochrezeptan: Vorausset- 
zung: Sie haben ein Programm im Computer, zum Beispiel: 

10 PRINT A 
20 PRINT B 
30 PRINT C 
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Jetzt geben Sie - naturlich aus Versehen - NEW ein Oder 
- mit Absicht - den vorher ausprobierten Absturz-POKE- 
Befehl POKE 65287,33. 

Im zweiten Fall drucken Sie die Reset-Taste. 

In beiden Fallen konnen Sie versuchen, die drei Programm- 
zeilen zu LISTen - das Programm ist weg! 

Geben Sie jetzt das Kochrezept direkt ein: 
P0KE4097,1: DELETE 1 

Nach < RETURN > ist das Programm wieder da - mit dem 
LtST-Befehl leicht nachprufbar. 



13. Wir POKEn nock ein Weilchen 



Es gibt keine Computer-Zeitschrift, die nicht unter der Rubrik 

Tips und Tricks alle moglichen POKE-Adressen angibt, mit 

denen sich verbluffende.Effekte erzieien iassen. Fur den 

C 1 6 sind diese Tips noch recht selten. Icb gebe Ihnen daber 

ein paar Hinweise. 

POKE 194,1: PRINT "ABCDE" 

drucktalle Zeichen dieser Programmzeiie revers (invertiert). 

POKE 1344,64 

schaltet die Wiederholfunktion aller Tasten aus 

POKE 1344,0 

nur die Leer-, INST/DEL- und afle Cursor-Tasten wiederholen, 

solange sie gedruckt werden 

POKE 1344,128 

alle Tasten haben Wiederholfunktion (Normalzustand) 

POKE 2026,255 

Zeichen werden nicht uberscbrieben, sondern eingefugt 

POKE 2026,0 

Zeichen werden uberschrieben (Normalzustand) 

POKE 65301,20 

schaltet die Farbe des Bildschirm-Hintergrundes auf violett 

POKE 65305,10 

schaltet die Farbe des Biidschirm-Rahmens auf grun. 

Die beiden letzten POKE-Adressen 65301 und 65305 
wollen wir uns naher anschauen. 

Der Zahlenwert in der Speicherzelie 65301 bestimmt also 
die Hintergrundfarbe, wahrend in Speicherzelie 65305 die 
Rahmenfarbe festgelegt ist' Da nach einem POKE-Befehl 
Zahlen von O bis 255 zugelassen sind, ist es sicher ganz 
interessant, welcheZahl welche Farbe hervorruft Ein kleines 
Programm gibt uns daruber Auskunft: 
10 FOR 1=0 TO 255 
20 POKE 65301,1 
30 PRINT I 

40 GET A$:IF A$="" THEN 40 
50 NEXT I 

Zwischen den Zeilen 10 und 50 wird in einer Schleife die 
Variable I von O bis 255 hochgezahlt 

Der jeweifige Wert von I wird in Zeile 20 in die Speicherzelie 
65301 gePOKEt und andert dadurch die Hintergrundfarbe. 

Urn die Zugehorigkeit der Farben zu den Zahlen zu sehen, 
wird in Zeile 30 der jeweilige Wert von I ausgedruckt. 

Zeile 40 dient dazu, die Schleife schrittweise weiterzu- 
schalten. Der GET-Befehl in dieser Zeile springt solange auf 
seine eigene Zeilennummer zuruck, bis irgendeine beliebige 
Taste gedruckt wird. Erst dann kommt der NEXT-Befehl in 
Zeile 50 zum Zug. 

Diese Anwendung des GETBefehis habe ich im Anfangs : 
kurs in Sonderheft 5/1986 auf Seite 56 vorgestellt. 

Mit diesem kleinen Programm werden pro Tastendruck alle 
Farben »durchgeleiert«, wobei die jeweils als unterste ausge- 
druckte Zahl dem Farbwert entspricht. 

Das Basic des C16 weist einen speziellen Befehl auf, der 
die Zeile 40 wesentlich vereinfacht 



Er heiBt GETKEY und erfuilt denselben Zweck wie die 
ganze Befehlsfolge der Zeile 40. Diese lautet nun: 
40 GETKEY A$ 
So einfach kann Programmieren sein. 

GETKEY-Befehl 

- der Befehl wird so geschrieben: GETKEY Variable. 

- GETKEY. weist das Zeichen einer beliebig gedruckten Taste der Varia- 
blen zu. Dabei muB der Typ der gedruckten Taste mit dem Variablentyp 
hinter GETKEY ubereinstimmen. 

- die Programmzeiie: 10 GETKEY A$ 

ist identisch mit: 10 GET A$:IF A$= " 'THEN 10 

- im Unterschied zu GET wartet GETKEY solange, bis eine Taste gedruckt 
worden ist. 

Was wir vorher mit der Speicherzelie 65301 fur die Hinter- 
grundfarbe gemacht haben, konnen wir ebenso mit der Zeile 
65305 fur die Umrandung machen. ; 

Diese beiden Adressen gehoren ztji den »Registern« des 
TED-Bausteins, der fur Tone und Grafik zustandig ist. 

Zusammenfassung Register *"' 

1. Ein Register ist eine Speicherzelie im Mikroprozessor (CPU) oder in 

einem anderen elektronischen Baustein. Im C16 besteht ein Register aus 

8 Bit, das entspricht 1Byte. 

2. in einem Register werden Daten gespeichert, die den Ablaut von arithme- 

tischen, iogischen oder von Steueroperationen festiegen. 

3. Der inhalt von Registern kann mit PEEK ausgelesen und was mit POKE 

verandert werden. 

Jetzt kennen wir also die beiden Farbregister und wissen, 
wie wir die Farben des Bildsehirms unseren Wunsehen 
anpassen konnen. 

Bevor Sie jetzt anfangen, sich mit dem letzten kleinen Pro- 
gramm eine Liste aller Farbcodes anzufertigen, will ich Ihnen 
schnell sagen, daB auch in diesem Fall das Basic des C16 
einen Befehl zur Verfugung stellt, der ein langwieriges 
POKEn in die beiden Farbregister unnotig macht. 

Dieser Befehl heiBt COLOR. 

Ihm werden drei Parameter beigegeben, fur den Farbbe- 
reich, fur die Farbe und fur die Helligkeit, die auch »Luminanz« 
genannt wird. Nahere Einzelheiten stehen in der folgenden 
Befehlserklarung. 

Fur uns kommen zur Zeit nur die Farbbereiche 0, 1 und 4 
in Frage. 

Farbbereich 2 und 3 bieten die Moglichkeit, im sogenann- 
ten Graf ik-Modus alien Zeichen und Buchstaben zwei Farben 
mehr, also 3 verschiedene Farben, zu geben. Ich gehe in die- 
sem Kurs auf diesen Modus nicht ein. Wenn Sie aber etwas 
uber »Multicolor« wissen wollen, dann lesen Sie bitte den Auf- 
satz »Grafik und Sound mit dem C16« von C. Spitzner im 
schon oft zitierten 64'er-Sonderheft 3/1986 ab Seite 21. 



14. Der C 16 hat 121 Farben 



MitdemCOLOR-Befehl konnen wir also 16 x 8 verschiedene 
Farben einstellen. Aber Sie werden sehen, in Wirklichkeit 
sind es nur 15 x 8+1, namlich 121, weil es von der Farbe 
schwarz nur eine einzige Helligkeitsstufe gibt. 

COLOR-Befehl 

- er wird mit drei Angaben versehen: 
COLOR Farbbereich.Farbe.HelJigkeit 

- mit Zahlen von bis 4 konnen 5 Farbbereiche ausgewahlt werden 
und zwar: 

Bildschirm-Hintergrund 

1 Buchstaben und Zeichen (Vordergrund) 

2 Mehrfarben-Modus 1 

3 Mehrfarben-Modus 2 
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4 Bildschirm-Umrandung 

- die Farbe des ausgewahlten Farbbereiches wird durch 16 Zahlenwerte 
festgelegt Es gilt: 

1 schwarz 9 orange 

2 weiB 10braun 

3 rot 11 gelbgrun 

4 lila 12 rosa 

5 purpur 13 blaugrun 

6 gruii 14 hellbiau 

7 biau 15 dunkelblau 

8 gelb 16 hellgrun 

- mitZahlenvon0bis7 konnen fur jede der obengenannten Farben(auBer 
fur schwarz) 8 Helligkeitsstufen (Luminanz) eingestellt werden. ist die 
dunkelste, 7 ist die hellste Stufe. 

Der Wert fur die Heiligkeit kann auch weggelassen werden. Dann wird er 
automatisch auf den Normalwert 6 gesetzt. 



Wie ublich wollen wir uns ein kleines Ubungsprogramm 
entwickeln, mit dem wir diesmal aile Farbkombinationen in 
alien dret Farbbereichen ausprobieren konnen. 

Im Mittelpunkt steht naturlich der COLOR-Befehl: 
70 COLOR B,F,H 

Den Bereich B wollen wir mit der 0-, 1- und 4-Taste auf 
(=Hintergrund), 1 (=Zeichen) und 4 (— Umrandung) um- 
schalten. 

Die Farbe F und die Heiligkeit H wollen wir durch mehrfa- 
ches Drucken der entsprechenden »Bereichs«-Taste weiter- 
schalten. Die Abfrage einer Taste geht mit GETKEY wie 
gehabt. Urn zu prufen, ob eine der drei genannten Tasten 
gedruckt worden ist, gibt es mehrere Moglichkeiten. In Zeile 
40 steht das Zeichen der Taste als String zwischen Anfuh- 
rungszeichen. 
30 GETKEY A$ 
40 IF A$="0" THEN B=0 

Wir konnen aber auch die ASCII-Codewerte der Tasten 
abfragen, die wir der ASCil-Tabelle des Bedienungshandbu- 
ches entnehmen. Wir wollen das mit der 1 -Taste fur den 
Bereich 1 machen: 
50 IF A$=CHR$(49) THEN B 
50 IF A$=1:PRINT"A"; 

Wenn B auf 1 gesetzt wird, ist der Farbbereich agf »Zei- 
chen« (Vordergrund) geschaltet. Deswegen drucken wir in 
diesem Modus den Buchstaben A, mit Semikolon nebenein- 
ander gesetzt, aus. 

Die dritte Abfragetechnik verwendet ebenfalls den ASCII- 
Code, allerdings in Verbindung mit dem schon bekannten 
ASC-Befehl (Seite 60 im Anfangskurs).- 
60 IF ASC(A$)=52 THEN B=4 

Urn F und H laufend zu verandern, zahlen wir beide in zwei 
geschachtelten Schleifen hoch 
10 FOR F=l TO 16 
20 FOR H=0 TO 7 
80 NEXT H,F 
90 GOTO 10 

Der Rucksprung von Zeile 90 sorgt fur Wiederholbarkeit 
des ganzen Vorganges. 

Listing 2 bringt alle Zeilen in die richtige Reihenfolge: 
10 FOR F=l TO 16 
20 FOR H=0 TO 7 
30 GETKEY A$ 
40 IF A$="0" THEN B=0 
50 IF A$=CHR$(49) THEN B=1:PRINT"A"; 
60 IF ASC(A$)=52 THEN B=4 
70 COLOR B,F,H 
80 NEXT H,F ' 
90 GOTO 10 

Sooft Sie die <0> drucken, schalten Sie die Hintergrund- 
farbe durch aile ihre Helligkeitsstufen weiter. Die <1 >-Taste 
machtdasselbe mit dem Buchstaben A, der allerdings immer 
wieder neu auf den Bildschirm geschrieben wird. Die 



<4>-Taste schlieBlich erlaubt Ihnen, die Farbe der Umrah- 
mung weiterzuschalten. 

Mit dem COLOR-Befehl ersetzen wir also auf einfache 
Weise das POKEn der Farbregister. Was tun wir aber, wenn 
wir die Farbe und die Heiligkeit der gerade eingestellten Farb- 
bereiche ermitteln wollen? Nun, wir konnten mit dem PEEK- 
Befehl in den Registern nachschauen. Das geht in der Tat, 
aber auch hierfur bietet uns das Basic des C16 schnellere 
Alternativen. 

Mit dem Befehl RCLR, abgekiirztaus »Return Co!or«, was 
soviel heiBt wie »Farbe zuruckholen«, konnen wir die Zahl der 
gerade eingestellten Farbe erfragen. 

Entsprechend holt uns der Befehl RLUM den Heliigkeits- 
wert (Luminanz). 

Zusammenfassung RCLR- und RLUM-Befehl 

- RCLR (B) gibt den dem Farbbereich B (0 bis 4) zugeordneten Farbwert 
an j 

- RLUM (B) gibt die dem Farbbereich BJzugeordnete Heiligkeit an 

- bei beiden Befehlen muB das Ergebnis entweder einer Variablen zuge- 
ordnet werden, Oder es wird in Verbindung mit einem anderen Befehl 
(zum Beispiel PRINT) verwendet. 

Wenn Ihnen beim Verwenden des Listing 2 eine Farbkombi- 
nation besonders gut gefailt, konnen Sie die Werte im Direkt- 
Modus herausfinden: 
PRINT " HINTERGRUND " RCLR ( ) ; RLUM ( 0) 
PRINT " ZEI CHEN " RCLR ( 1 ) ; RLUM ( 1) 
PRINT "UMRANDUNG "RCLR (4); RLUM (4) 

Ein biBchen mit den Farben experimentieren lohnt schon, 
denn nicht alle Farben passen zueinander und nicht alle 
Buchstabenfarben sind auf alien Hintergrundfarben gut zu 
lesen. Als Regel gilt, daB Hintergrund- und Zeichenfarbe der- 
selben Heiligkeit nicht lesbar sind. 

15. Der Bildsdiirmspeicher 

Ich mocbte Sie gern noch ein biBchen langer mit dem Spei- 
cher beschaftigen. Schauen Sie sich bitte nochmal Bild 1 an. 
Da sehen wir ab Adresse 3072 bis 4095 das »Bildschirm- 
RAM«. 

Urn zu demonstrieren, was das ist, zeige ich Ihnen ein klei- 
nes Experiment: 

- Setzen Sie den Computer mit einem Reset zuruck 

- Loschen Sie den Bildschirm mit der < CLEAR > -Taste 

- Fahren Sie mit dem Cursor in die untere Halfte des Bild- 
schirms 

- Geben Sie direkt ein: 
POKE 3072,1 

Ganz links oben auf dem Bildschirm steht plotzlicb ein A. 

Wenn Sie aus der 1 eine 2 machen und den Befehl wieder- 
holen, verwandelt sich das A in ein B. 

Und noch ein Versuch: andern Sie 3072,2 in 3073,3 urn 
und geben es ein. Jetzt steht neben dem B ein C. 

Die Zahl 1 erzeugt also ein A, 2 ein B und 3 ein C. Dann 
muBte eigentlich die 26 ein Z hervorrufen - was sie auch tut. 

Wir haben also einen neuen Code fur die Zeichen auf dem 
Bildschirm gefunden. 

Ein ahnlicher Zusammenhang deutet sich bei den Adres- 
sen an: 3072 setzt den Buchstaben an den ersten Platz des 
Bildschirms, 3073 an den zweiten. Der Bildschirm hat 40 
Stellen pro Zeile und das fur 25 Zeilen. Das macht insgesamt 
1000 Platze auf dem Bildschirm. 

Daher muBte die Adresse 4071 einen Buchstaben ganz 
rechts unten plazieren. 
POKE 4071,25 
setzt ein Z genau dorthin, wie vorhergesagt. 

Ich will Sie nicht langer plagen und das alles zusammenfas- 
sen: 
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Bildschirmspeicher 

1. Der Elektronenstrahl, der mit grower Geschwindigkeit uber den Bild- 
schirm des Fernsehers oder des Monitors flitzt und dortBilderoderTexthin- 
malt, hat kein Gedachtnis. Deswegen mu(3 der Computer alle Angaben, die 
der Elektronenstrahl braucht, in einem gesonderten Speicher festhalten, 
der deshalb »Bildschirmspeicher« heiBt 

2. Im Bildschirmspeicher sind alle Zeichen gespeichert, die zum jeweiligen 
Zeitpunkt auf dem Bildschirm erscheinen. 

3. Fur den Bildschirmspeicher sind im RAM die Speicherzellen 3072 bis 
4095 reseviert. 

Da auf dem Bildschirm des C16 genau 1000 Platze vorhanden sind (40 
Stellen mal 25 Zeilen), reicht der Bildschirmspeicher nur bis Adresse 407 1 . 
Die restlichen 24 Byte sind frei. 

4. Alie Zeichen und Buchstaben stehen im Bildschirmspeicher mit einem 
speziellen Code, derim Bedienungshandbuch auf den Seiten 213 und 214 
aufgelistet und auf Seite 212 erklart ist. Der Bildschirmcode hat nichts mit 
dem ASCII-Code zu tun. 



Durch direktesPOKEn von Bildschirm-Code-Werten in den 
Bildschirmspeicher lassen sich Effekte erzielen, die mit dem 
PRINT-Befehl nur sehr umstandlich moglich waren. Ich will 
Ihnen das an einem Beispiel zeigen. 

16. Bildschirmeffekte 



Ziel des Experiments soil sein, eine bewegte farbtge Umran- 
dung des Bildschirms zu erzeugen, die als Programmteil in 
anderen Programmen verwendbar ist ich verwende dazu ein 
Beispiel aus dem Buch »VC 20-Spielebuch« von A. Dripke, 
das viele gute Ideen und Anleitungen enthait. Wie ublich 
gehe ich in Stufen vor. 



10 FOR 1=0 TO 999 
20 POKE 3072+1,42 
30 NEXT 

Diese drei Zeiien zahlen vom Anfang des Bildschirmspei- 
chers (3072) 1000 Platze hoch (von bis 999) und POKEn 
in jeden Platz einen Stern. Der Bildschirmcode des Sternes 
ist 42 (siehe oben erwahnte Tabelle). 

Auffallend bei diesem eindrucksvollen Vorgang ist, daft der 
Cursor und die READY- Meldung nicht anschlieBend beim 
letzten Stern erscheint, sondern dort, wo der letzte Basic- 
Befehl - in unserem Fall das RUN - auf den Bildschirm 
geschrieben' worden ist. 

Im nachsten Schritt lassen wir den Stern nur auf der ober- 
sten und untersten Zeile laufen. Die Schleife zabltdaher jetzt 
nur bis 39 (Zeilenlange): 
10 FOR 1=0 TO 39 
20 POKE 3072+1,42 
30 POKE 3072+960+1,42 j 

40 NEXT I ■ 

Neu ist hier die Zeile 30. Sie erhoht die Adresse urn 
24x40=960 Platze und beginnt dadurch in der untersten 
Zeile. Dieses Programm malfalso eine Rahmenlinie oben und 
unten. Jetzt fehit noch links und rechts. 
50 FOR K=0 TO 960 STEP 40 
60 POKE 3072+K,42 
70 POKE 3072+39+K,42 
80 NEXT K 
90 GOTO 10 

Um von oben nach unten zu zahlen, beginnen wir mit O, 
gehen aber in 40er-Schritten gleich an den Anfang der 
jeweils nachsten Zeile bis zum Anfang der letzten Zeile. Das 
gibt uns in Zeile 60 den linken Rand. 




Mit einem Akustikkoppler offnen Sie Ihrem Computer das Tor zur ganzen Welt. Der 
HITRAMS 300 C stach im Akustikkoppler-Test der Ausgabe 3/86 durch diebesten Ubertra- 
gungseigenschaften hervor. Sie erhalten ihn bei uns ais Fertiggerat, lediglich eine Block- 
batterie muB eingesetzt und das Gehause zugeschraubt werden. Sie konnen den Koppler 
auch uber ein 12-Volt-Netzteil, das in jedem Elektronikgeschaft preisgOnstig erhaltlich ist, 
betreiben. Die Bauanleitung fur ein RS 232-lnterface finden Sie in der Ausgabe 3/85. 



Preis fur Akustikkoppler 



<ohne Batterie) 

Achtimg: Nicht fiir Wiederverkaufer 



Bisher / 

D«im- ■--■-■■..:. 

' ^ * inkJ. MwSt. Unverbindliche Preisempfehlung 

Bestelfnummer: HW 072 



Betriebssoftware auf Diskette 

Bestellnummen HW 071 DM 14,80*sFr. 13,90 

Die Betriebssoftware befindet sich au8erdem auf der 
Programm-Service-Diskette des 64er-Sonderheftes 
SH 7(85. 



Bitte verwenden Sie fur Ihre Bestellung immer die abgedruckte Postgiro-Zahikarte oder 

einen Verrechnungsscheck. 

Sie erleichtern uns damit die Auftragsabwicklung, und dafur berechnen wir 'Ihnen keine 

Versandkosten. 

Bestellungen aus der Schweiz bitte direkt an: 

Markt&TechnikVertriebs AG, Kollerstrasse 3, CH-6300 Zug, Tel. 042/41 56 56 

Bestellungen aus Osterreich bitte direkt an: 

Ueberreuter Media Handels- und Verlagsges. mbH, Alser StraSe 24, 1091 Wien, 

Tel. 02 22/481538-0 




MarkE Tfechnik 

Unterfiehmensaereich Buchveriag 

Hans-PinsetStraBe 2, 8013 Haar bei Munchen 
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Fur die andere Seite benutzt die Zeile 70 die gleiche Zah- 
lung, POKEt aber den Stern um 39 Platze verschoben, also 
am rechten Rand. Ganz zum SchluS springen wir in Zeile 90 
auf den Anfang zuruck, um das lastige READY zu verhindem. 

Wenn Sie Schwierigkeiten mit dem Berechnen der Adres- 
sen im Bildschirmspeicher haben, dann nehmen Sie bitte Bild 
4. Hier sind alle Speicherzellen des Bildschirms mit Zeiien- 
und Spalten-Nummern angegeben. Diese Darsteilung wird 
Ihnen sicher helfen. 

Jetzt wollen wir diese Umrandung bunt machen, und zwar 
nach jedem Umlaut in einer anderen Farbe. Probieren wir es 
mit dem COLOR- Betehl in einer ubergeordneten Schleite: 

5 FOR F=l TO 16 

6 COLOR 1,F,4 
85 NEXT F 

Jetzt muBte nach dem ersten Umlaut ein welterer mit wei- 
(3en Sternen kommen - tut es aber nicht. Am COLOR-Befehl 
iiegt es nicht, denn wenn Sie inn mit COLOR 4,F,4 aut die 
Rahmenfarbe umschaiten, zeigt er durchaus sein Konnen. 

Aber: Wenn man in" den Bildschirm POKEt, nutzt der 
COLOR-Befehl nichts! 

Auch hier bietet der Computer eine Losungan. Nehmen Sie 
bitte noch einmal Bild 1 her. Zwischen den Adressen 2048 
und 3071 Iiegt das »Farb-RAM«. 



17. Der Farbspekher 



Dieser Bereich im RAM ist der ZwiHing des Bildschirmspei- 
cher, ist jedoch nur fur die Farben zustandig. 

In Bild 5 sehen Sie eine Tabelie, in der die Speicherzelle 
2048 genau der Speicherzelle 3072 im Bildschirmspeicher 
entspricht. Wenn wir jetzt das wiederholen, was wir gleich 
nach der Uberschrift »Bildschirmspeicber« gemacht haben, 
und POKEn zusatzlich in die 1. Zeile des Farbspeichers 
2048 die Zahi 1 00, dann andern wir die Farbe des Zeichens, 
also: 

- Bildschirm loschen 

- Cursor in die untere Halfte 

- POKE 3072,1 

- POKE 2048,100 

Das A erscbeint in Lila. 

Sie werden jetzt sicher fragen, wie es kommt, daB die Zahl 
100 ein Farbwert ist. Die Antwort ist einfach: Erinnem Sie 
sich, mit dem COLOR-Befehl konnen wir durch 16 Grundfar- 
ben und 8 Helligkeiten 121 verschiedene Farben einstellen. 
Das konnen wir im Farbspeicher auch, nur werden da die Far- 
ben der Reihe nach numeriert. 

Jetzt verrate ich Ihnen noch, daB wir im Farbspeicher 256 
Farbwerte verwenden konnen. Was die Werte uber 128 
machen, zeigt uns der folgende Einzeiler: 
10 COLOR 0,1: FOR 1=0 TO 255: POKE 3072+1,1: POKE 
2048+1 , I :NEXT 

Zuerst setzen wir den Bildschirm (Bereich 0) auf Schwarz 
(Farbe 1}. Bei Schwarz konnen wir uns eine Heiligkeitsan- 
gabe sparen. Dann POKEn wir in die ersten 256 Bildschtrm- 
Speicherzeilen den Buehstaben A (Bildschirmcode=1). 
Gleichzeitig POKEn wir in die ersten 256 Farb- 
Speicherzellen die Farbwerte bis 255. 

Nach RUN, das Sie am besten wieder in der Mitte des Bild- 
schirms eintippen, kommen zuerst die 16 Farben in je 8 Hel- 
ligkeitsstufen. Danach folgen dieselben Farben noch einmal 

- aber die Buehstaben blinken! Jetzt wissen wir.was passiert, 
wenn wir die Tasten < FLASH-ON/FLASH-OFF > drucken. 
Farbspeicher 

1. Im Farbspeicher sind aiie Farben gespeichert, in der 
jedes Zeichen auf dem Bildschirm erscheint. 

2. Fur den Farbspeicher sind im RAM die Speicherzellen 
2048 bis 3071 reserviert 



Da auf dem Bildschirm des C 1 6 genau 1000 Platze vorhan- 
den sind (40 Stellen mai 25 Zeilen), reicht der Farbspeicher 
nur bis Adresse 3048. Die restlichen 24 Byte sind frei. 

3. Als Codewerte fur die Farben gelten die Zahlen von bis 
255. Die Werte bis 15 entsprechen den Farbwerten 1 bis 
16 des COLOR-Befehls und zwar in der dunkelsten Heliig- 
keitsstufe 0. Alle nachfolgenden 16er-Blocke wiederholen 
die Farben in steigender Heiligkeit. 

Ab Farbwert 128 wiederholen sich die Farben, nur blinken 
die Zeiche6n. Die Farbwerte konnen mit Hilfe der Angaben 
beim COLOR-Befehl und folgender Formel festgestellt wer- 
den: 

Speicherfarbe - COLOR-Farbe + Heiligkeit x 16 - 1 

Wenn Sie die Formel von Punkt 3 der Zusammenfassung 
anwenden, dann muOten die beiden Befehtskombinationen 
dasselbe Ergebnis bringen: 

(a) COLOR 1,6,4 PRINT "A" 

(b) POKE 3072,1:POKE 2048,69 j 
denn: COLOR-Farbe - 6 ! 

Heiligkeit = 4 

und das gibt: 6 + 4 x 16 - 1 ,= 69 

Wir woilten aber eigentlicrfdas Umrahmungsprogramm mit 
Farben versehen. Nachdem es mit dem COLOR-Befehl nicht 
geht, machen wir es mit POKE in den Farbspeicher. 
5 FOR F=0 TO 255 
10 FOR 1=0 TO 39 

20 POKE 3072+1, 170: POKE 2048+1, F 
30 POKE 3072+960+1, 170: POKE 2048+960+1, F 
40 NEXT I 

50 FOR K=0 TO 960 STEP 40 
60 POKE 3072+K, 170: POKE 2048+K,F 
70 POKE 3072+39+K, 170: POKE 2048+39+K,F 
80 NEXT K 
85 NEXT F 
90 GOTO 5 
Ich habe folgendes gemacht 

Zeilen 5 und 85 bilden die ubergeordnete Schieife, inner- 
halb der wir die Farbe F in den Farbspeicher POKEn. 

Um sicherzustelien, daB die Farbe F in diejenigen Spei- 
cherzellen des Farbspeichers kommt, die denen des Bild- 
schirmspeichers entsprechen, habe ich an jeden Bildschirm- 
POKE-Befehl ein POKE 2048 mit denselben Argumenten 
angehangt. Nur hinter dem Komma steht ein F fur die Farbe 
und nicht die 1 fur den Buehstaben A. 

Sie sehen, die Arbeit des Ausrechnens der Adresse 
braucht man nur einmal zu machen. 

Jetzt habe ich noch eine Variante vor: 
Die Umrandung soli nicht oben und unten beziehungsweise 
links und rechts gleichzeitig laufen, sondern immer im Kreis. 

Bisher hatten wir diese Situation: 
Zeile 20: oben, von links nach rechts 
Zeile 30: unten, von links nach rechts 
Zeile 60: links, von oben nach unten 
Zeile 70: rechts, von oben nach unten. 
"Wir mussen das so abandern: 
Zeile 20: oben, bleibt 
Zeile 70: rechts,bleibt 
Zeile 30: unten, von rechts nach links 
Zeile 60: links, von unten nach oben. 

Die Reihenfolge andert sich also, und die Zeilen 30 und 60 
iaufen in der entgegengesetzten Richtung. Um das zu errei- 
chen, mussen wir ieider fur jede POKE-Zeiie eine eigene 
Schieife bauen. In den Zeilen 30 und 60 wird ruckwarts 
gezahlt, mit negativem STEP. 

In der neuen Reihenfolge und mit 16 Farbwerten im hellen 
Bereich {96 bis 111) steht das so aus {Vorsicht, neue Zeilen- 
nummern!): 
5 FOR F=96 TO 111 
10 FOR 1=0 TO 39 
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20 POKE 3072+1, 170: POKE 2048+1, F 

30 NEXT I 

40 FOR K=0 TO 960 STEP 40 

50 POKE 3072+39+K; 170: POKE 2048+39+K,F 

60 NEXT K 

70 FOR 1=39 TO STEP -1 

80 POKE 3072+960+1, 170: POKE 2048+960+1, F 

90 NEXT I 

100 FOR K=960 TO STEP -40 

110 POKE 3072+K, 170: POKE 2048+K,F 

120 NEXT K 

135 NEXT F 

140 GOTO 5 

Jetzt setzen wir ganz oben noch ein weiteres Basic- 
Schmankerl ein - zum Loschen des Bildschirms. 

Im Anfangskurs habe icb schon gezeigt, wie man mit dem 
Befehl PRINT CHR$(147) die Funktion der CLEARTaste in 
ein Programm einbauen kann. Das Basic des C 1 6 hat hierf iir 
einen eigenen Befehi, er heiBt SCNCLR, was eine Abkurzung 
von »Screen Clear* - also »Bi!dschirm I6schen« - ist. 
3 SCNCLR 

SCNCLR-Befehl 

- dieser Befehl loscht den Bitdschirm und gibt READY aus, wenn keine 
weitere Programmzeite foigt. 

- ein im Speicher stehendes Programm wird davon nicht beruhrt. 

Das ganze Umrahmungsprogramm ist in Listing 3 zusam- 
mengefaGt: „ 

3 SCNCLR 

5 FOR F=96 TO 111 
10 FOR 1=0 TO 39 

20 POKE 3072+1, 170: POKE 2048+1, F 
30 NEXT I 

40 FOR K=0 TO 960 STEP 40 
50 POKE 3072+39+K, 170: POKE 2048+39+K,F 
60 NEXT K 

70 FOR 1=39 TO STEP-1 

80 POKE 3072+960+1, 170: POKE 2048+960+1, F 
90 NEXT I 

100 FOR K=960 TO STEP-40 
110 POKE 3072+K, 170: POKE 2048+K,F 
120 NEXT K 
130 NEXT F 
140 GOTO 5 

18. Sdileifen mil »DO-LOOP« 



Schleifen sind Ihnen nichts Neues. Im Listing 3 haben wir 

nicht weniger als funf davon eingebaut. Wir haben bisher 

zwei Methoden des Schleifenbindens gelernt: 

10 X=X+1 100 FOR X=0 TO 50 

20 PRINT X 110 PRINT X 

30 GET A$ 120 GET A$ 

40 IF A$="Z" THEN 70 130 IF A$="Z" THEN 150 

50 IF X=50 GOTO 99 

60 GOTO 10 140 NEXT X 

70 PRINT "STOP" 150 PRINT "STOP" 

90 END 190 END 

Links stent die Hochzahlmethode (Zeile 10) mtt der Pru- 
fung {Zeile 50) auf das obere Schleifenende. 

Rechts steht die FOR-TO-NEXT-Methode, in der das Hoch- 
zahlen und die Prufung auf 50 schon eingebaut ist. 

Bei beiden gleich ist die zusatzliche Prufung mit GET A$, 
ob wahrend des Ablauts die ZTaste gedruckt worden ist, die 
das Programm fruhzeitig abbricht. 

Wir mussen ubrigens GET und nicht GETKEY nehmen, 
denn GETKEY wartet auf den Tastendruck, GET aber nicht. 



Ich habe auBerdem als ietzte Zeile den END-Befehi ange- 
hangt damit Sie jedes Programm mit RUN 10 oder RUN 100 
einzeln laufen iassen konnen. 

Die FOR-NEXT-Schleife ist wie ublich urn eine Zeile kurzer, 
lauft aber nach Erreichen der 50 iiber den PRINT-Befehl, 
wahrend man mit der GOTO-Zahlschteife direkt auf das Ende 
in Zeile 90 springen kann. 

Soviel zu den »alten« Methoden. Das Basic des C 1 6 besitzt/ 
zwei weitere Methoden der Schleifenbildung und Abfrage 
und zwar mit den Befehlen DO-LOOP {auf Deutsch »mache 
- Schleife«) und der Abfrage mit WHILE und UNTIL (»wah- 
rend«, »bis«). Zusatzlich gibt es noch den Befehl EX77~{»Aus- 
gang«). 

Obwohl die Namen fur sich sprechen, mussen wir uns den- 
noch die Details ansehen. 

Eine ewige Schleife erhalten wir mit DO am Anfang und 
LOOP am Ende: 

200 DO j 

210 PRINT X ! 

220 X=X+1 
240 LOOP 

Um die Schleife nur bis'50 laufen zu Iassen, gibt es mit die- 
sen neuen Befehlen funf Moglichkeiten: 

1. mit EXIT 
300 DO 

310 PRINT X 

320 IF X=50 THEN EXIT 

330 X=X+1 

340 LOOP 

350 PRINT "STOP" 

390 END 

Die Schleife wird mit den beiden Befehlen DO und WHILE 
gebildet. Die Prufung in der Zeile 320 springt mit dem EXIT- 
Befehl auf die Zeile, die nach dem LOOP- Befehl folgt. 

2. mit DO-UNTIL 
400 DO UNTIL X=51 
410 PRINT X 
420 

430 X=X+1 
440 LOOP 

450 PRINT "STOP" 
490 END 

Jetzt ist die Prufung in Zeile 400 eingebaut, allerdings auf 
51 als oberste Grenze, Zeile 420 entfallt Die Schleife lauft 
solange, bis die UNTIL-Prufung erfolgreich ist 

3. mit LOOP-UNTIL 
500 DO 

510 PRINT X 
530 X=X+1 
540 LOOP UNTIL X=51 
550 PRINT "STOP" 
590 END 

Diese Schleife hat die UNTIL-Bedingung nach dem LOOP- 
Befehl; der Effekt ist der gieiche wie bei Nr. 2. 

4. mit DO-WHILE 

600 DO WHILE X <> 51 

610 PRINT X 

630 X=X+1 

640 LOOP 

650 PRINT "STOP" 

690 END 

Die Prufung mit WHILE funktioniert genau umgekehrt wie 
die UNTIL-Prufung. Die Schleife lauft solange die Prufbedin- 
gung zutrlfft. 

5. mit LOOP-WHILE 
700 DO 

710 PRINT X 

730 X=X+1 

740' LOOP WHILE X <> 51 
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750 PRINT "STOP" 
790 END 

Hier steht die WHILE-Prufung beim LOOP-Befehl, die Wir- 
kung ist dieselbe wie bei Moglichkeit 4. 

Der eigentliche Unterschied zwischen DO- LOOP und 
FOR-NEXT zeigt sich, wenn wir jetzt die zusatzlicne GET- 
Abfrage wie in den Programmen 10-99 und 100-199 ein- 
bauen. 

Ein Aussprung aus einer FOR-NEXT-Schleife, noch ehe die 
obere Grenze der Zahlvariablen (X) erreicht ist, schlieBt die 
Schleife »offiziell« nicht ab, was bei weiteren Rucksprungen 
in das Programm zu FehJem fuhren kann. 

Im Gegensatz dazu ist eine DO-LOOP-Schleife nach einem 
Aussprung automatiseh abgeschlossen und daher gefahrlos. 

ich zeige diesen Aussprung sowohl mit EXIT als auch mit 
UNTIL: 

800 DO UNTIL X=51 900 DO UNTIL X=51 

810 PRINT X 910 PRINT X 

320 GET A$ 920 GET A$ 

830 IF A$="Z" THEN -EXIT 
840 X=X+1 940 X=X+1 

850 LOOP 950 LOOP UNTIL A$="Z" 

860 PRINT "STOP" 960 PRINT "STOP" 

890 END 990 END 

Interessant ist auch, daB sowohl der DO-Befehl als auch 
der LOOP-Befehl mit einer Prufung verknupft werden kann. 

AuBerdem ist auffallend, daB DO-LOOP- Schleifen ohne 
GOTO-Befehle auskommen. 

DO-LOOP-Schleifen konnen genauso verschachtelt wer- 
den wie FOR-NEXT-Schleifen. Als Beispiei nehme ich das 
kleine Programm aus dem Anfangskurs in Sonderheft 
5/1986, mit dem ich dort die geschachtelten Schleifen 
erklart habe. Dort steht es auf Seite 64 unter dem zugehori- 
gen Bild. 

Hier steht dieses Muster rechts, das gfeichwertige DO- 
LOOP-Programm steht links: 
1000 DO UNTIL X<3 1100 FOR X=l TO 3 

1010 X=X+1 1110 FOR Y=X TO X+2 

1020 Y=X 

1030 DO UNTIL Y=X+3 

1040 PRINT Y 1140 PRINT Y 

1050 Y=Y+1 

1060 LOOP 1160 NEXT Y 

1070 LOOP 1170 NEXT X 

1090 END 1190 END 

Wir sehen, daB die DO-LOOP- Schachtelung aufwendiger 
ist. 

Zusammenfassung 
DO-LOOP-EXIT, 
DO-LOOP-UWIL, 
DO-LOOP-WHILE 

- mit DO beginnt eine Schleife, mit LOOP springt sie auf DO zuruck. Alle 
Programmzeilen zwischen den beiden Befehlen werden als Schleife wie- 
derholt 

- der Befehl EXIT springt aus einer Schleife heraus auf diejenige Pro- 
grammzeile, die hinter dem LOOP-Befehl folgt. EXIT steht als Ergebnis 
hinter einer IF-THEN-Prufung. 

- UNTIL kann sowohl als Kombination DO-UNTIL als auch LOOP-UNTIL 
verwendet werden. Hinter UNTIL folgt eine Prufungsbedingung, bei 
deren Eintreten die Schleife beendet wird (Sprung auf Zeile hinter 
LOOP). 

- WHILE ist eine andere Art der Prufung (hinter DO oder LOOP), welche 
die Schleife solange laufen laBt, bis die hinter WHILE stehende Prufbe- 
dingung nicht mehr zutrifft. 

- DO-LOOP-Schleifen konnen geschachtelt werden. 

- DO-LOOP-Schleifen sind auch bei Ausspringen aus der noch laufenden 
Schleife abgeschlossen. 

Die Vermutung liegt nahe, daB die drei Schleifenprinzipien 

- Zahlen und Rucksprung mit GOTO 



- FORTO-NEXT-Schleife 

- DO-LOOP-Schleife 

sich auch in der Laufzeit unterscheiden. 

Sie haben sich wahrscheinlich noch keine Gedanken 
gemacht, wie iange die Ausfuhrung eines Programms 
braucht. Aber glauben Sie mir, irgendwann im Lauf Ihrer Pro- 
gramm iertatigkeit werden Sie an einem Punktankommen, an 
dem Ihnen ein Basic-Program m einfach zu langsam ist Typi- 
scherweise passiert das bei Grafik-Programmen. 

Bevor Sie dann zu dem Generalbeschleuniger »Maschi- 
nensprache« greifen, lohnt es sich durchaus zu uberlegen, 
wie man Basic-Programme beschleunigen kann. Und daB 
man das kann, habe ich in einer Kursfolge gezeigt, die erst 
kurzlich in ihrer Gesamtheit wieder veroffentlicht worden ist. 
Sie finden sie im 64'er-Sonderheft 2/1986 ab Seite 44. 

Dabei habe ich eine Methode gezeigt, wie man die Laufzeit 
eines Programmes messen und auf dem Bildschirm aus- 
drucken kann. Diese Methode will ichhier verwenden, urn die 
drei Schleifentypen zu testen. 

Dazu brauchen wir aber noch zwei weitere Basic-Befehle. 



19. Die Uhr des Computers 



Der C16 hat eine innere Uhr eingebaut, deren Stand abge- 
fragt, ausgedruckt und somit zu Messungen und zur Pro- 
grammsteuerung eingesetzt werden kann. 

Diese Uhr startet beim Einschalten des Rechners mit dem 
Stand O und lauft solange, bis sie durch einen entsprechen- 
den Befehl auf Null oder auf irgendeinen anderen Wert 
gesetzt wird. 

Der aktuelle Stand dieser Uhr kann mit dem Befehl T/abge- 
fragt werden. Mit der ewigen Schleife: 
DO: PRINT TI:L00P 

drucken wir etn laufendes Band von sich schnell andernden 
Zahien auf den Bildschirm. Diese Zah I durch 60geteiltgibtuns 
die Zeit seit dem Loslaufen (Einschalten) in Sekunden an, 
durch 3600 geteilt in Minuten und durch 216000 geteilt in 
Stunden. 

Weil diese Darstellung etwas muhsam ist, wenn man eine 
echte Zeitangabe braucht, besitzt Basic noch einen anderen 
Befehl 77$, der die Zeit in einer sechsstelligen Zahl ausdruckt. 
Dabei bedeutet 124533 12 Stunden, 45 Minuten und 33 
Sekunden. Auch diese Abfrage konnen wir mit einer ewigen 
Schleife testen: 
DO: PRINT TI$:L00P 

Dieses Zahlenband verandert sich jetzt im Rhytnmus von 
Sekunden. 

Tl$ ist auch der Befehl, mit dem die Uhr auf einen beliebi- 
gen Wert - auch auf Null - gesetzt wird: 
TI$= "000000" 
setzt die Uhr auf Null 
TI$= "221500" 
setzt die Uhr auf 22 Uhr 15. 

In dem Augenblick, wo Sie nach diesen Befehlen die 
< RETURN > -Taste drucken, startet die Uhr mit diesem 
ne'uen Anfangswert. 

Zusammenfassung Befeble Tl, Tl$ 

- Beim Einschalten des Computers startet ein interner Zahler, der 60mal 
injederSekundeum 1 erhohtwird. Wenn der Zahler den Stand 5184000 
erreicht hat - das entspricht einer Laufzeit von 24 Stunden, wird er auf 
zuruckgesetzt. 

- Mit Tl kann der Stand des Zahlers abgefragt werden. 

- Der Befehl Tl$ wandelt den Zahlenwert des Zahlers in eine sechsstellige 
Zahl um, deren ersten beiden Stellen die Stunden der Uhrzeit, die mittle- 
ren beiden die Minuten und die letzten beiden die Sekunden angeben. 

- Mit dem Befehl Tl$="aabbcc" wird die interne Uhr auf aa Uhr bb Minu- 
ten. cc Sekunden gestellt. 
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Jetzt sind wir gerustet, um die Laufzeit der drei Schleifenty- 
pen zu messen. 

20. Stoppuhr und Wecker 



Unsere Stoppuhr startet in dem Moment, indem sie auf Null 
gesetzt wird: 
10 TI= "000000" 

Sie stoppt mit der letzten Zeiie der Messung: 
90 PRINT TI:END 

Um die MeBzeit in Sekunden zu erhalten, wenden wir noch 
obige Regel an, teilen durch 60 und drucken aus, was wir 
sehen werden. Zeile 90 wird verbessert zu: 
90 PRINT TI/60 "SEKUNDEN" 

Zwischen 10 und 90 plazieren wirunserTestprogramm. Ich 
schiage vor, genau wie im schon zitierten Kurs »So macht 
man Programme schneller« des Sonderheftes 2/1986 den 
Bildschirm mit 374 A's zu fulien. 

Testprogramm »Sfoppuhr« 

ZAHLER + GOTO FOR-TO-NEXT DO-LOOP 

10 TI$=" 000000" 110 TI$= "000000" 210 TI$=" 000000" 

20 SCNCLR 120 SCNCLR 220 SCNCLR 

130 FOR X=0 TO 374 230 DO 

40 PRINT "A" 140 PRINT "A" 240 PRINT "A" 
50 IF X=374 THEN 80 

60 X=X+1 260 X=X+1 

70 GOTO 40 170 NEXT 270 LOOP UNTIL X=375 

80 PRINT 180 PRINT 280 PRINT " 

90 PRINT TI/60 " SEK " 190 PRINT TI/66/' SEK * 290 PRINT TI/60 " SEK * 

99 END 199 END 299 END 

Die ungleicben Lucken zwischen den Zeilen, sowohl in der 
Numerierung als auch in der Schreibweise, dienen nur der 
besseren Lesbarkeit, haben aber auf den Abiauf keinen Ein- 
fiuB. Die 80er-Zeifen riicken den Ausdruck des Ergebnisses 
nach unten. 
Ergebnis: 

ZAHLER+GOTO-Schleife: 4.4833 SEK. 
FORTO-NEXT-Schleife: 1.5166 SEK. 
DO-LOOP- UNTIL-Schleife: 4.0166 SEK. 
Die FOR-NEXT-Schleife ist strahlender Sieger! 

Der einzige - fur Anfanger sicher nieht gleich erkennbare 
- Vorteil der DO-LOOP-.Schleife bleibt, daB sie auch bet vor- 
zeitigem Abbruch abgeschlossen ist. 

In der Oberschrift oben habe ich den Wecker erwahnt. Mit 
Tl und Tl$ ist er naturlich aktivierbar. 

Ein ganz simples Weck-Programm sieht so aus: 
10 ZEIT$= "000020" 
20 TI$= "000000" 
30 DO UNTIL TI$=ZEIT$ 
40 LOOP 
50 VOL 4 

60 SOUND 1,600,50 
70 SOUND 2,630,50 

In Zeiie 10 wird die Weckzeit eingestellt und der String- 
Variabfen ZEIT$ zugeordnet. Ich habe 20 Sekunden gewahlt, 
damit wir nicht solange warten miissen. In Zeile 20 wird der 
Wecker gestartet. Zwischen Zeile 30 und 40 lauft eine 
Schleife, welche pruft, ob der stetig ansteigende Wert der 
Uhr (Tl$) schon der eingesteflten ZEIT entspricht Besser 
ware es zu prufen, ob sie groBer ist. Wenn ja, wird unter Laut- 
starke 4 ein unangenehmer Klang der beiden Tongenerato- 
ren erzeugt 

Wir konnen ubrigens vermeiden, die Weckzeit in Zeile" 10 
als String eingeben zu mussen. Es gibt namlich in Basic einen 
Befehl, der den numerischen Wert eines Strings wiedergibt. 
Er heiBt VAL, vom englischen »Vaiue«, was auf Deutsch 
»Wert« heiBt. 

Er wandelt einen String in einen Zahlenwert um, sofern der 
String Zahlen enthalt. Diese Zahlen mussen allerdings am 



Anfang des Strings stehen, wie im folgenden Beispiel gezeigt 

wird: 

W$="15 UHR 34": PRINT VAL(W$) 

Diese Zeile ergibt 15 als Ergebnis. Allzuoft wird dieser 
Befehl sicher nicht gebraucht. In unserem Fall, wo der Wert 
von Tl$ mit einem anderen Zahlenwert verglichen werden 
soil, ist er jedoch sehr nutzltch. 

Das.Weckprogramm sieht dann folgendermaBen aus: 
10 ZEIT=20 
20 TI$= "000000" 
30 DO UNTIL VAL(TI$)=ZEIT 
40 LOOP 



Zusammenfassung VAL-Befehl 

- die Schreibweise des Befehls lautet VAL( String). Der String kann sowohl 
mit dem $-Zeichen ais auch innerhalb GansefuBen geschrieben sein. 

- der VAL-Befehl liefert den numerischen Wert eines Strings. Der String 
wird dabei Zeichen fur Zeichen nach zihlen abgefragt. Ab dem ersten 
nicht-numerischen Zeichen stoppt die Suche und der Wert des 
bisherigen Teils wird weiterverwendet. 

- enthalt der String keine Zahlen, wird der Wert ausgegeben. 

An dieser Stelle muB eigentlich zwangslaufig der Wunsch 
entstehen, eine Zeitbegrenzung so in ein Programm einzu- 
bauen, daB es nach einer gewissen Laufzeit abgebrochen, 
beziehungsweise beendet wird. 

21. Zeitabhangige 
Programmunterbrechung 



Wenn das Programm im Prinzip aus einer oder mehreren 
Schleifen besteht, ist die Losung einfach. Ist es ein gerade 
verlaufendes Programm, das an irgendeiner Stelle unterbro- 
chen werden soil, wird die Sache schon schwieriger, weil die 
Abfrage der Zeit eigentlich dauernd erfolgen muB. 

Wir nehmen hier den leichteren Fall an die Reihe. 

Sie kennen doch sicher das alte Spiel »Stadt, Land, FluB«, 
bei dem innerhalb einer festgesetzten Zeit aus jedem Sach- 
gebiet ein Beispiel mit denselben Anfangsbuchstaben aufzu- 
schreiben ist. Eine Abwandlung dieses Spiel wahle ich als 
Anwendung einer Zeitsteuerung, das ich schrittweise mit 
Ihnen entwickeln mochte. 

Mit Initialisierung bezeichnen wir das Herstellen des 
Anfangszustandes eines Programms. In unserem Fali soil 
festgelegt werden: 

- ein Sachgebiet (S$) 

- die Zeitdauer (Z) 

- der Anfangsbuchstabe (B$) 

Sachgebiet und Zeitdauer werden vom Spieler per INPUT 
eingegeben, der Buchstabe (von A bis Z) wird mit einem 
Zufallsgenerator erzeugt. 
100 SCNCLR 

110 INPUT "WAEHLE EIN SACHGEBIET ";S$ 
'120 INPUT "STELLE DIE UHR AUF";Z 
130 B$=CKR$(INT(RND(0) *26+65)) 

Ichglaube, zu Zeilen 100 bis 120istnichtsweiterzusagen. 

Zeile 130 soli eine Zufallszahl erzeugen, deren ASCII-Code 
laut Tabeile auf Seite 215 des Bedienungshandbuches zwi- 
schen 65 (A) und 90 (Z) liegt. Das Kochrezept dazu habe ich 
im Anfangskurs auf Seite 55 des Sonderheftes 5/1986 
erklart. Seine Formel lautet wie folgt: 

Ganze Zahlen innerhalb des Zahlenbereiches von minimal 
Y bis maximal (Y+X-1) werden erzeugt durch: 
INT(RND(0)*X+Y) 

Zeile 130 wendet diese Formel an. Y liegt mit 65 test, X 
errechnet sich aus (Y+X-1) = 95 und ergibt 26. Bei Zeile 130 
bitte auf die Anzahl der Klammern aufpassen! 

Zeile 140faBtdie Initialbedingungen zusammen. Sie ist ein 
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S pitzen-Software fur 
den Commodore 128 PC 



WordStar 

Version 3.0 mit MailMerge 

Der Bestseller unter den Textverarbeitungsprogrammen fur PCs 
bietet Ihnen bildschirmorientierte Fbrmatierung, deutschen 
Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit 
MailMerge konnen Sie Serienbriefe mit personlicher Anrede an 
eine beliebige Anzahl von Adressen schreiben und auch die 
AdreBaufkleber drucken. 

WordStar/MailMerge fur den Commodore128 PC 
Bestell-Nr. MS 103 (5% "-Diskette) ■ 
Hardware-Anforderungen: Commodore 128 PC, Diskettenlauf- 
werk, 80-Zeichen-Monitor, beliebiger Commodore-Drucker oder 
ein Drucker mit Centronics-Schnittstelle. 



A AshtonTate 

dBASEII 

Version 2.41 

dBASE II, das meistverkaufte Programm unter den Datenbank- 
systemen, eroffnet Ihnen optimale Moglichkeiten der Daten- und 
Dateihandhabung. Einfach und schnell konnen Datenstrukturen 
definiert, benutzt und geandert werden. Der Datenzugriff erfolgt 
sequentiell oder nach frei wahlbaren Kriterien, die integrierte 
Kommandosprache ermoglicht den Aufbau kompletter Anwen- 
dungen wie Finanzbuchhaltung, Lagerverwaltung, Betriebs- 
abrechnung usw. 

dBASE II ftir den Commodore 128 PC 
Bestell-Nr. MS 303 (5'/ 4 "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlauf- 
werk, 80-Zeichen-Monitor, beliebiger Commodore-Drucker oder 
ein Drucker mit Centronics-Schnittstella 



MICROSOFT 8 

MULTIPLAN 

Version 1.06 

Wenn Sie die zeitraubende manuelle Verwaltung tabellarischer 
Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
satt haben, dann ist MULTIPLAN, das System zur Bearbeitung 
»elektronischer Datenblatter*, genau das richtige fur Sie! Das 
benutzerfreundliche und leistungsfahige Tabellenkalkulations- 
programm kann bei alien Analyse- und Planungsberechnungen 
eingesetzt werden wie z.B. Budgetplanungen, Produktkalkulatio- 
nen, Personalkosten usw. Spezielle Formatierungs-, Aufberei- 
tungs- und Druckanweisungen ermoglichen auBerdem optimal 
auf bereitete Prasentationsunterlagen ! 
MULTIPLAN fur den Commodore128 PC 
Bestell-Nr. MS 203 (5% "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlauf- 
werk, 80-Zeichen-Monitor, beliebiger Commodore-Drucker oder 
ein Drucker mit Centronics-Schnittstelle 
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fur den 
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MIAJIPUN 

fiir den 
Commodore 128 PC 



Und dazu die 
weiterfiihrende 
Literatu r: 

Mit diesem Buch haben Sie eine wertvolle 
Erganzung zum WordStar-Handbuch: Anhand 
vieler Beispieie steigen Sie miihelos in die 
Praxis der Textverarbeitung mit WordStar ein. 
Angefangen beim einfachen Brief bis hin zur 
umfangreichen Manuskripterstellung zeigt 
Ihnen dieses Buch auch, wie Sie mit Hilfe von 
MailMerge Serienbriefe an eine beliebige 
Anzahl von Adressen mit persdnlicher Anrede 
senden konnen. 

WordStar fiir den Commodore 128 PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 



Zu einem Weltbestseller unter den Daten- 
banksystemen gehort auch ein klassisches 
Einfuhrungs- und Nachschlagewerk! Dieses 
Buch des deutschen Erfolgsautors Dr. Peter 
Albrecht begleitet Sie mit nutzlichen Hinwei- 
sen, die nur von einem Profi stammen kbnnen, 
bei Ihrer taglichen Arbeit mit dBASE II. Schon 
nach Beherrschung weniger Befehle ist der 
Einsteiger in der Lage, Dateien zu erstellen, 
mit Informationen zu laden und auszuwerten. 
dBASE II fiir den Commodore 128 PC 
Best.-Nr. MT 838, ISBN 3-89090-189-1 



Dank seiner Menutechnik ist MULTIPLAN 
sehr schnell erlernbar. Mit diesem Buch von 
Dr. Peter Albrecht werden Sie Ihre Tabelien- 
kalkulation ohne Probleme in den Griff bekom- 
men. Als Nachschlagewerk leistet es auch 
dem Profi niitzliche Dienste 
MULTIPLAN fur den Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-187-5 

Jedes Buch kostet DM 49,- 

(sFr. 45.10/6S 382,20). 

Erhaltlich bei Ihrem Buchhandler. 
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Sie erhalten jedes WordStar-, dBASE II- und MULTIPLAN-Programm tiir Ihren Commodore 128 PC 
tertig angepaB! (Bildschirmsteuerung). 

Jewells Originalprodukte! Jedes Programmpaket enthalt auBerdem ein ausfuhrliches Handbuch mit 
kompakter Befehlsubersicht. 

DieseMarkt&Technik-SoflwareprodukteerhaltenSieindenComputer-Abteilungen 
der Kaufhauser, bei Ihrem Computerhandler oder im Buchhandel. 




Wenn Sie direkt beim Verlag bestellen wollen: Gegen Vorauskasse durch Verrechnungsscheck oder 

mit der eingehefteten Zahlkarte. 
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Beispiel fur das Einf ugen von Wortern in einen vorgegebenen 
Text Wichtig sind dabei die Leerzeichen im Text vor und nach 
den Stringvariablen S$ und B$. Versuchen Sie esohne Leer- 
zeichen, und Sie werden das unlesbare Resultat sehen. 

Zeiien 230, 240 und 250 geben den StartschuB. 
140 PRINT "NENNE "S$", DIE MIT "B$" ANFANGEN" 
230 PRINT "START MIT IRGENDEINER TASTE": 
240 GETKEY X$ 
250 TI$= "000000" 

Jetzt startet eine Zeitschieife, die einen vorgegebenen 
ZeitwertZ mit dem Stand der eingebauten Uhr Tl$ vergleicht 
260 DO UNTIL VAL(TI$) > Z 
340 LOOP 

Innerhaib der Zeiien 260 und 340 soil folgendes passie- 
ren: 

- Worter W$ eingeben 

- Anfangsbuchstaben B$ uberprufen 

- Worter ausdrucken 

- richtige Worter zahlen (R) 

Zum Eingeben von Wortern stehen uns INPUT und GET zur 
Verfugung. 

INPUT erlaubt die Eingabe von kompletten Wortern, indem 
es auf einzelne Zeichen wartet - macht aber damit die Wir- 
kung der ZeitmeBschleife zunichte. 

GET wartet nicht und ermoglicht der Zeitschieife, in den 
Ablaut einzugreifen - nimmt aber nur einzelne Zeichen entge- 
gen. 

Die Wirkung der Zeitschieife ist mir wichtiger, zumal man 
aus einzeinen Zeichen auch Wo*rter zusammensetzen kann! 
Wir nehmen also GET (Zeile 270). 

Das Zusammensetzen eines Wortes besorgt uns Zeile 
280, indem die einzeinen Buchstaben E$ zu einem Wort W$ 
einfach dazuaddiert werden: 
270 GET S$ 
280 W$=W$+S$ 

Mit den vier Zeiien 260, 270, 280 und 340 haben wir eine 
Schieife, die solange Worter zusammensetzen wurde, bis der 
Zeitvergleich alles abbricht. Versuchen Sie es einmai mit 
RUN 260! 

Ein Wort wird durch Druck der < RETURN > -Taste abge- 
schlossen. Wenn das Wort richtig ist, soil esausgedrucktund 
als Resultat gedruckt werden. Die primitivste Prufung ist die 
des Anfangsbuchstabens. 
290 IF E$ <> CHR$(13) THEN 340 

Zeile 290 pruft auf Drucken der < RETURN > -Taste, die 
den ASCII-Code 13 hat. Das heiBt, sie pruft, ob die Taste 
nicht gedruckt ist. Dann springt sie namlich auf den LOOP- 
Befehi, springt auf DO zuruck, miBt die Zeit und schaut nach, 
ob ein neuer Buchstabe S$ eingegeben worden ist. 

Ist aber < RETURN > gedruckt, geht das Programm mit 
der Zeile 300 weiter. Diese schneidet sich mit dem 
LEFT$-Befehl (siehe Anfangskurs, Seite 60) den ersten 
Buchstaben des Wortes W$ ab und vergleicht ihn mit dem 
vorgegebenen Anfangsbuchstaben B$. 
300 IF LEFT$(W$,l) <> B$ THEN 330 
310 PRINT ¥$ 
320 R=R+1 
330 ¥$="" 

1st die Prufung auf »ungleich« falsch, das heiBt, sind beide 
Buchstaben gleich, dann druckt Zeile 310 das Wort W$ aus 
und zahlt es als richtiges Resultat R zu eventuell schon vor- 
handenen richtigen Resultaten dazu. Danach wird das einge- 
gebene Wort W$ in Zeile 330 wieder geioscht 

Ergibt der Vergleich der beiden Buchstaben in Zeile 300 
aber, daB sie ungfeich sind, dann uberspringt Zeile 300 die- 
sen ganzen Teil, loscht in Zeile 330 das bisher eingegebene 
(aber falsche) Wort und macht in Zeile 340 mit der Schieife 
weiter. 

Nach Ablaut der Schieife, oder besser gesagt, nach 



Abbruch durch den »Wecker«, laBt Zeile 430/440 die Week/ 

hupe ertonen und Zeile 450 druckt das Resultat R, namlich 

die Anzahl der eingegebenen Worter aus: 

430 VOL 4 

440 SOUND 1,600,50 

450 PRINT R 

In Listing 4a ist das bisherige Programm vollstandig darge- 
stellt. Ich habe es dabei mit ein paar REM-Zeilen in funktio- 
nelle Blocke unterteilt. 

22. Die Technik der Unferprogramme 



Das Spiel »Stadt, Land, FluB« wird immer mit mehreren Perso- 
nen gespielt. Obwohl mir kiar ist, daB ein derartiges Vor haben 
mit dem Computer nicht ganz einfach zu organisieren ist - 
kein Spieler soil die Worter deSjVorhergehenden Spielers 
sehen konnen - lasse ich dieses Detail auBer acht und zeige 
Ihnen, wie man so einen mebrfachen Ablaut desselben Pro- 
gramms programmiert 
Wir brauchen dazu folgende Schritte: 

- Initialisierung wie vorher 

- Frage nach der Zahl der Mitspieler 

- Schieife fur entsprechend viele Durchgange 

- Einzeldurchgange pro Spieler 

- Speicherung der Einzelergebnisse 

- Ausdruck des Gesamtergebnisses 
100 SCNCLR 

110 INPUT "WAEHLE EIN SACHGEBIET";S$ 

120 INPUT "STELLE DIE UHR AUF";Z 

130 B$=CHR$(LNT(RND(0)*26+65)) 

140 PRINT "NENNE "S$", DIE MIT "B$" ANFANGEN" 

200 : 

210 REM******** ZEITSCHLEIFE & EINGABE ******* 

220 : 

230 PRINT "START MIT IRGENDEINER TASTE": 

240 GETKEY X$ 

250 TI$= "000000" 

260 DO UNTIL VAL(TI$) > Z 

270 GET E$ 

280 W$=¥$+E$ 

290 IF E$ <> CHR$(13) THEN 340 

300 IF LEFT$(W$,1) <> B$ THEN 330 

310 PRINT W$ 

320 R=R+1 

330 W$="" 

340 LOOP 

400 : 

410 REM******* STOP & ERGEBNIS *********** 

420 : 

430 VOL 4 

440 SOUND 1,600,50 

450 PRINTR Listing 4a 

Die Initialisierung mit den Zeiien 100 bis 130 bleibt also 
gleich. 

Jetzt stehen wir vor dem Problem, den eigentlichen Spiel- 
teil von Zeile 300 bis Zeile 340 so oft laufen zu lassen, wie 
Mitspieler vorhanden sind. Vollig unsinnig ware es, diesen 
Programmteil zu vervielfachen, da ja die Anzahl der Mitspieler 
variabel sein soli. 

Also mussen wir den Spielteii, der durch die Zeiien 200 bis 
340 gebildet wird, bei jedem Spieldurchgang neu »ansprin- 
gen«. Dazu legen wir ihn zuerst einmai an das Ende des Pro- 
gramms. Das geht am schneilsten, wenn Sie vor jede Zeilen- 
nummer eine 1 einfugen, wodurch wir einen Programmblock 
von 1200 bis 1340 erhalten, die Abstands- und REM-Zeilen 
mit eingeschlossen. 

Vorsicht! Wir haben innerhaib dieser Zeiien zwei Sprung- 
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adressen, die wir ebenfalts andem mussen: in Zeile 290 und 
in Zeile 300. 

Und was machen wir mit den »aiten Zeiien 200 bis 340 ? 

Ein Basic-Befehl, den wir bislang nicht verwendet haben, 
hiiftunsdabei. ErheiBt DELETE, was»ausloschen«bedeutet 
Genau wie beim LIST-Befehl kann man den Bereich angeben, 
der geloscht werden soil. In unserem Fall lautetderdirektein- 
zugebende Befehl; 
DELETE 200-3^0 

Wenn Sie das Programm LISTen, dann sitzt jetzt in der Tat 
der eigentliche Spielteil am Ende des Programms, und Zeiien 
200 bis 340 sind verschwunden. 



DELETE-Befehl 

- der DELETE-Befehl loscht eine Oder mehrere Programmzeilen 
DELETE 50 loscht nur Zeile 50 

DELETE -50 loscht alle Zeiien von bis inklusive Zeile 50 

DELETE 50- loscht alle Zeiien ab Zeife 50 

DELETE 50-70 loscht von alien. Programmzeilen nur die Zeiien 50 bis 70 

- der DELETE-Befehl kann nur im Direkt-Modus verwendet werden. 

Dasselbe machen wir mit dem anderen Programm-Teilchen 
»STOP & ERGEBNIS«, das wir ebenfalls offer verwenden wol- 
ien. Wir schieben es mit der oben genannten Methode auf 
1400 bis 1450 und DELETEn Zeiien 400 bis 450. 

Jetzt haben wir Platz, urn die Frage nach der Anzahi der Mit- 
spieler einzubauen. Ich schiebe die Frage noch vor die Spiel- 
anweisung in Zeile 140, die damit in Zeife 220 rutscht. 

140 INPUT "WIEVIELE MITSPIELER "*MS 
150 SP=1 

MS ist also die festgelegte Mitspieierzahi, die wahrend 
eines Spiels konstant bleibt Da wir aber mit Spieler 1 anfan- 
gen und mit Spieier M$ aufhoren, brauchen wir noch eine 
Spieler-Zabl variable, die pro Durchlauf hochgezahlt wird. Ich 
nenne sie »SP« und setze sie in Zeile 150 auf 1. 

Als nachstes folgt die groBe Schieife fur die Spieldurch- 
gange pro Mitspieler. Ihre Zahl ist naturlich von MS abhangig: 
200 DO WHILE SP <> MS+1 
270 SP=SP+1 
280 LOOP 

Die Schieife zwischen den Zeiien 200 und 280 lauft 
solange, bis SP, welches am Anfang 1 ist und nach jedem 
Durchgang in Zeile 270 um 1 weitergezahlt wird, die voile Mit- 
spieierzahi MS erreicht hat (Prufung in Zeile 200 auf MS+1). 
In die Schieife lege ich jetzt die Anweisung der alten Zeile 140 
mit der Spielanleitung und der Angabe, welcrrer Mitspieler an 
der Reihe ist: . 

210 PRINT "MITSPIELER "SP" IST AN DER REIHE" ■. 
220 PRINT"NENNE "CHR$(130) S$ CHR$(132)", DIE MIT 
"CHR$(130) B$ CHR$(132) " ANFANGEN" 

In Zeile 220 habe ich den Ausdruck des Sachgebiets S$ 
und des Anfan'gsbuchstabens B$ mit FLASH-ON/FLASH- 
OFF ausgestattet. Bitte Jassen Sie alle Leerzeichen weg, da 
sonst nicht alles in zwei Zeiien paBt. 

Nach Zeile 220 muB jetzt der Sprung auf den Spielteil erfol- 
gen, den wir ans Ende des Programms zwischen die Zeiien 
1230 und 1340 geschoben haben. 

Bislang sind wir auf solche Stellen mit GOTO 1230 hin- und 
mit GOTO xxx wieder zuruckgesprungen. Basic kennt aber 
einen Befehl, der das vie! eleganter macht, den sogenannten 
»Unterprogrammsprung«. Er heiBt GOSUB-RETURN, wobei 
»Sub« vom englischen »Soubroutine« kommt. 

Der Befehl GOSUB steht anstelle des GOTO, RETURN' 
kommt ohne weitere Angaben an den SchluB des anzusprin- 
genden Programmteils, also dorthin, wo wir das zweite GOTO 
hingesetzt hatten. 

in unserem Fall sieht das so aus: 
230 GOSUB 1230 
1350 RETURN 



Wichtig ist noch zu erwahnen, daB der Programmteil zwi- 
schen den Zeiien 1230 und 1350 UNTERPROGRAMM 
heiBt. 

Wichtig ist auBerdem, daB der RETURN-Befehl dann auto- 
matisch auf die Zeile nach dem GOSUB springt. 

Sinn und Zweck der Unterprogramm-Technik ist es, Pro- 
grammteile zu bilden, die man nicht nur innerhalb eines Pro- 
gramms mehrfach verwenden kann, sondern dieauch in sich 
beliebig verandert werden konnen, ohne das Hauptpro- 
gramm zu storen. Alles was bekannt beziehungsweise kon- 
stant bleiben muB, ist die Anfangs-Zeilennummer des Unter- 
programms. 

Ein weiterer Vorteil eines Unterprogramms ist, daB es ein- 
zeln auf Band Oder Diskette in einer »Unterprogramm- 
Bibliothek« gespeichert und in anderen Programmen einge- 
setzt werden kann, ohne es immer wieder neu programmie- 
ren zu mussen. 

Wir erklaren den Programmteil »ST0P & ERGEBNIS« ab 
Zeile 1430 ebenfalls zum Unterprogramm und springen nach 
dem ersten Unterprogramm »ZEITSCHLEIFE & EINGABE« 
mit einem zweiten GOSUB-^efehl dorthin. Voraussetzung 
ist, daB es mit RETURN abgeschlossen ist; 
240 GOSUB 1430 
1500 RETURN 

Wenn Sie das Programm jetzt schon laufen lassen, werden 
Sie sehen, daB nur noch wenig fehlt. 

Zum einen werden die Ergebnisse der einzelnen Mitspieler 
aufaddiert, zum zweiten fehlt noch eine Rucksetzung vor 
jedem neuen Spieler, und als letztes brauchen wir noch das 
Gesamtergebnis. 
250 SCNCLR 
260 R=0 

Diese beiden Zeiien bewirken das Loschen und die Ruck- 
setzung des Einzelresuitats R. 

Dieses R mussen wir aber spetchem, um es am Ende aus- 
drucken zu konnen. Das geschieht am Ende des zweiten 
Unterprogramms, wo ja in Zeile 1450 das Einzelergebnis R 
ausgedruckt wird. 

Das Gesamtergebnis besteht also aus sovielen Einzeler- 
gebnissen, wie Mitspieler vorhanden sind. 

Das schreit nach einem Feld! 

Dasicherwenigerals 11 Mitspieler vorzusehen sind, brau- 
chen wir das Feld nicht zu dimensionieren. Wir teilen die 
jeweiligen Einzelresultate direkt einer Feldvariablen R(SP) zu, 
wobei SPjavon 1 bisMSnochgezanitwird. Dadurch werden 
alle anfallenden Werte von R gespeichert. 
1450 R(SP)=R 
1460 PRINT R(SP) 

1470 PRINT "ZUR FORTSETZUNG TASTE DRUCKEN" 
1480 GETKEY A$ 

Im SchluBteil wird das Endergebnis ausgedruckt Es steht, 
wie gesagt, in einem Feld R(0), R(1),...R(letzter Spieier), das 
wir mit einer FOR-NEXT-Schleife ausdrucken: 
430 FOR 1=1 TO (SP-1) 
440 PRINT "SPIELER "I" HAT: "R(I) 
450. NEXT I 
460- END 

Zeile 460 ist wichtig, da sie das Hauptprogramm von den 
Unterprogrammen trennt. 

Dieses Programm hat uns also in die Technik der Unterpro- 
gramme eingefuhrt, auBerdem haben wir durch eine Schieife 
mit Abfrage der inneren Uhr des C 1 6 eine Zeitsteuerung des 
Programms erreicht, wir haben DELETE zurVeranderung von 
Listings verwendet, haben Tone eingesetzt und haben letzt- 
lich wieder einmai eine Feld-Variable verwendet. 

In Listing 4b ist das ganze Programm zusammengefaBt. 

100 SCNCLR ' 

110 INPUT "WAEHLE EIN SACHGEBIET";S$ 
120 INPUT "STELLE DIE UHR AUF";Z 
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130 B$=CHR$(INT(RND(0)*26+65)) 

140 INPUT "WIEVIELE MITSPIELER";MS 

150 SP=1 

200 DO WHILE SPOMS+1 

210 PRINT "SPIELER "SP" 1ST AN DER REIHE" 

220 PRINT "NENNE "CHR$(130)S$CHR$(132) " DIE MIT 

" CHR$(130) B$ CHR$(132)" ANFANGEN" 
230 GOSUB 1230 
240 GOSUB 1430 
250 SCNCLR 
260 R=0 
270 SP=SP+1 
280 LOOP 
.400 : 

410 REM ***** ENDERGEBNIS ***** 
420 : 

430 FOR 1=1 TO (SP-1) 
440 PRINT "SPIELER "I" HAT: "R(I) 
450 NEXT I 
460 END 
1200 : 

1210 REM**** ZEITSCHLEIFE & EINGABE **** 
1220 : 

1230 PRINT "START MIT IRGENDEINER TASTE" 
1240 GETKEY X$ 
1250 TI$=" 000000" 
1260 DO UNTIL VAL(TI$)>Z 
1270 GET E$ 
1280 W$=W$+E$ 

1290 IF E$OCHR$(l3) THEN i340 
1300 IF LEFT$(W$,1)<>B$ THEN 1330 
1310 PRINT W$j 
1320 R=R+1 



1330 W$="" 

1340 LOOP 

1350 RETURN 

1400 : 

1410 REM*** STOP & ERGEBNIS ****** 

1420 : 

1430 VOL 3 

1440 SOUND 1,600,50 

1450 R(SP)=R 

1460 PRINT "ZUR FORTSETZUNG TASTE DRUECKEN" 

1470 GETKEY A$ 

1500 RETURN Listing 4b 

Zusammenfassung GOSUB-RETURN-Befehle 

- der Befehl wird geschrieben: 
GOSUB Zeilennummer 

- er erzeugt einen Sprung in ein Unterprogramm, welches mit der hinter 
dem GOSUB stehenden Zeilennummer anfangt. 

- das Unterprogramm muB mit RETURN iiji der letzten Zeile abgeschlossen 
werden. 

- RETURN springt auf die Zeile zuriick, die direkt hinter dem GOSUB- 
Befehl steht. 

- Unterprogramme konnen auch geschachtelt werden 

- Unterprogramme konnen sich bis zu 25 mal selbst aufrufen. Daruber 
hinaus ist zuwenig Speicherplatz zur Zahlung der Aufrufe vorhanden. 

- trifft ein Programm auf ein RETURN, ohne vorher ein GOSUB gesehen 
zu haben, reagiert der Computer mit Abbruch und Fehlermeldung 
.RETURN WITHOUT GOSUB« 

In Listing 4b haben wir die beiden Unterprogramme ans 
Ende gelegt. Das war durch einfache Umnumerierung der 
Zeilen leicht zu erreichen. Wir muBten aber ans Ende des 
Hauptprogramms - noch vor den Unterprogrammen - einen 
END-Befehl einfugen, urn ein unerwunschtes Weiterlaufen 
des Programms zu verhindern. 



Achtung C-Programmierer aufg e paBt! 

Jetzt gibt es Small-C, ein komplettes Entwicklungssystem im CP/M-Modus fur den 
Commodore 1 28 PC. Mit Editor, Compiler, Linker und vielen weiteren Utilities. ' * 

Alia Programme sind in Small-C geschrieben, der Quellcode wird mitgeliefert. 

So konnen Sie das Entwicklungssystem nach eigenen Wiinschen und Eriordernissers 

erweitern und modiflzieren. 

Das Programmpaket enthalt: 

• Smali-C-Compiler 

• Small-Mac: Assembler und Utilities 

• Small-Tools: Editor und Text-Tools 

Hardware-Anforderungen: 

C 1 28/C 1 28 D, Diskettenlaufwerk 1 571 . . 



Bestell-Nr. MS 483 (5 Vt -Diskette) 

mnurHochVMn-* 



iskH'/sstm 



•inkl. MwSt., unverbindliche Preisempfehlung. 

Wenn Sie direkt beim Verlag bestellen wollen: Gegen Vorauskasse durch Verrechnungs- 
scheck Oder mit der abgedruckten Zahlkarte. 

Bestellungen im Ausland bitte an untenstehende Adressen: 
Schweiz: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug 
Osterreich: Ueberreuter Media Verlagsges. mbH, Alser StraBe 24, A-1091 Wien 




Untemehmensbereich Buchwriag 



Hans-Pinsel-StraBe 2, 8013 Haar bei Miinchen 



Markt&Technik 

128er-Software 






Dr. Dobb's Journal 
J.E.Hendrix 



Stnall-C 

Entwicklungssystem 

C-Compiler 

8080-/Z80-Makro-Assembler ■ Linker/Loader 
Bibliotheksverwalter • Editor/Text-Tools 



Fur Commodore 128 (128 D) 
Floppy 1571-Format 




34 



SONDERHEFT 8/86 



C16, C116, Plus/4 



BASIC-KURS 



Es gibt nun auch die Moglichkeit, Unterprogramme prinzi- 
piell an den Anfang eines Programms zu fegen. Das vermei- 
det den Weiterlauf und hat auBerdem eine ktirzere Laufzeit 
Ich habe das in dem Kurs »So macht man Programme schnel- 
ler« im Sonderheft 2/1986 auf Seite 49 gemessen und 
beschrieben. 

Ein Programm sieht dann so aus: 
GOTO "Hauptprogramm" 
Unterprogramm U1 
RETURN 

Unterprogramm U2 
RETURN 

" Hauptprogramm " 
GOSUBU1 
GOSUB U2 

Diese Anordnung ist sicher nur dann empfehlenswert, 
wenn es auf Geschwindigkeit ankommt und viele Unterpro- 
gramme verwendet werden. 

Programme, diemitviejen Unterprogrammen arbeiten, ver- 
wenden oft eine eigene Technik, urn »bedienungsfreundiich« 
zusein. Mitdiesem Begriff bezeichnet die Computerweit Pro- 
gramme, deren Bedienung so ausgelegt ist, daft man von den 
Details des Programms oder vom Computer selbst praktisch 
nichts zu verstehen braucht. Ein wesentiicher Bestandteil 
davon sind die sogenannten »Menus«. 

23. Bedienungsfreundliriie Meitii-Techitik 

ich schreibe diesen Kurs auf meinem C 64 (den C 1 6 brauche 

ich zum Experimentieren) mit einem bekannten Textpro- 

gramm, das sich beim Einschalten mit folgendem Menu mel- 

det: 

F1 Text bearbeiten 

F3 Neuen Text eingeben 

F5 Disk-lnhalt 

F7 Disk-Befehle 

F8 Ende 

Je nachdem, welche Funktionstaste ich drucke, kann ich 
einen bereits angefangenen Text welterbearbeiten Oder mir 
anschauen, welche Programme sich auf der Diskette befin- 
den oder spat in der Nacht mit F8 SchluB machen! 

Jede Uberschrift bildet ein eigenes Unterprogramm, auf 
das durch Drucken der vorgegebenen Funktionstaste 
gesprungen wird. 

Mit unseren heutigen Kenntnissen wurdeh wir diese funf 
Funktionstasten mit funf IF-THEN-Befehlen abfragen. Gro- 
Bere Menus brauchten dementsprechend mehr IF-THEN- 
Zeilen. 

In Basic gibt es einen Befehl, mit dem dies sehr vie! leichter 
programmiert werden kann. Er heiBt schlicht und einfach 
»ON« und wird in Verbindung mit dem GOSUB-Befehl ver- 
wendet. 

Ein ON-GOSUB-Befehl sieht so aus: 
ON X GOSUB 100,150,200,250 

Diese Zeile ist gleichbedeutend mit: 
IFX=1 GOSUB 100 
IF X=2 GOSUB 150 
IF X=3 GOSUB 200 
IF X=4 GOSUB 250 

Die Variable X darf also nur die Werte 1, 2, 3, 4 etc. anneh- 
men. Entsprechend springt der GOSUB-Befehl auf die 1., 2., 
3. oder 4. Zeilennummer. 

Hinter dem ON-Befehl kann auch ein Fbrmelausdruck ste- 
hen, nur gilt bezuglieh seines Resultats das gleiche wie fur 
die Variable Es ist klar, daB fur Entscheidungen zu Unterpro- 
grammsprungen nicht immer derartige »saubere« Zahlen zur 
Verfugung stehen. Damit aber die Umrechnung in die Werte 
1, 2, 3 und so weiter nicht aufwendiger als mehrere IF 



GOSUB-Befehle wird, werden oft sehr pfiffige Rechen- und 
Programmierverfahren angewendet. Sie sind es fast immer 
wert, gesammelt zu werden, wenn man sie in einem Pro- 
grammlisting antrifft. 

Zusammenfassung ON-GOSUB-Befehl 

- der Befehl wird folgendermaBen geschrieben: 
ON Variable GOSUB mehrere Zeilennummern 

wobei die Zeilennummern durch Kommata getrennt sein miissen. 

- die Variabtenwerte legen test, auf welche der Zeilennummern der 
GOSUB-Befehl springt und zwar: 

1.0 bis 1.9 1. Zeilennummer hinter dem GOSUB 
2.0 bis 2.9 2. Zeilennummer ... 
3.0 bis 3.9 3. Zeilennummer ... 
und so weiter. 

- istdie Variable kleiner 1, springt der GOSUB-Befehl nicht auf eine der Zei- 
lennummern, sondern auf die nach dem ON-GOSUB folgende Zeile. 

- ist die Anzahl der Variablenwerte groBer als die Anzahi der Zeilennum- 
mern, verhalt sich der ON-GOSUB-Befehl wie beim Variablenwert oder 
kleiner 1. ■ 

- einen negativen Variablenwert quittiert der Computer mit ILLEGAL 
QUANTITY. 

- hinter dem ON-Befehl kann auch eine Formei oder eine Funktion stehen, 
nur gilt fur ihre Werte dasselbe wie fur die Werte einer Variablen. 



Zusammenfassung ON-GOTO-Befehl 

Fiir ON-GOTO gilt das gleiche wie fur ON-GOSUB, nur werden die 
Sprunge nach den Regeln des GOTO-Befehls ausgefOhrt 

Ich mochte Ihnen noch schnell die Programmierung des 
obigen Menus zeigen. 

Ein Menu beginnt immer mit seiner Darstellung auf dem 
Bildschirm. Das geht einfach uber PRINT- Befehle, die nur 
wenige Zeilen auf dem Bildschirm verteilen mussen. Da es 
lastig ist, mit programmierten Cursor-Tasten zu operieren, gibt 
es noch zwei andere Cursor befehle, die wir gletch anwenden 
wollen. Der eine heiBt TAB(), abgeleitet von >Tabulator«, der 
andere heiBt SPC(), was vom englischen Wort »Space«, das 
heiBt »Abstand«, kommt. In der Klammer hinter den Befehien 
kann eine Zahl von bis maximal 255 stehen. 

Beide Befehle werden zusammen mit dem PRINT-Befehl 
verwendet. 

Beim TAB-Befehl ruckt der Cursor ausgehend vom linken 
Rand derjenigen Zeile, auf der er sich gerade befindet, urn die 
in der Klammer stehende Anzahl von Leersteiien weiter. 

Der SPC-Befehl tut dasselbe, aber von dem Punkt aus, auf 
dem sich der Cursor gerade befindet. 
10 SCNCLR 
20 PRINT SPC(90) "WAEHLEN SIE BITTE AUS" 

SCNCLR loscht bekanntlich nicht nur den Bildschirm, son- 
dern setzt auch den Cursor in die linke obere Ecke Von dort 
aus springt er durch SPC{90) 90 Platze weiter, das sind 80 
+ 2, also 2 Zeilen und 10 Platze Sie konnen das leicht nach 
RUN auf dem Bildschirm abzahlen. 
30„ PRINT TAB (202) "(1) TEXT BEARBEITEN" 

Nach Ausfuhrung der Zeile 20 steht der Cursor in der 
3. Zeile. 202 Platze vom linken Rand der 3. Zeile aus gerech- 
net sind 5 Zeilen und 2 Platze; also steht der Cursor in der 
9. Zeile am 2. Platz, und die Klammer vor der 1 wird am 3. 
Platz gedruckt. 

Ich will ihnen gestehen, ich habe es auch nicht gerechnet, 
sondern einfach ausprobiert Die nachsten Zeilen verwenden 
in gleicher Weise den SPC-BefehL 
40 PRINT. SPC ( 82 ) " ( 2 ) NEUEN TEXT EINGEBEN " 
50 PRINT SPC(82)"(3) DISK INHALT" 
60 PRINT SPC(82)"(4) DISK BEFEHLE" 
70 PRINT SPC ( 82 ) " ( 5 ) ENDE " 

Die Unterprogramme, die wir uber das Menu auswahlen 
wollen, lassen wir ab Zeile 500 beginnen. Ich deute sie natur- 
lich nur an: 
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500 SCNCLR 

510 PRINT "TEXT BEARBEITEN" 

520 END 

530 : 

540 SCNCLR 

550 PRINT "NEUEN TEXT EINGEBEN" 

560 END 

570 : 

580 SCNCLR 

590 PRINT "DISK INHALT" 

600 END 

610 : 

620 SCNCLR 

630 PRINT "DISK BEFEHLE" 

640 ■ END 

650 : 

660 SCNCLR 

670 PRINT "ENDE" 

680 END 

Die Unterprogramme beginnen also der Reihe nach bei 
500, 540, 580, 620 und 660. Dementsprechend fautetder 
ON-GOSUB-Befehl; 

110 ON A G0SUB 500, 540, 580, 620, 660 
120 PRINT "NULL" 
130 END 

Zeile 1 20 ist die Ziel-Zeile im Fall, daB fur A ein Wert kleiner 
1 eingegeben wird. 

Die Eingabe erfolgt gewohnlich mit GETKEY A. 

In diesem Faliaber, wo ich Ihnefiermogiichen mochte, auch 
mit krummen Werten von A zu experimentieren, macben wir 
es mit INPUT. 
100 INPUT A 

So einfach ist das. Bitte experimentieren Sie ein biBcben 
mit diesem Programm. Komplett stent es in Listing 5. 

Zusammenfassung Befehle TAB0 und SPC() 

- hinter den beiden Befehlen steht eine Zahl von bis 255, die in Klam- 
mern stehen muB. 

- TAB(I) und SPC(I) werden in Verbindung mit dem PRINT-Befehl verwen- 
det. 

- MitPRINTTAB{t)beginntderAusdruckaufdemBiidschirm(oderaufdem 
Drucker) an dem durch I definierten Platz. 

1=0 definiert den linken Rand der Zeile, auf der sich der Cursor gerade 
bef indet, mit I =20 werden vbm linken Rand aus 20 Platze ubersprungen. 

- Mit PRINT SPC(I) beginnt der Ausdruck urn genau soviele Stellen hinter 
deraugenblicklichen Position des Cursors, wie durch ! definiert werden. 
1=0 steht fur die augenblickliche Cursorposition, mit 1=20 werden 20 
Platze ubersprungen. 

- beide Befehle springen auf den angegebenen Platz, ohne die ubersprun- 
genen Platze zu loschen. 

10 SCNCLR 

20 PRINT. SPC ( 90 ) "WAEHLEN SIE BITTE AUS" 



30 PRINT TAB (202) "(1) 
40 PRINT SPC (82) "(2) 
50 PRINT SPC (82) "(3) 
60 PRINT SPC (82) "(4) 
70 PRINT SPC (82) "(5) 



TEXT BEARBEITEN 
NEUEN TEXT BEARBEITEN' 
DISK INHALT" 
DISK BEFEHLE" 
ENDE" 



100 INPUT A 

110 ON A G0SUB 500,540,580,620,660 

120 PRINT "NULL" 

130 END 

140 : 

150 : 

500 SCNCLR 

510 PRINT "TEXT BEARBEITEN" 

520 END 

530 : 

540 SCNCLR 



550 PRINT "NEUEN TEXT EINGEBEN" 

560 END 

570 : 

580 SCNCLR 

590 PRINT "DISK INHALT" 

600 END 

610 : v 

620 SCNCLR \ 

630 PRINT "DISK BEFEHLE" i 

640 END 650 : 

660 SCNCLR 

670 PRINT "ENDE" 

680 END Listing 5 

Ich habe bei der Aufzahlung der Vorteile der Unterpro- 
gramm-Technik erwahnt, daB es sinnvoll ist, sich eine Bibiiot- 
hek von nutzlichen Unterprogrammen anzulegen, die dann 
immer wieder in andere Programme eingebaut werden kon- 
nen. I 

Nun, das klingt gut und einleuchtend, aber wie hangt man 
ein Unterprogramm, das in der »Bibliothek« - sprlch auf Band 
oder Diskette - steht, an jsin Hauptprogramm im Computer? 

Gute Frage, kann ich nur sagen, denn. das Basic der 
Commodore-Computer kennt leider keinen Befehl dafur. Es 
gibt ihn, bei anderen Computem Oder bei Befehlserweite- 
rungsprogrammen. Er heiBt MERGE oder manchmal auch 
APPEND, was mit »VerschweiBen« oder »Anhangen« uber- 
setzt werden kann. 

Wir mussen ihn in Basic nachvollziehen, was aber nicht 
schwer ist. 

24. MERGE 



Wie gesagt, MERGE ist kein Basic- Befehl, sondern ein Koch- 
rezept. 

Ich schreibe Ihnen zuerst das Kochrezept auf und erklare 
anschlieBend, was dabei vorgeht. Es werden folgende 
Schritte gemacht: 

1. Ein Programm steht im Speicher (RAM) des Computers. 
Ein zweites Programm, das auf Band oder Diskette steht, soil 
dazugeladen werden. 

2. Da das Programm auf Band oder Diskette (2. Programm) 
hinter das Programm im RAM {1. Programm) gehangt wird, ist 
esempfehlenswert, daB das 2. Programm hohereZeilennum- 
mernalsdas 1. Programm hat (eventuell mit RENUMBER her- 
stelten). 

3. die folgende Zeile dtrekt eingeben und mit RETURN 
abschlieBen: 

POKE 43, PEEK (45) -2: POKE 44, PEEK (46) 

4. Jetzt wird das 2. Programm ganz normal in den Compu- 
ter geladen (mit LOAD oder DLOAD). 

5. die folgende Zeile direkt eingeben und mit RETURN 
abschlieBen: 

POKE 43,1: POKE 44,16 

Das ist alles; jetzt stehen das 1. Programm und das 2. Pro- 
gramm aneinandergehangt im Speicher des C16. 

Zur Erklarung dieses Kochrezeptes muB ich Sie an Bild 1 
erinnern, in dem ich die Speicheraufteilung dargesteilt habe. 
Wie dort gezeigt, beginnt der fur Programme verfugbare 
RAM-Speicher ab Adresse 4096 und geht beim C16 ohne 
Speichererweiterung bis 16383, beim C16 mit volier Spei- 
chererweiterung bis 64767. 

In diesem Bereich stehen nun die Zeilen eines Programms, 
alle Namenundaugenbricklichen Werte von Variablen, Felder 
und schlieBlich auch alle Texte von String-Variablen. Urn ein 
Chaos zu vermeiden und um die Suchzeiten nach Variablen- 
werten moglichst kurz zu halten, ist dieser Speicherteil in 
Bereiche unterteilt. 

In Bild 6 ist diese Unterteilung dargesteilt. 
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Bild fe.'_ Wichti ge Speicherblocke des C 16 und deren Zeiger £55/59 




Ende des Anwenderspetehers 
(= Beginn der String-Texte) : . 



Ende der String-Texte 



Beginn der Felder 

(= Ende der Variablen) 



Beginn der Variablen 

(= Ende der Basic- Program me) 



Beginn der Basic-Programme 



DerArbeitsspeicher ist, unabhangig von seiner durchSpei- 
chererweiterung veranderbaren GroBe, in vier Blocke und 
einen Freiraum eingeteilt. 

- Block 1 beginnt immer an 4096 und enthalt die Zeilen 
(Text) eines eingegebenen Programms. Sein oberes Ende 
ist variabel, es hangt von der Lange des Programms ab. 
Deshalb habe ich diese Grenze als Strich mit einem Pfeii 
dargestelit. 

- Block 2 schlieBt sich direkt an Block 1 an und enthalt die 
numerischen Variablen und die Namen der String- 
Variabien. Sein Anfang ist identisch mit dem Ende des 
1. Blocks und folglich ebenfalis variabel. Dadurch istauch 
das Ende von Block 2 variabel. Wenn zum Beispie! in ein 
Programm weitere Zeilen eingef ugt werden, rutschen alle 
mit Pfeil markierten Grenzen der Speicherbereiche nach 
oben. 

- Block 3 enthalt alle Felder. 

- Block 4 beginnt am obersten Ende des Arbeitsspeichers 
und hangt von der Ausbaustufe des Speichers ab. 

Er enthalt alle Texte der String-Variabten und die der Felder. 
Je nach Lange beziehungsweise Menge der Texte bewegt 
sich die Grenze des 4. Blocks solange nach unten bis sie auf 
die Grenze des 3. Blocks trifft. Dann ist der Speicher voll, und 
der Computer meldet OUT OF MEMORY. 

Jetzt kommt der Aspekt der Speicheraufteilung, der fur 
unser MERGE-Kochrezept wesentlich ist 

Es ist sicher verstandich, daB der Computer, oder besser 
gesagt seine »Betriebsleitung«, jederzeit wissen muB, wo 
gerade die verschiedenen Grenzen der Blocke liegen. Das 
Betriebssystem besitzt dazu im Systemspeicher (von 
Adresse bis 2047) einige Speicherzellen, in denen der 
jeweilige Adressenstand der Blockgrenzen gespeichert ist. 

Diese Adressen habe ich in Bild 6 am linken Rand einge- 
zeichnet. Sietreten immer paarweise auf. Das liegtdaran, daB 
in einer Speicherzelle ailein stets nur Zahlen von bis 255 
gespeichert werden konnen. Das ergabe 256 Adressen - wir 



brauchen aber mehr. Wenn man zwei Zeilen sozusagen 
aneinanderhangt, erreicht man dadurch 256 x 256=65536 
Adressen. Diese doppelteWortlange-auch Low-/High-Byte- 
Darsteliung genannt - erfordert naturlich einen Rechenvor- 
gang, urn aus dem Inhalt von zwei Speicherzellen die dadurch 
reprasentierte Adresse zu erhalten. 

Wie und warum das so ist, erklare ich ein paar Absatze wei- 
ter unten im Abschnitt »Die Low-/High-Byte-Darste!lung«. 
Hier ist nur die Umrechnungsformel interessant. Steht in den 
beiden Speicherzellen X und Y eine Adresse, wird diese aus- 
gerechnet mit: 

Adresse = X + 256 x Y 

In dem Speicherzellenpaar 43/44 steht also die Anfangs- 
adresse des Arbeitsspeichers. Wir prufen das nach mit: 
X=PEEK(43) :Y=PEEK(44) 
PRINT X: PRINT Y 
PRINT X+256*Y 

Das Ganze geht naturlich viel kurzer in einer einzigen Zeile: 
PRINT PEEK (43) + 256 * PEEK (44) 

Wir erhalten beim C 1 6 die Zahl 4097 als Speicheranfang. 

Entsprechend steht im Speicherzellenpaar 45/46 die 
Adresse des Endes von Block 1. 

Laden Sie bitte Listing 2 in den Speicher und uberprufen 
das Blockende mit: 
PRINT PEEK (45) + 256 * PEEK (46) 

Bei mir erscheint die Zahl 4235, ich hoffe bei ihnen auch. 

Beim MERGE-Kochrezept fuhren wir das Betriebssystem 
des C16 hinters Ucht. Mit den Befehlen: 
POKE 43, PEEK (45) -2: POKE 44, PEEK (46) 
schreiben wir in die Speicherzelle 43 diejenige Zahl, um 2 
vermindert, die in Speicherzelle 45 steht. Das gleiche 
machen wir mit der Speicherzelle 44. 

Dadurch verschieben wir mutwillig die Anfangsadresse 
des Arbeitsspeichers an das Ende von Block 1. Da die letzten 
2 Speicherzellen hinter einem Programm zur Kennzeichnung 
des Endes immer nur Nullen enthalten, Ziehen wir die 2 ab. 
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Der Computer glaubt nun, der Arbeilsspeicher beginne bei 
Adresse 4233 - und ab da ladt er jetzt das Listing 4a, ohne 
Listing 2 zu beruhren. 

Danach mussen wir allerdings die Anfangsadresse wie 
folgt wieder an ihren ursprunglichen Platz schieben: 
POKE 43,1: POKE 44,16 
denn 1+256*16 ergibt 4097, was vorher ja dort stand. 

Speicherzellenpaare wie 43/44, 45/46 nennen wir Zei- 
ger, weil sie auf eine andere Adresse zeigen. 

Das Hantieren mitZeigern isteine sehr reizvolle Sache. ich 
bin sicher, Sie werden nocb oft damit konfrontiert. Es gibt 
viele Aufsatze daruber, ich will mich in diesem Anfangerkurs 
auf das bisher Gesagte beschranken. 

Doch halt, die doppelte Wortlange muB ich noch erklaren. 

25. Die Low-/High-Byfe-DarstelIung 



Ich setze voraus, daB Sie das duaie Zahiensystem mit seinen 
Nullen und Einsen kehnen, und daB Sie dadurch wissen, was 
ein Bit ist, auBerdem wie man Dualzahlen in Dezimaizahlen 
umwandelt und umgekehrt. 

Sollte dies jedoch nicht der Fall sein, dann lesen Sie bitte 
im 64'er-Sonderheft 5/1986 auf Seite 90 den Teil Bits und 
Bytes, der eine kleine Einfuhrung gibt. 

Eine Speicherzelle des C 1 6 hat eine Lange von 8 Bit = 1 
Byte. 

Mit diesen 8 Bit konnen Zahien von bis 255 dargestellt 
werden. Zur Darstellung von grogeren Zahien verwenden wir 
die Low-/High-Byte-Methode. 

Wir hangen einfach 2 Speicherzellen zusammen, mit deren 
16 Bit wir Zahien bis maximal 65535 darstellen konnen. Die 
maximale Zahl 65535 ist ubrigens auch die hochste Adresse 
des gesamten Speichers. 

Ich will Ihnen jetzt zeigen, wie eine Dezimalzaht auf zwei 
8-Bit-Speicherzelien verteilt wird und umgekehrt: Wie aus 
zwei Byte eine Dezimalzahl gebildet wird. 

Schauen Sie sich das folgende Beispiei an: 
Dezimal 47491 

Dualzahl 10111001 1000 0011 

High-Byte 185 

Low-Byte 131 

Wir gehen von der Dezimalzahl 47491 aus. Ihre duale Dar- 
stellung mit 16 Bit- 1 01 1'1 0011 0000011 - teilen wir einfach 
in der Mitte und erhalten damit zwei neue Dualzahlen mit je 
8 Bit — 1 Byte. Das linke Byte nennen wir High-Byte, da es 
den hoheren Teil der Gesamtzahl darstellt. Das rechte Byte 
heiBt entsprechend Low-Byte. 

Jedes der beiden Bytes kann fur sich allein in einer Spei- 
cherzelle untergebracht werden, in der naturlich dann der 
dezimale Wert des Bytes steht. 

Zur Umrechnung der Low-/High- Bytes empfehie ich fol- 
gende Kochrezepte: 
Dezimal in Low-/High-Byte 

47491:256 = 185 (High-Byte), Rest 131 (Low-Byte) 

Der Rest fallt bei der Division per Hand automatisch an. Mit 
dem (Taschen)Rechner erhalt man den Rest durch: 

185x256-47491=-131 
Low-/High-Byte in Dezimal 
High-Byte x 256 + Low-Byte = Dezimal 
185 x256 + 131 = 47491 

Eine wichtige Regei gilt es noch zu beachten: 

Der Mikroprozessor des C 1 6 vertangt, daB immer das Low- 
Byte vor dem High- Byte kommen muB. Die Zahi wird sozusa- 
gen von rechts nach links gelesen, in unserem Beispiei 131, 
185. 

Im Abschnitt »Hat man da Tone?« haben wir ein Programm 
erstellt, in dem Tone als Variablenwerte in ein Feld gespei- 
chertwurden. Wirwarendamals noch nicht in der Lage, diese 



Tone auf Band Oder Diskette abzuspeichern. Ich habe Sie 
damals gebeten, das Programm-Fragment abzuspeichern, 
bis wir soweit waren, mehr vom Speicher und vom Speichern 
zu wissen. 

Jetzt sind wir soweit. Ein Blick auf Bifd 6 macht es deutlich. 

Mit den Befehlen LOAD beziehungsweise DLOAD spei- 
chern wir nur den Inhalt des 1. Blocks ab. Die Tone stecke^n 
aber im 3. Block. \ 

26. Der Unterschied zwischen 
Programm und Datei (File) 

Der Computer unterscheidet gluckiicherweise beim Spei- 
chern auf externe Speichergerate (Datasette, Diskette) zwi- 
schen Daten aus dem 1. Block und den Blocken 2, 3 und 4. 
Daten aus den letzteren nennen wir eine Datei Oder auf eng- 
iisch File. \ 

Ein Programm besteht aus einer Ansammlung von nume- 
rierten Zeilen. Jede Zeile enthalt Anweisungen an den Com- 
puter. Diese Anweisungen werden nach RUN zeilenweise in 
Reihenfolge der aufsteigenden Zeilennummem ausgefuhrt. 

Eine Datei (File) besteht aus rohen Daten, ohne jede 
Angabe, was damit gemacht werden soil. 

Der bekannte Computer-Journalist Richard Mansfield hat 
zur Erklarung dieses Unterschieds einma! das einleuchtende 
Beispiei einer Dose mitTomatensuppe gebracht. Der Aufkle- 
ber der Dose enthalt sowohl eine Datei als auch ein Pro- 
gramm. 

Die Datei iautet: 
Wasser, Tomaten, Salz, 
Monosodiumglutamat, Farbstoff, 
Oleoresin 

Das Programm Iautet: 

1. Vorsichtig offnen 

2. Inhalt in elnen Topf leeren 

3. eine Tasse Wasser hinzufugen 

4. auf kleiner Ffamme erhitzen 

5. ungewurzt servieren 

Ich bin sicher, Sie sehen jetzt den Unterschied. 

Programme werden mit SAVE auf Band und mit DSAVE auf 
Diskette gespeichert. 

Dateien werden mit einer eigenen Befehlskombination 
OPEN, PRINT # und CLOSE sowohl auf Band als auch auf 
Disketten gespeichert. 

Genau das wollen wir jetzt lernen. 

27. Dateien (Files) speichern und laden 

Als erstes will ich darauf hinweisen, daB uber Datei mit dem 
C16 im 64'er-Sonderheft 3/1986, ein ausgezeichneter Auf- 
satz von Said Baloui, »Daten verwalten mit Datasette« 
erschienen ist. Herm Balouis Konzentrierung auf die Arbeit 
mit dem Band nehme ich zum AnlaB, hier mehr uber 
Disketten- Dateien zu schreiben. 

Wenn man eine Datei laden oder speichern will, muB zu 
allererst eine Verbindung zwischen Computer und dem 
externen Speichergerat hergestellt werden. Ich meine damit 
nicht das Verbindungskabel, sondern eine Anweisung an den 
Computer, sich fiir den Transfer von Daten uber das externe 
Gerat bereitzuhalten. 

Man nennt das auch: 
»eine Datei eroffnen«. 

Esistvergleichbar mitdem Herausziehen und Offnen eines 
Karteikastens, urn Zugriff zu den Daten auf den Karteikarten 
zu haben. 

Der Befehl dazu heiBt OPEN, was naturlich »Offnen« heiBt. 
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OPEN-Befehi 

- der OPEN-Befehl offnet eine Datei zum Schreiben oder Lesen. Mit die- 
sem Befehi wird automatisch ein Pufferspeicher angelegt, mit dem die 
verschiedenen Arbeitsgeschwindigkeiten der externen Speichergerate 
ausgeglichen werden konnen. 

- hinter dem OPEN-Befehi stehen bis zu 6 weitere Angaben, die durch 
Kommata voneinander getrennt sein mussen. Diese Angaben sind: 
OPEN Dateinummer.Geratenummer, 
Sekundaradresse,»Dateiname,TYP,Modus« 

Die zusatzlichen Angaben hinter OPEN bedurfen einer 
Erklarung. Sie sind sicher fur den Anfanger verwirrend, und 
wir brauchen sie jetzt auch gar nicht aiie. Man findet jedoch 
seiten eine komplette Ubersicht, daher mache ich die Auf- 
stellung vollzahlig - fur spater. 
Dateinummer 

ist die Kennzeichnung der eroffneten Datei. Sie kann eine 
Zahl zwischen 1 und 255 sein. Sie ist wichtig und dient als 
Referenz beim Umgang mit dieser bestimmten Datei; dies 
umso mehr, als gleiehzeitig bis zu 10 verschiedene Dateien 
geoffnet sein konnen. 
Geratenummer 

ist eine Kennzahl dafur, mit weichem externen Gerat die 
Verbindung hergestellt wird. Dabei giit: 

Tastatur 

1 Kassettenrecorder (Datasette) 

3 Bildschirm 

4 Drucker 1 

5 Drucker 2 

8 Diskettenlaufwerk *« 

9 Diskettenlaufwerk 1 

4 bis 127 Gerate, die am serielien Bus angeschlossen sind 
128 bis 255 Gerate uber serielien Bus, mit einem Zeilenvor- 
schub nach dem Zeilenende. 

Ubrigens: Wenn die Geratenummer weggeiassen wird, 
stellt der Computer automatisch die 1 fur Datasette ein. 
Sekundaradresse 

kann eine Zahl zwischen und 255 sein. Diese Zahl hat bei 
den verschiedenen externen Geraten unterschiediiche 
Bedeutung. 

Tastatur keine Wlrkung 

Kassettenrecorder vom Band lesen 

1 auf Band schreiben 

2 auf Band mit »Bandende«- 
Markierung schreiben 

Bildschirm keine Wirkung 

Drucker bis 10 die Funktionen sind* bei den 

Druckerfabrikaten zum Teil 
unterschiedlich, bitte im 
Drucker- Handbuch nachsehen 
Diskettenlaufw. u. 1 vom Betriebssystem reserviert 
2 bis 14 reserviert einen numerierten 

Datenkanal, bis zu drei gleiehzeitig 
15 reserviert einen Befehlskanal 
Dateiname 

steht immer zwischen Anfuhrungszeichen. Er kann bei der 
Datasette auch weggeiassen werden. 
Dateityp 

wird nur bei Diskettenoperationen verwendet und steht 
innerhalb der Anfuhrungszeichen hinter dem Dateinamen; er 
bezeichnet die folgenden Typen: 

5 sequentielle Datei 
U User-Datei 

P Programm- Datei 
R relative Datei 

Wir werden uns im Rahmen dieses Kurses nur mit sequen- 
tiellen Dateien befassen, erstens weil mit der Datasette nur 
dieser Typ moglich ist und zweitens, weil er leichter zu verste- 
hen ist. Den Unterschied zwischen den Dateitypen hat Herr 
Baloui im oben zitierten Aufsatz beschrieben. 



Modus 

wird nur bei Diskettenoperationen verwendet und legtfest, 
wie der Datenkanal genutzt werden soil: 
W schreiben einer Datei (Write) 

R lesen einer Datei (Read) ^ 

A verlangem einer sequentiellen Datei (Append) 
M lesen einer nicht geschlossenen Datei 
Nun bitte keine Panik! 

Ich habe gesagt, daB ich hier nur eine vollstandige Nach- 
schlageliste anlege. In diesem Kurs brauchen wir nur Bruch- 
teile daraus. Aber immerhin ist das aiies ein guter Fingerzeig, 
daB spezieil Diskettenoperationen sehr raffiniert sein kon- 
nen. 

Zuruck zur Anwendung des OPEN-Befehls. Mit: 
10 OPEN 1,1,1/' TEXT" 
eroffnen wir also eine Datei namens >TEXT«auf der Datasette. 

Fur die Diskette lautet derselbe Befehi: 
10 OPEN 1,8,3, "TEXT, S , W " - j 

»S« steht fur sequentielle Datei, »W« fur schreiben. 

Urn jetzt Daten auf das externe Gerat schreiben zu konnen, 
verwenden wir eine Variante des PRINT-Befehls, der 
PRINT # heifit. Hinter PRINT & muB immer die Dateinummer 
stehen, die beim OPEN-Befehl verwendet worden ist. 
Danach folgt die zu schreibende Variable. 
20 PRINT # 1 , "FUSSBALL " 
30 PRINT #1, "TENNIS" 

Damit haben wir die zwei Worter abgesendet Hinter etnem 
PRINT #-Befehl darf immer nur eine Variable oder ein String 
stehen, damit die Daten in der Datei einen Abstand haben. Als 
nachstes muB die eroffnete Datei. wieder geschiossen wer- 
den, der entsprechende SchlieBbefehl lautet CLOSE. Erwird 
mit der Nummer der Datei versehen. 
40 CLOSE 1 
50 END 

Wenn Sie diese vier Zeilen laufen iassen, fordert die Data- 
sette zum Drucken der RECORD- und PLAY-Taste auf, das 
Diskettenlaufwerk startet sofort und die Datei ist gespeichert 



PRINT#-Befehl 

- der PRINT #-Befehl sendet Daten einer Datei auf Band oder Diskette. 
Maximal konnen mit einem PRfNT#-Befehl 255 Zeichen gesendet wer- 
den 

- dem PRI NT #- Befehi mu8 dieseibe Dateinummer folgen, wie dem OPEN- 
Befehi, der die Datei eroffnet hat 

- es konnen numerische und String-Variable sowie Feld-Variabien gesen- 
det werden. Wichtig ist, daB die einzeinen Variabien durch das RETURN- 
Zeichen voneinander getrennt sind. RETURN kann entweder durch 
separate PRINT #-Befehle oder durch CHR$(13) erzeugt werden 

CLOSE-Befehl 

- dieser Befehi schlieBt eine eroffnete Datei 

- der CLOSE-Befehl wird iedigiich mit der Nummer der Datei versehen, die 
er schlieBen soil 

- j'ede Datei muB unbedingt geschiossen werden, da andernfalls keine 
Endmarkierung hinter die letzte Dateneintragung geschrieben wird. 
Dadurch konnen die letzten Daten verioren gehen. Im Inhaltsverzeichnis 
^Directory) einer Diskette ist eine nicht geschlossene Datei mit einem 
Stern * gekennzeichnet 

Jetzt kommt der andere Teil - eine auf Band oder Diskette 
gespeicherte Datei in den Computer laden oder lesen. Die 
Datei muB wieder eroffnet werden, diesmal zum Lesen. 

Fur die Datasette lautet der Befehi: 
100 OPEN 1,1,0, "DATEI" 
Fur die Diskette dagegen muB es heiBen: 
100 OPEN 1,8,3, "DATEI, S,R" 

Urn Daten einer Datei zu lesen, gibt es gleich zwei Befehle, 
die Sie in ahniicher Form schon kennen, namlich INPUT # 
und GET#. 
GET#-Befehl 

- Der GET#-Befehl funktioniert genauso wie der normale 
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GET-Befehl: Er liest einzelne Zeichen einer geoffneten 
Datei von einem Eingabegerat. Die Anzahl der Zeichen 
(Lange der Strings) ist beliebig. 

- Hinter GET# muB die Datei-Nummer des OPEN-Befehls 
stehen. 

- GET# kann nicht im Direkt- Modus verwendet werden. 

INPUT-Befehl 

- Der INPUT#-BefehI liest, wie GET#, Daten einer mit OPEN eroffneten 
Datei externer Eingabegerare. 

- Hinter INPUT# muB die Dateinumrner des OPEN-Befehls stehen. 

- Wahrend GET# Zeichen fur Zeichen liest, holt INPUT# ganze Daten- 
gruppen. 

- Hinter einem INPUT #-Befehi konnen mehrere, durch Kommata 
getrennte Variablen stehen. 

- Ein String darf nicht (anger ais 80 Zeichen sein. 

- INPUT # kann nicht im Direkt-Modus verwendet werden. 

In unserer Datei haben wir zwei Strings gespeichert. Mit fol- 
gender Zeile lesen wir sie: 
110 INPUT #1,A$,B$ 
120 PRINT A$,B$ 
130 CLOSE 1 

In Zeile 1 20 trenne ich das Ausdrucken von A$ und B$ mit 
einem Komma. Mit dem Klebeeffekt des Semikolon wurde 
namlich das Wort FUSSBALLTENNIS ausgedruckt werden. 
Probieren Sie das kieine Leseprogramm mit RUN 100 aus. 

Das ganze Listing fur Schreiben und Lesen einer String- 
Datei sieht so aus: 

10 OPEN 1,1,1, TEXT* \ ...fur Band 
10 OPEN 1,8,3, "TEXT, S,W" ...fur Diskette 
20 PRINT # 1 , "FUSSB ALL " 
30 PRINT #1, "TENNIS" 
40 CLOSE 1 
50 END 
60 : 

100 OPEN 1,1,0 /'DATEI" ...fur Band 
100 OPEN 1,8,3, "DATEI, S,R" . . .fur Diskette 
110 INPUT* 1,A$,B$ 
120 PRINT A$,B$ 
130 CLOSE 1 

Fur eine Datei mit numerischen Variablen sieht das Pro- 
gram m fast gieich aus: 

200 OPEN 1,1,1, "Z AHLEN " ... fur Band 
200 OPEN 1,8,3, "ZAHLEN, S,W" ...fur Diskette 
210 PRINT #1,35 
220 PRINT #1,14 
230 PRINT #1,753 
240 PRINT #1,2 
250 CLOSE 1 
260 END 
270 : 

300 OPEN 1,1,0, "Zahlen" ...fur Band 
300 OPEN 1,8,3, "ZAHLEN, S,R" ...fur Diskette 
310 INPUT#1,A,B,C,D 
320 PRINT A;B;C;D 
330 CLOSE 1 

Bei Zahlen durfen wir in Zeile 320 ruhig Semikolons ver- 
wenden, da Zahlen automatisch Trennungsabstande haben. 

Wir wollen noch die Wirkungsweise des GET#-Befehls 
ausprobieren. Ersetzen Sie im ersten Programm in Zeile 110 
das INPUT # durch GET #: 
110 GET#1,A$,B$ 

Nach RUN 100 erhalten wir den weit auseinandergezbge- 
nen Ausdruck der Buchstaben F und U. So geht es also nicht 

- GET# nimmt immer nur ein Zeichen. Wir mussen GET# 
am besten mit einer Schleife wiederhoit einsetzen. 

110 GET#1,A$ 
120 PRINT A$; 
125 GOTO 110 



Jetzt erhalten wir die beiden Worter FUSSBALL und TEN- 
NIS, aber die Schleife stoppt nicht. Wir prufen daher, wann 
das letzte Zeichen erscheint, und CLOSEn dann die Datei. 
Dazu mussen wir im Eingabeteil (Zeile 30) hinter dem letzten 
String ein erkennbares Zeichen einsetzen. Ich habe einfach 
hinter Tennis ein Leerzeichen gesetzt. ""\ 

Leider mussen wir dadurch die Datei neu eingeben, am 
besten mit einem anderen Namen in Zeile 10 und 100. Oder 
aber Sie loschen die alte Datei »TEXT«. 

30 PRINT #1, "TENNIS " 
123 IF A$=" " THEN 130 

Das sind die geanderten Zeilen. 

Das wiederhoite Schreiben der einzelnen PRINT #-Be- 
fehte ist naturlich sehr iastig. Besser geht das mit einer FOR- 
N EXT- Schleife, wobei die zu speichernden Daten entweder 
direkt per normalen INPUT-Befehl eingegeben oder mit 
READ aus gespeicherten DATA-Zeilen geholt werden. 

Ich zeige das an unserer TEXTJDatei in der GET-Version: 

10 OPEN 1,8,3, "TEXT,S,W" . . . .fur Diskette 
10 OPEN 1,1,1, "TEXT" ...fur Band 

20 FOR 1=1 TO 3 

30 READ A$ 

40 PRINT #1,A$ 

50 NEXT I 

60 CLOSE 1 

70 DATA FUSSBALL, TENNIS,* 

80 END 



. . .fur Diskette 
...fur Band 



100 OPEN 1,8,3/'TEXT,S,R" 

100 OPEN 1,1,0, TEXT" 

110 GET#1,A$ 

120 IF A$="*" THEN 130 . 

123 PRINT A$; 

125 GOTO 110 

130 CLOSE 1 

Ich habe die Zeile 120, die auf Datei-Ende pruft, leicht 

geandert. Sie pruft jetzt auf ein abschiieBendes Zeichen »*«, 
das ich als letzte Eintragung in die neue DATA-Zeile 70 
geschrieben habe. READ und PRINT#1 erfolgen nun inner- 
halb einer Schleife zwischen Zeile 20 und 50. 

Sie mussen nun die Datei TEXT entweder loschen (Dis- 
kette) oder uberschreiben ( Band). Mit RUN lauftderSchreib- 
teil des Programms bis Zeile 80. Mit RUN 1 00 starten Sie den 
Leseteil. 

Zum SchluB meiner Datei-Betrachtungen will ich mein Ver- 
sprechen einiosen, das ich bei den zweidimensionalen Fei- 
dern gemacht habe und Ihnen noch zeigen, wie wir die Melo- 
die, die wir »komponiert« und ( in Feider geiegt haben, abspei- 
chern und spater variieren konnen. 

Wir konnen auch eine Datei mit Feidern anlegen. 

Holen Sie bitte das »Fragment« des Meiodie-Programms in 
den Computer. Es lautet: 
10 DIM M(17,2) 
20 FOR 1=0 TO 17 

30 INPUT "STIMME,T0N,DAUER"jS,T,D 
35 M(I,0)=S 
40 M(l,l)=T 
50 M(I,2)=D 
60 NEXT I 
70 FOR 1=0 TO 17 
80 VOL 3 

90 SOUND M(I,0),M(I,1),M(I,2) 
100 NEXT I 
110 END 

Mit diesem Teil werden 18 Tone in das Feld M (17,2) 
gebracht und auch einmai iaut gespielt. 

Der nachste (neue) Programmteil speichert die Tone in 
einer Datei namens »MELODlE« ab. 
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120 : 

130 REM*** TOENE SPEICHERN ***** 

140 : 

200 OPEN 1,8,3, "MELODIE, S,W" . ..-fur Diskette 

200 OPEN 1,1,1, "MELODIE" ...fur Band 

210 FOR 1=0 TO 17 

220 PRINT #1,M( 1,0) 

230 PRINT #1,M( 1,1) 

240 PRINT#1,M(I,2) 

250 NEXT I 

260 CLOSE 1 

270 END 

Dieser Schreibteil des Programms sieht auch nicht anders 
aus als die Dateien; die Feld-Variablen werden wie andere 
Variablen behandelt. 

Der Leseteil allerdings muB mit der Dimensionierung eines 
Feldes beginnen, denn da hinein bringen wir ja die aus der 
Datei gelesenen Tone. 
280 : ■ . . 

290 REM***** TOENE LESEN & SPIELEN ***** 
295 : 

300 DIM M(17,2) 

310 OPEN 1,8,3, "MELODIE, S,R" ...fur Diskette 

310 OPEN 1,1,0, "MELODIE" ...fur Band 

320 FOR 1=0 TO 17 
330 INPUT#1,M(I,0),M(I,1),M(I,2) 
340 NEXT I 
350 CLOSE 1 
360 GOTO 70 *> 

Auch hier brauche ich nichts erklaren. Nach RUN 300 wer- 
den die Tone gelesen. Der Sprung auf Zeile 70 des Erzeuger- 
Programms, fails es noch im Speicher des Computers steht, 
laBt die Meiodie erklingen. Sie konnen den VOL-SOUND-Teil 
naturlich auch in die Schleife zwischen Zeile 320 und 340 
einbauen. Die Tondauer D=60 ist sicher langer als die Lese- 
zeit der Datei. 

28. Die Funktionstasten des C16 



Im Anfangskurs (Sonderheft' 5/1986) habe ich auf Seite 
61/62 die Abfrage der Funktionstasten beschrieben. 

Da beim C 1 6 die Funktionstasten aber bereits mit Funktio- 
nen belegt sind, geht das so nicht Wir erhalten noch nicht 
einmal die ASCII-Codes der Funktionstasten, wenn wir mit 
der folgenden Schleife die Tasten abfragen-: 
10 DO 

20 GETKEY A$ 
30 A=ASC(A$) 
40 PRINT A 
50 LOOP 

Nach RUN erhalten wir die ASCH-Codewerte alfer Tasten, 
auch die der Steuertasten, nur nicht der Funktionstasten. 
Diese liefern uns namlich die ASCII-Codewerte der Buchsta- 
ben ihrer test eingestellten Funktionen. 

Mitdem Befehl KEY konnen wir diese Funktionen andern. 
Seine Ubersetzung bedeutet »Schlussek 

KEY allein eingegeben druckt die derzeitigen Funktionen 
der Tasten aus. Mit KEY 5,»Funktion« wird der F5-Taste die in 
Anfuhrungszeichen stehende Funktion zugeordnet. 
KEY 1, "GET A$ 

Mit dieser Zeile, direkt eingegeben, ist die F1 Taste mit 
unserer alten GET-Schleife (die wir durch GETKEY ersetzt 
haben) belegt. 

Ahnlich unpraktisch ware die folgende Belegung der 
F3-Taste: 
KEY 3, "HINTERHUBER" 

Aber so jedenfalis funktioniert das Belegen der Funktions- 
tasten mit eigenen Funktionen oder Befehlen. 



Mit derselben Methode kann man aber die Funktionstasten 
»loschen«, so daB sie wie beim C 64 oder VC 20 als Steuerta- 
sten abfragbar sind. Wir belegen sie ganz einfach mit ihren 
ublichen ASCIi-Codewerten: 

KEY1,CHR$(133) ~~^v 

KEY2,CHR$(137) 

Die vollstandige Liste ist in Tabelle 1 enthalten. 

Wenn Sie jetzt das kleine Abfrageprogramm von oben star- 
ten, erscheinen auch die ASCII-Codewerte der Funktionsta- 
sten. Damit sind dann die Abfrageprogramme des Anfangs- 
kurses auf dem C 1 6 funktionsfabig. 

Wenn aber der Computer aus- und wieder eingeschaltet, 
oder die Reset-Taste gedruckt wird, sind die test einge- 
stellten Funktionen wieder da. 

Zusammenfassung KEY-Befehl 

- mit dem KEY-Befehl konnen die vordefinierten Funktionstasten mit ande- 
ren Funktionen der Befehlen belegt werden. 

- die Schreibweise dieses direkt eingebbaren Befehis ist: 
KEY Tastennummer,»Funktion« 

- wird der Befehl KEY ohne weitere Angaben eingegeben, druckt er die 
derzeit vorgegebenen Funktionen' der Tasten aus. 

29. Zweiteilige Schleifen 

Wir kennen bisher den IF-THEN-Befehl als Methode, urn eine 
Entscheidung innerhalb eines Programms herbeizufuhren. 

Dabeigilt, daBbei Erfuliung der Prufbedingung IFallesaus- 
gef uhrt wird, was hinter dem THEN steht, auch die Sprungbe- 
fehte. Ist die Bedingung nicht erfullt, macht das Programm in 
der nachsten Zeile weiter. Als Beispiel dafur dient das fol- 
gende kleine »Wurfel«- Programm, das statistisch auswertet, 
wieviele der gewurfelten Zahlen {von 1 bis 6) gerade und wie- 
vieie ungerade sind. 
10 DO 

20 Z = INT(RND(0)*6+1) 
30 IF INT(Z/2)=Z/2 THEN G=G+l:GOTO50 
40 U=U+1 
50 PRINT G,U 
60 LOOP 

In Zeile 20 wird nach der bereits bekannten und des ofte- 
ren eingesetzten Formel eine Zufallszahl Z zwischen 1 und 6 
erzeugt. 

Der Ausdruck IF INT(Z/2)=Z/2 pruft, ob die Zahl Z gerade 
ist. Zum Beispiel ist Z=3, dann ist Z/2 = 1,5 und !NT{Z/2) - 
1, so daB der Vergleich nicht richtig ist. Er ist nur bei geraden 
Zahlen richtig. 

Bei geraden Zahlen wird noch in Zeile 30 die Summe der 
geraden Zahlen G urn 1 erhoht, und das Programm springt 
dann auf Zeile 50 zum Ausdruck der Resultate weiter. 

Ist die Zahl aber ungerade, dann macht das Programm in 
der Zeile nach dem IF-Befehl weiter. Dort, in Zeile 40, wird 
dann die Summe der ungeraden Zahlen U urn 1 erhoht. 

Das Basic des C 16 besitzt eine Erweiterung des IF-THEN- 
Befehls, mit dem die Entscheidung in den Zeilen 30 und 40 
verbessert werden kann. Der Befehl heiBt IF-THEN-ELSE. 

Ist hier die Prufbedingung erfullt, wird alles, was hinter 
THEN steht, ausgefiihrt. Ist die Bedingung aber nicht erfullt, 
geht das Programm mit dem ELSE-Teil weiter. 
Das »Wurfel«-Programm sieht jetzt so aus: 
100 DO 

110 Z = INT(RND(0)*6+1) 

120 IF INT(Z/2)=Z/2 THEN G=G+1:ELSE U=U+1 
130 PRINT G,U 
140 LOOP 

Zwischen THEN und ELSE beziehungsweise nach dem 
ELSE konnen noch weitere Befehle folgen. Sie zahlen jeweils 
zum THEN- oder zum ELSE-Teil. 
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Als Beispiel dafur drucken wir zusatzlich die Zahl Z aus. Die 
verschiedenen Kommata sorgen fur die entsprechende Ver- 
teilung der Zahien auf dem Bildschirm. PRiNT„Z druckt 
bekanntlich die Zahl Z ab der Halfte des Btldschirms, weiJ das 
Komma beim PRINT-Befehl den Bildschirm in Viertel teilt. 
120 IF INT(Z/2)=Z/2 THEN G=G+1: PRINT Z:ELSE U=U+1: 
PRINT, Z 

130 PRINT,,G;U 

Es bleibt neben der Programmiererfahrung, die Sie durch 
dieses Beispiel gewonnen haben, nur noch Ihrem Spieltrieb 
uberlassen, diese Kleinstatistikauszuwerten oder fur andere 
Zahlenmengen umzuwandeln. 

Auch die Zufalligkeit von Zufallszahlen JaBt sich hier er- 
proben, insbesondere, wenn Sie die verschiedenen, im 
Anfangskurs auf Seite 54 oder in der 64'er-Ausgabe auf Seite 

131 beschriebenen verschiedenen Methoden der Zufalls- 
zahlen erzeu gun g anwenden. 



zu kurz. Auch hier verweise ich auf das Handbuch von Com- 
modore. 

Programm- und Systembefehle: 
Hier fehten nur noch 
PRINT-USING, WAIT, DEF-FN, SYS und USR. 

DEF und WAIT sind fur Anfanger durchaus verwendbar, die 
anderen drei gehoren eigentlich zur fortgeschrittenen Pro- 
grammierung. 

Ich hoffe, Sie haben SpaB an dem Kurs. Wenn Sie Probleme 
mitden Erklarungen oder Programmen haben, oder wenn ich 
Ihnen bei anderen offenen Fragen helfen kann: Bitte schrei- 
ben Sie mir uber den Verlag. 

Ich werde Ihnen entweder direkt antworten oder, wenn 
viele Fragen zusammenkommen, sie im 64'er-Stammheft in 
einem eigenen Beitrag beantworten. 

(Dr. Helmuth Hauck/hm) 



Zusammenfassung IF-TflEN-ELSE-Befehl 

- Wenn die Bedingung nach dem IF erfullt ist, werden- die auf das THEN fol- 
genden Befehle ausgefuhrt. 

- ist die Bedingung hinter dem IF nicht erfullt, werden die auf das ELSE fol- 
genden Befehie ausgefuhrt 



30. Zusammenfassung 



Wie schon im Anfangskurs im Sonderheft 5/1986 ist es mir 
auch hier nicht gelungen, alle Basic-Befehle zu behandeln. 
Meine Erklarungen iassen einfach eine kurze gedrangte 
Zusammenstellung nicht zu. 

Aber ich wolltejaauch nicht ein zweites Betriebshandbuch 
schreiben, sondern ihnen an vielen Beispieien, Tips und 
Kochrezepten die »Kunst« des Programmierens naherbrin- 
gen. 

Ich verweise Sie nochmals auf die anderen, hier immer wie- 
der zitierten 64'er-Sonderhefte und auf das 64'er- 
Stammheft. Das ganze Thema der Grafik zum Beispiel ist in 
mehreren Beitragen im Sonderheft 5/1986 behandett. Wei- 
tere Beitrage werden sicher noch folgen. 

Besonders im Stammheft werden regelmaSig Aufsatze und 
Tips sowohl fur die Programmierung als auch uber die 
Arbeitsweise des C 1 6 veroffentlicht. 

Mir bleibt jetzt nur noch die Aufgabe, alle diejenigen 
Befehle aufzulisten, die ich nicht behandelt habe. 
Programmierhilfen: 
Die Funktionen von 

AUTO, CONT, TROFF, TRON, DS, DS$ 
sind im Handbuch von Commodore recht gut beschrieben. 
Fehlerbehandlung: 
Die Befehie 

RESUME, TRAP, EL, ER, ERR$ und ST 
sind sicher eine eigene Behandlung wert. 
Strlngbearbeitung: 
Hier fehlen nur 

INSTR, STR, und die zusatzlichen Eigenschaften von MID$ 
Grafikbefehle: 
Dazu gehoren 

BOX, CHAR, CIRCLE, DRAW, GRAPHIC, PAINT, LOCATE, 
RDOT, RGR, SCALE und alle SHAPE-Befehle. 

Wie schon gesagt, auch das ist ein Kurs fur sich. 
Diskettenbefehle: 

Die meisten sind im Handbuch beschrieben. Diejenigen, 
die in das tnnenieben der Disketten fuhren, mussen in einem 
Sonderkurs behandelt werden. 
Numerische und trigonometrische Funktionen: 

Urn diese tut es mir leid, denn sie kommen immer wieder 



Anhang: Befehlsiibersidit 
C16, C64/VC20, C128 

{nach Funktionen geordnet) 



Befehl 



C16 



C64,VC20 



CI 28 



EIN-AUSGABE 



BLOAD 



BOOT 



BSAVE 



CLOSE 



CMD 



DCLEAR 



DC LOSE 



DLOAD 



DOPEN 



DSAVE 



DVERIFY 



GET 



GET# 



GETKEY 



INPUT 



INPUT# 



JOY 



LOAD 



OPEN 



PEN 



POT 



PRINT 



PRINT# 



PRINT USING 



PUDEF 



READ- DATA 



RECORD # 



SAVE 



VERIFY 



PROGRAMM-ABLAUFSTEUERUNG 



BEGIN 



BEND 



DEF-FN 



DIM 



DO-LOOP-EXIT 



DO-LOOP-UNTIL 



DO- LOOP-WHILE 



END 



FOR-TO-NEXT 



GOSUB-RETURN 



GOTO 



GO 64 



IF-THEN 



IF-THEN-ELSE 



LET 



MONITOR 
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BASIC-KURS 



Befehl 




C16 


C64, VC20 


CI 28 


NEW 




* 


, 


* 


ON-QOSUB 




* 


* 


* 


ON-GOTO 




* 


* 


* 


POINTER 








* 


REM 




* 


* 


* 


RREG 








* 


RESTORE 




* 


* 


* 


RUN 




* 


* 


* 


SLEEP 








* 


SYS 




* 


* 


• 


USR 




* 


* 


* 


WAIT 




* 


* 


* 




SPEJCHER 


BANK 








* 


FETCH 








* 


FRE 




* 


* 


* 


PEEK 




* 


* 


* 


POKE 




* 


* 


* 


STASH 








* 


SWAP 








* 




DISKETTE 


APPEND 








* 


BACKUP 




* 




* 


CATALOG 








* 


COLLECT 




* 




* 


CON CAT 








* 


COPY 




* 


X 


* 


DIRECTORY 




* 




* 


HEADER 




* 


* 


* 


INITIALIZE 




X 


X 


X 


NEW 




X 


X 


X 


RENAME 




* 


X 


* 


SCRATCH 




* 


X 


* 


VALIDATE 




X 


X 


X 


DasZeichen »X«bedeutet, daB der Disketten-Befehl nur 
nach der Offnung eines Befehlskanals mit OPEN 1,8,15 
gegeben werden kann. 


GRAFIK 


BOX 




* 




* 


CHAR 




* 


■ 


• 


CIRCLE 




* 




* 


COLOR 




* 




*. 


DRAW 




* 




* 


GRAPHIC 




* 




* 


LOCATE 




* 




* 


PAINT 




* 




* 


RCLR 




* 




* 


RDOT 




+ 




* 


RGR 




* 




* 


RLUM 




* 




* 


SCALE 




* 




* 


WIDTH 




* 




* 




SPRITE-SHAPE 


BUMP 








* 


COLLISION 








* 


GSHAPE 




* 




* 


MOVSPR 








* 


RSPCOLOR 








* 


RSPPOS 








* 


RSPRITE 








* 


SPRCOLOR 








* 


SPRDEF 








* 


SPRITE 








* 


SPRSAV 








* 


SSHABE 




* 




* 



Befehl 



C16 



C64,-VC20 C128 



TONE 



ENVELOPE 



FILTER 



PLAY 



SOUND 



TEMPO 



VOL 



BILDSCHIRM & FORMATIERUNG 



CLR 



POS 



RWINDOW 



SCNCLR 



SPC 



TAB 



WINDOW 



FEHLERBEARBEITUNG 



DS 



DS$ 



EL 



ER 



ERR$ 



RESUME 



ST 



TRAP 



STRINGBEARBEITUNG 



ASC 



CHR$ 



INSTR 



LEFTS 



LEN 



MID$ 



RIGHTS 



STR$ 



VAL 



PROGRAMMIERHILFE 



AUTO 



CONT 



DELETE 



FAST 



HELP 



KEY 



LIST 



RENUMBER 



SLOW 



STOP 



TROFF 



TRON 



GEOMETRISCHE & NUMERISCHE FUNKTIONEN 



ABS 



ATN 



COS 



XJEC 



EXP 



HEX& 



INT 



LOG 



RND 



SIN 



SGN 



SQR 



Tl 



T!$ 



BOOLSCHE OPERATIONEN 

AND 

NOT 

OR 

XOR 



ii&ff 
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64 08 029 A 90mm 



6 



yi 



y2 




X 



(x2/y2) 



y # 



Bildschirm 



Bjld 1. 

Das schraffierte 

Rechteck 

kennzeichnet das 

spatere Shape 



Shapes auf dem C 1 6 



Zwei Grafikbefehle sind es, die manchem C16-Be- 
nutzer einige Ratsel aufgeben. Beide haben mit 
den Shapes zu tun: SSHAPE und GSHAPE wer- 
den Ihnen hier vorgestellt. 

Eine wichtige Kaufentscheidung bei Commodore- 
Computern sind ihre ausgezeichneten Grafikfahigkei- 
ten. Doch leider ist ihnen teilweise recht schwer beizu- 
kommen. So etwa bei den Shapes. Hier erfahren Sie, wie Sie 
mit den Grafik-Befehlen SSHAPE und GSHAPE umgehen 
mussen. Doch zuerst: Was sind Shapes? 

Wie so vieles aus der Computerkuitur stammt auch dieses 
Wort aus dem Angelsachsischen: Shape heiBt ins Deutsche 
ubersetzt soviel wie Form, Gestait oder UmriB. Hier bezeich- 
net Shape einen genau definierten Bildschirmausschnitt, der 
gespeichert und wiederverwendet werden kann. Wie das mit 
dem C16 geschieht, soli nun erklart werden. 



Die Shape-Befehle 



1. SSHAPE 

Dies ist der Befehl, mit dem ein Bildschirmbereich in einen 
String eingelesen werden kann. Seine Syntax ist 
SSHAPE A$,X1,Y1,X2,Y2 

A$ ist hier eine beliebige Stringvariable, auch ein Array 
kann Verwendung finden. X1 bis Y2 gibt die Eckkoordinaten 
desRechteckesan, dessen Inhaltals Shape definiert werden 
soil. Bild 1 soil das etwas verdeutlichen. 

(X1.Y1) gehoren zum linken oberen und (X2.Y2) zum'rech- 
ten unteren Eckpunkt Es ist auch moglich, X2 und Y2 weg- 
zulassen. in diesem Fall werden durch den SSHAPE- Befehl 
einfach die aktuellen Koordinaten des Grafik-Cursors einge- 
setzt. 

Falls es noch unkiar sein sollte: Im Gegensatz zu den Spri- 
tes anderer Commodore-Computer, die jedem Bildschirm- 



Modustrotzen (also sowohl als Hi Res- oder Multicolorsprites 
im Text- als auch im Hochauflosungs- und Multicolormodus 
auftauchen konnen), sind Shapes test mit dem aktuelten 
Modus verfeunden. Ein Shape ist ein Grafikobjekt und kann 
daher auch nur in den Grafikmodi auftreten und definiert wer- 
den. Also in denen, die durch GRAPHIC erzeugt werden, 
wobei n von 1 bis 4 geht. AuBerdem ist ein Multicolorshape 
auch nur im Multicolormodus ein solches. Schaltet man bei- 
spielsweise mittels GRAPHIC1 in den normalen Hochauflo- 
sungsmodus urn, wird auch unser Shape nur als hochaufge- 
lostes sichtbar. 

Wie wir uns aus all dem schon fast denken konnen, ist das 
Koordinatensystem, auf das sich die Angaben X1 bis Y2 
beziehen, das im jeweiligen Modus gultige. Im Normaifall also 
im HiRes-ModusXvon bis 319 und Y von bis 199. Im Mul- 
ticolormodus geht X nur von bis 159. 

A$ ist ein.String. Fur Strings gilt beim C 1 6 die Begrenzung 
auf maximal 255 Byte. Ein durch SSHAPE in einen String zu 
schreibendes Gebiet darf also eine gewisse GroBe nicht 
uberschreiten. Bezeichnen wir als 
DX = X2 - X1 und als 
DY = Y -Y1 
dann gift fur die Bytemenge im String im Hochauflosungs- 
modus die Formel: 

Lh= INT ( ( ABS ( DX) +1 ) /8+ . 99 ) * ( ABS ( DY ) +1) +4 
Im Multicolormodus gilt statt dessen die Gleichung: 
Lra=INT((ABS(DX)+l)A+.99)*(ABS(DY)+l)+4 

Die Addition von 4 am Ende der Formeln ergibt sich durch 
4 Byte, die den SchluB des Shape-String, bilden und Steuer- 
groBen enthalten. 

Sollte dann, trotz all dieser Berechnungsmoglichkeiten - 
man wendet ja nicht jedesmal die Formeln an - der zu spei- 
chernde Shape groBer als 255 Byte werden, dann meldet 
unser Computer einen STRING TOO LONG ERROR. 

Einen Aspekt des SSHAPE-Befehls mussen wir noch 
besprechen, weii es da einige Verwirrung geben kann: Wie 
reagiert SSHAPE auf ein durch SCALE verandertes Bild- 
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Textyerarbejtun g »"■* dem C16/C 116? 
Kein Problem mit dem 




si 
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^ lilt' 
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Das Textverarbeitun gss vstem leistunqsmerkmale: 
mit der Profi-Ausstattung: 



• ohne Vorkenntnisse bedienbar 

• ubersichtliche Texteingabe am Bildschirm 

• sofortige Textformatierung nach jeder 
Anderung 

• direkte Funktionswahl ohne umstandliche 
Menus 

Hardware-Anforderungen: 

C16/C116, Floppy 1541 oder Datasette 

Diskette: Bestell-Nf. MD 255 / Kassette: Bestell-Nr. MK 256 



i&ym 



i 



Der »Textmanager« arbeitet mit ^SCROLLING* in alien Richtungen. Der Bildschirm dient als Fenster aut den 

Text, das mit den Cursortasten in beliebige Richtungen bewegt werden kann. 

Das »WORDWRAPPING« ermoglicht die Texteingabe ohne Beachtung des Zeilenendes. Worter, die fur die 

aktuelle Zeile zu lang sind, werden komplett in die nachste Zeile geschoben. 

Die Textbreite kann beliebig im Bereich zwischen 35 und 99 Spalteri variiert werden. Anderungen sind 

jederzeit (!) moglich, wobei der Text sofort auf die geanderte Zeilenbreite umformatiert wird. 

Wie jede komfortable Textverarbeitung besitzt auch der »Textmanager« komfortable Kommandos zum 

SUCHEN, einzelnen Oder globalen ERSETZEN von Text etc. 

Sowohl Einzel- als auch Endlospapier kann verarbeitet werden. 

TrotzdervielfaltigenMoglichkeitenistder3.Textmanager«extremschnell,daervollstandig(!)inMaschinen- 

sprache erstellt wurde. 

TEXTMANAGER gibt's auf Diskette oder Kassette ^ 
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C 16/C 116-Programmsammlung 



11 Top-Programme fur den C16/C116. Super- 
Spiele mit toller Grafik, wlchtfge Utilities: 

• TEXT 1.0 - ein einfaches, aber dennoch 
groBtenteils menOgesteuertes Text- 
verarbeitungsprogramm. 

• BASIC-Tool - mit dieser sensation e lien 
BASIC-Erweiterung haben Sie 13 wichtige 
Befehle zur Verfugung, die im C 16/C 11 6- 
BASIC fehlert. 

• DATAGENERATOR - wandelt einen frei zu 
wahlenden Speicherbereich in DATA-Zeilen um. 



Die C 16/C 116-Programmsammlung wird auf zwei Kassetten mit 
Bedienerhandbuch geliefert. 

Hardware-Anforderungen: 

-C16/C116 mit Datasette 

- fur Ausdrucke Commodore-Drucker 

Bestell-Nr. MS 628 "flitT MAT ~- „, 



Bitte verwenden Sie fur Ihre Bestellung und 
Uberweisung die eingeheftete Postgiro- 
Zahlkarte, oder senden Sie uns einen Verrech- 
nungsscheck. 




Markt&Technik 



Unternetimensbereich fluclwerlag 

Hans-Pinsel-StraBe 2, 8013 Haar bei Miinchen 



Schweiz: Markt&Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, Tel. 042/41 5656 

Osterreich: Ueberreuter Media Handels- und 
Verlagsges.mbH, Alser StraBe 24, 1091 Wien, 
Tel. 0222/481538-0 
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schirmsystem? Die Koordinatenangabe bei SSHAPE muB 
ebenfalfs in den aktuell gultigen Werten geschehen. Man 
muB sich also nicht urn die Organisation des Koordinaten- 
systems kummern, denn durch SSHAPE wird automatisch 
die Umrechnung auf den normalen Bildschirm vorgenom- 
men. Lediglich bei der Berechnung der Stringlange mussen 
einige Korrekturen vorgenommen werden. 

Nehmen wir an, wir batten durch SCALE 1 ein System defi- 
niert, dann Jiegen (im Hochaufiosungsmodus) die VergroBe- 
rungsfaktoren 
FX = 1023/320 
FY = 1023/200 

vor und die Beziehungen fur die Stringlange iauten dann: 
Hochaufiosungsmodus 

Lh=INT( (ABS(DX*320/1023)+1)/&k99)* (ABS(DY*200/1023) 
+1)4 
Multicolormodus 

Lm=INT( ( ABS (DX* 160/1023 )+l)/4+. 99)* (ABS(DY*200/1023) 
+l)+4 

DX und DY sind d'abei im aktuellen Koordinatensystem gel- 
ten de Werte. 

Begnugen wir uns nun mit dem SSHAPE-Befeh! (es gabe 
noch einiges zu untersuchen) und wenden wir uns dem 
Gegenstuck, namlich dem GSHAPE-Befehl zu. 
2. GSHAPE 

Ein durch SSHAPE im String gespeichertes Bild kann 
durch diesen Befehl nun wieder auf dem Bildschirm darge- 
steilt werden: 
GSHAPE A$,X,Y,M \ 

A$ ist der uns nun schon bekannte Speicherstring, der 
durch SSHAPE definiert wurde Es kann jede Stringvariable 
oder ein String-Array-Efement verwendet werden. 

X,Y sind die Koordinaten im aktuellen System, an die die 
linke obere Ecke unseres Shapes gelegt werden soil. 

Interessant ist die Angabe von M. Hier dreht es sich urn 
einen Darstefiungsmodus, von dem es hier 4 Moglichkeiten 
gibt: 

M=0. Unser Shape wird genauso abgebildet, wie es defi- 
niert wurde. Schon an dieser Stelle auf dem Bildschirm vor- 
handene Objekte werden uberdeckt Dasselbe ergibt sich, 
wenn wir diesen Parameter einfach weglassen. 

M— 1. Das Shape wird invertiert abgebildet. Auch hier uber- 
deckt das Shape vorhandene Objekte. 

M=2. OR-Modus: Bildpunkte werden sichtbar, wenn sie 
zum Shape oder zu vorhandenen Objekten gehoren. Beide 
Bilder uberlagern sich so. 

M=3. AND-Modus: Bildpunkte werden nur dann gesetzt, 
wenn sie sowohl zum Shape als auch zum Bildschirmobjekt 
gehoren. 

M=4. EOR- (oderXOR-) Modus: Bildpunkte werden nur 
dann gesetzt, wenn das entsprechende Bit fur Shape und 
Bildschirmobjekt ungleich ist. 

Die Modi 2, 3, und 4 sind etwas schwer vorstellbar. Zur Ver- 
deutlichung finden Sie hier ein kleines Demonstrationspro- „ 
gramm namens GSHAPE-MODI. 

Hier wird zuerst ein Shape definiert, dann der gesamte Bild- 
schirm quergestreift und schlieBiich das soeben erstellte 
Shape in alien 5 Modi darauf dargestellt. Die Wirkung ist auf 
diese We.ise ganz gut zu erkennen, besonders bei den Modi 
2, 3 und 4. 

Der Modus ist aufgrund der EOR-Behandlung interessant: 
Wird auf dieselbe Stelle noch einmal das Shape im Modus 4 
gezeichnet, dann verschwindet es ganz, und der Bildschirm- 
hintergrund ist wieder vornanden. Will man Shapes bewe- 
gen, ohne Bildschirmobjekte zu zerstoren, dann ist diese 
Darstellungsweise ganz gut geeignet. 

Die Frage, wie viele Shapes man definieren und auch dar- 
stellen konne, erubrigt sich fast: beliebig viele, soiange der 
Speicherplatz fur die Strings reicht. Man konnte sich also 



eine eigene Bibliothek von Hochauflosungs- oder Multicolor- 
objekten zulegen und diese dann bei Bedarf abrufen. Sollte 
fur ein Objekt der String zu kurz sein, konnen mehrere 
Shapes gekoppelt werden. Sie erkennen schon: Auch hier 
sind die Moglichkeiten sehr breit. 

Zusammenspiel von SSHAPE und GSHAPE 



Eine Frage haben wir noch offengelassen, die eine recht ver- 
lockende Konsequenz in sich birgt: Wenn man mittels der 
SCALE-Anweisung die Systeme bei SSHAPE (also beim Auf- 
bau des Shape) und bei GSHAPE (bei der Abbildung) unter- 
schiedlich wahlt, kann man dann Shapes verkleinern oder 
vergroBern? 

Die Antwort ist leider nein. Bei GSHAPE werden nur die 
Koordinaten eines (des linken oberen) Eckpunktes angege- 
ben. Somit hat ein unterschiejiiiches Koordinatensystem 
lediglich auf den Darstellungsort eine Wirkung, nicht aber auf 
die Shape-GroBe. 

Im Gegensatz zu den..- Sprites der anderen Commodore- 
Computer ist das Bewegen von Shapes eine langweilige 
Angelegenheit. Jedem Shape-Aufbau durch GSHAPE kann 
man ganz geruhsam zusehen. Zwar ist es durch Sequenzen 
wie. 

TO 200 

A$, 1,1,4 

A$,l,l,4 



FOR = 

GSHAPE 

GSHAPE 

NEXT I 

moglich, Shapes ohne Schaden fur den Bildschirminhalt uber 

den Sichtbereich Ziehen zu iassen. Das Ganze ahnelt aber 

bei weitem nicht der Sprite-Bewegung. 

Der C 16 wird oft unterschatzt. Zwar ist er vom Speicher- 
platz her - besonders bei eingeschalteter Grafik - wirklich 
reichlich beschrankt, von seinem Basic her ist er allerdings 
manchem weitaus kostspieligeren Computer hoch uberfe- 
gen, was auch diese beiden kleinen Befehle zeigen. 

(Heimo Ponnath/dm) 



10 REM **# DIE GSHAPE-MODI *** 

20 REM.ERSTELLEN EINES SHAPE 

30 COLOR 0,1: COLOR 1,6: COLOR 4,1: GRAPHIC 

lil 

40 CIRCLE 1,10,10,10,10! BOX 1,0,0,20,20: PA 
INT 1,1,1: PAINT 1,19,1s PAINT 1,1,19 

50 PAINT 1,19,19: CIRCLE 1,10,10,7,7: DRAW 1 
,10,0 TO 10,20: DRAW 1,0,10 TO 20,10 

b0 SSHAPE A*, 0,0, 20,20 

70 SCNCLR 

80 REM BILDSCHIRMHINTERGRUND 

90 DX=5: DY=5: X=0: Y=0 

100 DD WHILE X<511 

110 : X=X+DXs Y=Y+DY 

120 : DRAW 1,0, Y TO X,0 

130 LOOP 

140 REM ABBILDEN DEB SHAPE 

150 FOR 1=0 TO 4 

160 : GSHAPE A*, 10+55*1 , 100,1 

170 NEXT I 

180 REM KOMMENTAR 

190 COLOR 1,3 

208 FOR 1=0 TO 4 

210 : B*=RIGHT*<STR*<I> , 1) 

220 : CHAR 1 ,2+7*1 , IS, B* 

230 NEXT I 

240 CHAR 1,1, 4, "DIE GSHAPE-MODI UND IHRE WIR 
KUNGEN: " , 1 

250 CHAR 1,1,23,"BITTE EINE TASTE" 

260 SET KEY A* 

270 SRAPHIC 0,1 

2B0 END 

Listing 1, Die verschiedenen Modi beim GSHAPE-Befehl 
und ihre Wirkungen 
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Das Auge »iBt« mit 




Genauso wie beim Essen das Auge mitiBt, stei- 
gert auch das optische Bild (Menu) eines Pro- 
grammes das Interesse. Wie Sie diesen AppeJit- 
anreger in Ihr Programm einbinden konnen, 
erfahren Sie in diesem Kurs. 

Viele Programme zeichnen sich dadurch aus, daB sie 
eine sehr anwenderfreundliche Form der MenuSteue- 
rung {Bild 1) besitzen. Siehtman sich einige Menus von 
Programmen kommerzieiler Software-Hersteller an, wie zum 
Beispiel Textverarbeitungs- oder Dateiverwaitungspro- 
gramme, so kann man hier mit den Cursortasten die einzelnen 
Programmfunktionen auswahlen. Dabei werden mit den Cur- 
sortasten einzelne Menupunkte hervorgehoben. 1st der 
gewunschte Menupunkt erreicht, wird er mit einer Taste, zum 
Beispiei die F1 -Taste, aktiviert. 

Die einfachste Form der Menusteuerung ist die, die einzel- 
nen Menupunkte durchzunumerieren. Mit der Basic- 
Anweisung »ON n GOTO konnen die Unterprogramme sehr 
schneil aufgerufen werden. Zum Beispiel: 
100 INPUT" MENUEPUNKT";A 
110 ON A GOTO 1000, 2000, 3000,..., n 

Eine solche Menusteuerung wird in Listing 1 angewandt. 
Dieses Programm ermoglicht es, die Werte »SPIELSTUFE«, 
»GESCHWINDlGKEIT« und »ANZAHL DER SPIELEFk zu ver- 
andern. Die Werte »SPIEL"STUFE« und »GESCHWINDIG- 
KEiT« konnen 1, 2 oder 3 annehmen, »ANZAHL DER SPIE- 
LER« 1 oder 2. Ein solches Menu konntevoreinem Spielpro- 
gramm stehen. 

Uber einen INPUT-Befehl (Zeile 320) wird die Nummer des 
gewunschten Menupunktes eingegeben, auf Richtigkeit der 
Eingabe wird in Zeile 330 gepriift (es sind nur 1, 2, 3 oder 4 



nteressantes 
zieht 
Auge an 



als Eingaben gestattet) und in der Zeile 360 in das Unterpro- 

gramm gesprungen. Der Befehl 

360 ON P GOTO 380, 450, 520, 590 

verzweigt, wenn die Variable P, die in Zeile 320 die Nummer 

des gewunschten Menupunktes vom Benutzer uber die 

INPUT-Anweisung (320 INPUT "..";?) erhalt, den Wert 1 hat, 

nach 380, bei P = 2 nach 450 und so weiter. 

Die Adressen, die hinter dem ON n GOTO-Befehl stehen, 
zeigen jeweiis auf die erste Zeilennummer einer Unterroutine, 
die vorher per Menu ausgewahlt wurde. Zu den Zeilen 370 
bis 620 ist nichts weiter zu sagen, als daB dort die Unterrouti- 
nen stehen, die die Eingabe von Werten beziehungsweise 
das Verlassen des Menus bewirken. 

Die Variablen L, G und A enthalten die Werte fur »Spiel- 
stufe« (<L> fur »Level«), »Geschwindigkeit« <G> und 
»Anzahl der Spieler« <A>. Die Variable P enthalt die Num- 
mer des Menupunktes, der ausgefuhrt werden soil. 
" Diese Form des Menus, die in Listing 1 verwendet wird, ist 
allerdings noch recht unkomfortabel- Storend ist, daB jede 
Eingabe der Menunummer immer mit der RETURN-Taste 
bestatigt werden muB. Im foigenden soil dies geandert wer- 
den. Dies erreicht man durch Verwendung einer GET- bezie- 
hungsweise GETKEY-Abfrage anstelle des INPUT-Befehls, 
wie in Listing 2 in Zeile 640 zu sehen ist. Listing 2 hat jedoch 
noch eine weitere kleine Erganzung, die ich Ihnen hier 
nebenbei vorstelien mochte, weil sie simpel, somit leicht ver- 
standlich und ohne nennenswerte Probleme programmierbar 
und wirkungsvoll zugleich ist: die Window-Technik. 

Damit Sie sofort erkennen konnen, worum es sich handelt, 
soilten Sie Listing 2 abtippen, starten und alle Funktionen 
ausprobieren. Jetzt drucken Sie nur noch 1, 2, 3 oder 4 (je 
nach Menupunkt), dann konnen Sie gegebenenfalls einen 
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der Werte »SpieIstufe«, »Tempo« (=»Geschwindigkeit« aus 
Listing 1) und »Anzahl der Sp>eler« andern. Diese verbesserte 
Form der Parametereingabe 1; hat allerdings nichts mit der 
Window-Technikzu tun, mit der wir uns nun beschaftigen wol- 
len. 

Ein Window (»window« = englisches Wort fur »Fenster«) ist 
ein Bildschirmausschnitt, der als Teilbildschirm behandelt 
wird und fur einen bestimmten Zweck (zum Beispiel die 
Anzeige eines Copyrights) reserviert ist Mit Hilfe der 
Sequenzen ESC-B beziehungsweise ESC-T konnen Sie beim 
C 1 6/1 1 6 das Window bestimmen, es handelt sich jedoch nur 
urn eine VerkJeinerung des Bildschirmbereiches: dieser Teil- 
ausschnitt wird wie der gesamte Biidschirm gehandhabt. 
Dies ist nutzlich, urn Teile des Bildschirms vor dem Uber- 
scnreiben zu schutzen {fur eigene Programme auBerst 
unbrauchbar). Im Beispielprogramm (Listing 2) sind einzelne 
Teile des Bildschirms fur bestimmte Aufgaben freigehalten; 
so gibt es: 

- ein Copyright-Window, in dem der Copyright-Vermerk 
stent, 

- ein Level-Window, in dem die Spielstufe stent, 

- ein Tempo-Window, in dem die Geschwindigkeit steht, 

- und ein Anzahi-Window, in dem die Anzahl der Spieler 
steht. 

Die Windows werden in den Zeilen 290 bis 590 ausgege- 
ben, und zwar dann, wenn auf eine neue Eingabe gewartet 
wird. Da die Windows immer an derselben Bildschirmposition 
stehen und nicht verschoben werden, muB vor der Neu- 
ausgabe eines Windows nicht*erst der Biidschirm geloscht 
werden. Dieser Trick, immer nur deckungsgleiche Bereiche 
auszugeben (wodurch dem Benutzer der Neuaufbau eines 
Bildschirmbereichs nicht auffallt), wird an spaterer Stelle in 
diesem Kurs - bei einer anderen Form der Menusteuerung - 
erklart. Dort konnen Sie dann die Funktionsweise erfahren, 
die uns hier im Moment nicht weiter aufhalten soil. 

Bei der Verwendung von Windows sind folgende Punkte zu 
beachten: 

1. An der Stelle, an der ein Window stehen soil, darf vorher 
kein anderer Text stehen, da dieser sonst durch das Window 
uberschrieben wird. Wenn Sie einmal sehen woIlen, s wie ein 
Window einen Teil des Bildschirms uberschreibt, andern Sie 
jeweils die drei Parameter nach CHAR in den Zeilen 340 bis 
390 von 2 bis 7 auf 7 bis 1 2. Starten Sie dann das Programm, 
und das Copyright-Window uberschreibt die Menupunkte 
teilweise. 

2. Windows muB man optiseh abgrenzen, damit sie vom 
»normalen« Biidschirm unterschieden werden konnen. In der 
Regel nimmt man Grafikzeichen, die das Window, einrahmen. 
In Listing 2 sehen Sie einige verschiedene Mbglichkeiten der 
Eingrenzung eines Windows (durch Reversdruck, Grafikzei- 
chen, Sterne), und es gibt noch mehr Variationen. 

3. Die Position des Windows muB festgelegt sein. Vor dem 
Ausdrucken eines Windows muB diese Window-Position als 
Cursorposition eingestellt werden. Hierbei ist der CHAR- 
Befehl eine groBe Hilfe. Dieser Befehl kann namiicn nicht nur" 
Texte in hochauflosende Grafik schreiben, sondem auch wie 
ein PRINT-Befehl bestimmte Stellen im normalen Text-Modus 
beschreiben. Die Syntax fur CHAR zum PRINTen an eine 
beliebige Cursorposition ist: 

CHAR 1, " Spalte, Zeile, "TEXT ALS STRING" 

Die »1« hinter CHAR gibt an, daB in die normale Textseite 
geschrieben werden soil. Spalte und Zeile entspricht der 
Cursorposition, bei der die Textausgabe beginnen soli. >TEXT 
ALS STRING« ist der auszugebende Text. 

Ein Tip: In der Regel wird man "den Wert fur »Spalte« beim 
Drucken eines Windows nichtandern, daderlinke Rand nicht 
verandert wird; der Wert fur »Zeile« ist jedoch dauernd urn 1 
hochzuzahlen, wie man unteranderem an den Zeilen 340 bis 
390 verfolgen kann (3. Parameter nach CHAR!}. 



4. Der Einfachheit halber solite man nur Windows in Recht- 
eckform programmieren, weil man in diesem Fall nur zwei 
Begrenzungen des Windows kennen muB: Lange und Breite. 
Da das C 16/116-Betriebssystem das Arbeiten mit Windows, 
wie wir es bendtigen wurden, nicht unterstutzt, muB man auf 
die Einhaltung dieser Grenzen selbst achten. Bei Rechteck- 
Windows der gebrauchlichen Form muB man folgende Werte 
festlegen: 

- linke Grenze 

- rechte Grenze 

- obere Grenze 

- untere Grenze 

Man darf also, weil ein Window kleiner als der gesamte Biid- 
schirm ist, nur eine begrenzte Textbreite verwenden; auBer- 
dem stehen nicht befiebig viele Zeilen zur Verf ugung. Dies ist 
ganz einfach eine Frage der Planung beim Schreiben der 
PRINT- beziehungsweise CHARrZeilen. Betrachten wir dazu 
einmai die Zeilen 340 bis 390.jJeder dieser sechs CHAR- 
Befehle hat als 2. Parameter eine 5, das Drucken wird also 
immer in der linken Spalte begonnen. Damit ist die Einhaltung 
der linken Grenze garanJnert. Die obere Grenze wird dadurch 
eingehaiten, daB die Ausgabe in der 2. Zeile beginnt (Zeile 
340: CHAR .,.,2,...), die untere Grenze dadurch, daB nicht 
weiter als bis zur 7. Zeile gedruckt wird (Zeile 390: CHAR 
•„7,~)- 

Die rechte Grenze einzuhalten ist am schwierigsten, denn 
hier kommt es nicht nur auf die Parameter des CHAR-Befehls 
an. Wenn man aber eine einheitliche Lange des Ausgabe- 
Strings einhalt - in den Zeilen 340 bis 390 hat jeder 
Ausgabe-String exakt 1 1 Zeichen Lange, das Window ist also 
11 Zeichen breit - durfte es keine Probleme geben. Wir kon- 
nen nur abschlieBend wiederholen: Wenn man beim Pro- 
grammieren ausreichend genau vorgeht, sind Windows ein 
Kinderspiel. 

Wir hoffen, daB Ihnen der Ausflug ins Thema »Windows« 
SpaB gemacht hat; nun wollen wir uns bis zum Ende dieses 
Kurses mit einer ahnlich asthetischen Form der Menusteue- 
rung befassen. Dazu ist zunachst etwas vorauszuschicken. 

Der C 16/11 6 bietet im Gegensatz zum VC 20/C64 eine 
Funktionstastenbelegung, die Sie als C16/116er sicher zu 
schatzen wissen. Der einzige Haken dieser Funktionstasten- 
belegung ist jedoch, daB die Abfrage der Funktionstasten 
uber GET/GETKEY erschwert wird. Urn dies zu umgehen, ist 
es erforderlich, den C64/VC 20-Zustand wiederherzustel- 
len, indem die Funktionstasten wie Steuertasten (CLEAR, 
HOME, Cursortasten, Farbtasten,...) gehandhabt werden. 
Zwar kann man mit den auf die Funktionstasten gelegten 
Steuertasten keine Steuerfunktion hervorrufen (die verwen- 
deten Codes 133 bis 140 haben eben keine Funktion), aber 
man kann leicht auf eine Funktionstaste warten: A 

10 KEY 1,CHR$(133):REM Fl^Taste mit Code belegen 
20 GETKEY A$:IF A$OCHR$(l33) THEN 20: REM auf Fl- 
Code warten 

Von den Steuertasten wie CLEAR, HOME, Cursortasten 
und so weiter kennen Sie die Mdglichkeit, Steuerzeichen in 
Anf uhrungszeichen als reverse Symbole zu schreiben (siehe 
Eingabehinweise fur Basic- Programme in diesem Heft). Nach 
der Belegung der Funktionstasten mit Steuercodes geht dies 
auch mit F-Tasten. Nach Eingabe von KEY 1,CHR$(133) ist 
die F1 -Taste mit dem Code 133 belegt; durch einmaliges 
Drucken der Anfuhrungszeichen-Taste wird die F1 -Taste als 
reverses Grafikzeichen abgebifdet, wie es innerhalb von 
Anfuhrungszeichen auch mit der HOME-Taste geschieht. 

Alle nun fofgenden Listings machen von der Abfrage der 
F1- und der F7-Taste (die anderen Funktionstasten bleiben 
unberuhrt) Gebrauch. Dadurch steht zwar auf F1 nicht mehr 
»GRAPHIC« und auf F7 nicht mehr »LIST«, aber wir konnen 
die Tasten abfragen. Die erforderlichen KEY- Befehie stehen 
in jedem der nun folgenden Listings, miissen jedoch schon 
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Bild 2. Das Menu aus Listing 3 

vor der Eingabe der Programme eingegeben werden, um in 
Anfuhrungszeichen die F1/F7-Taste mit einem Steuerzei- 
chen auszudrucken. Geben Sie also vor der Eingabe alter fol- 
genden Listings dieses Kurses die Anweisung 
KEY 1, CHR$ ( 133 ) : KEY 7 , CHR$ ( 136 ) 

im Direktmodus ein. Wenn Sie ein soiches gespeichertes 
Programm laden wollen, sind diese Befehle nicht erforder- 
lich, da sie bereits im Programm stehen. 

Damit Sie gleich in den GenuB eines guten Menus kon> 
men, tippen Sie einfach Listing 3 ab und starten es. Der Bild- 
schirm wird dunkel und ein Menu mit den Punkten A bis E 
erscheint Hinter jedem MenupunkUsteht eine Zahl in Klam- 
mern, die die Nummer des Unterprogramms angibt, das Sie 
anwahlen konnen. Die Funktionen des kleinen Programms im 
einzelnen: 

Mit < CURSOR DOWN > kommen Sie zum nachsten Punkt 

Mit < CURSOR UP> erreichen Sie den vorhergehenden 
Punkt. 

Vom untersten Menupunkt aus konnen Sie mit CURSOR 
DOWN direkt in den obersten und mit CURSOR UP vom ober- 
sten Punkt zum untersten springen. 

Mit HOM E konnen Sie von jedem Punkt immer in den ober- 
sten springen. 

<F1 > aktiviert das angewahlte Unterprogramm. 

< F7> bricht das Programm mit END ab. 

Probieren Sie ohne weiteres aile Funktionen von Listing 3 
aus (Bild 2). Soilte Ihnen diese Art der Menusteuerung gefal- 
ien haben, dann erfahren Sie im folgenden mehr uber den 
Aufbau. 

im Bild 3 finden Sie die schematische Darstellung der 
Menupunkte von Listing 3. Die Randpunkte A (0) und E (4) 
sind besonders hervorgehoben, weil an diesen die Rotation 
stattfindet. 



Menu A 
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Bild 3. Schema- 

zeichnung (die Pfeile 

zeigen die Bewegungs- 

richtung des hervor- 

gehobenen Feldes an) 



Die Variablen von Listing 3: 

A (Menuanzahl) enthalt die Anzahl der Menu- 

punkte (5). A andert sich nie und ist folglich eine 
Konstante. 
R$(n) ist immer ein 1 -Byte-String, der den Wert 

CHR$(0) enthalt. Der Code CHR$(0) steht fur 
Null und hat keine Funktion. Wenn ein Menu- 
punkt hervorgehoben is, so steht in R$(n) der 
Wert CHR$(18) fur <REVERS ON>. 
p (Programmpunkt) enthalt die Nummer des ange- 

wahlten Unterprogramms. P wird durch die Cur- 
sortasten geandert und gibt den Menupunkt an, 
der hervorgehoben werden soil. Des weiteren 
wird P zur Anwahl der Unterprogramme benotigt. 
(490 ON P+1 GOTO 610, 680, ...) 
T$ (Taste) In der Zeile 480 wird die Tastatur abge- 

fragt. Der Tastencode wird in der Variablen T$ 
gespeichert. In den Zeilen 490 bis 500 und 520 
bis 540 wird der Tastencode mit Bedingungen 
verglichen. Ist die Bedingung wahr, so wird die 
nachfolgende Anweisung ausgefuhrt. 
Nachdem die Variablen beechrieben wurden, soil nun der 
Programmaufbau betrachtet werden. 
Zeile 200 bis 300 

in der Zeile 250 werden die Variablen definiert. Nach der 
DIM-Anweisung in der Zeiie 250 ist ubrigens das gesamte 
Feld R$(n) mit Leerstrings belegt. (Sollten Ihnen einige 
Begriffe, zum Beispiel »Feld« nicht bekanntsein, so schauen 
Sie sich doch bitte den Basic-Kurs oder das Lexikon an.) 

In der Zeile 260 wird die Variable P (Programmpunkt) auf 
Null gesetzt (Menupunkt A). 

Die Anweisung R$(P) = CHR$(18) in Zeiie 270 hebt den 
Menupunkt hervor, indem derZeichenbintergrund die Farbe 
des Zeichens erhalt und das Zeichen in Schwarz dargestelit 
wird. Im folgenden werde ich diese Darstellung als invers 
bezeichnen. 

Schlie&lich werden in Zeiie 280 die Bildschirm- und Rah- 
menfarbe auf Schwarz gesetzt, der GroB-/Grafikmodus akti- 
viert und der Bildschirm mit PRINT CHR$(147) geloscht. 
Hauptschleife: Zeile 310 bis 560 

Bei der Zeile 310 beginnt die Hauptschleife. Das Menu 
springt immer von Zeiie 560 aus auf 310 zuruck, solange kein 
Unterprogramm aktiviert wurde. 
Textausdruck: Zeile 340 bis 420 

In den Zeilen 340 bis 420 findet man die Textausgabe der 
funf Menupunkte- (Die Zeile 340 wird anschlieBend noch 
gesondert besprochen). Vor den einzelnen Menupunkten 
steht die String variable R$(n): 
380 PRINT TAB(9);R$(0);"[Farbe}Menuepunkt A [Revers 

off] (0) [CURSOR DOWN)" 
R$(n)wirkthieralsSchalter.lstR$(n)=CHR$(0),soschal- 

tet er den Reversmodus nicht ein. Ist dagegen 
R$(n)=CHR$(18), so schaltet er den Modus ein. Die Zeile 
430 gibt das gerade angewahlte Programm (Nummer) an. 
Warten auf Tastendruck: Zeile 450 bis 480 

Diese Programmzeile holt ein Zeichen von der Tastatur und 
legt sie in der String-Variablen T$ ab. Trifft die Bedingung T$ 
— ' Leerstring zu, so verzweigt das Programm zuruck zum 
Anfang dieser Zeile. Damit wartet das Programm in dteser 
Schieife, bis eine Taste gedruckt wurde. 
480 GET T$ : IF T$ = " " THEN 480 
Programmaufruf: Zeile 490 

In der Zeile 490 wird gepruft, ob die zuletzt gedruckte 
Taste die Funktionstaste F1 war. Ist diese Verknupfung wahr, 
so wird die Anweisung, die hinter THEN steht, ausgefuhrt. 
490 IF T$= "[Fl] " THEN ON P + 1 GOTO 610, 680, 730 

Dabei bedeutet die Anweisung ON P GOTO (Zeile): springe 
auf die Zeilennummer, die durch den Zeiger P angewahlt ist. 
Ein Beispiel: P enthalt den Wert 2. Zu dtesem wird laut Anwei- 
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sung eine 1 addiert (P + 1) und ist damit 3. Dieser Wert gibt 
die Position (3) in der Tabeile an, an der die Zeilennummer 
stent, zu der gesprungen werden soil. In unserem Beispiel 
ware es die Zeile 730. / 

Programmabbruch: Zeile 500 -"" 

Ergibt die Priifung T$ = "(F7]", daB diese Bedingung 
zutrifft, so wird das Programm miteiner Bemerkung beendet. 
500 IF T$ = " (F7) " THEN PRINT "(CURSOR 2 mal DOWN] 
Programmabbruch." : END 
Riicksetzen: Zeile 510 

Es wird die Stringvariable R$(P), die an dieser Stelle noch 
den Wert CHR$(18) enthait, auf CHR$(0) geandert. 
510 R$(p) = CHR$(0.) 
Programmanwahl: Zeile 520 bis 540 

in diesen drei Zeilen wird gepruft, ob die Taste CURSOR 
UP, CURSOR DOWN Oder HOME gedruckt wurde. (Auf diese 
Anweisungen wird noch gesondert eingegangen.) 
Menupunkt invertieren: Zeile 550 

In der Zeile 550 wird der Variabien R$(P), wobei P jetzt 
den neuen Menupunkt beinhaltet, der Wert CHR$(18) 
zugewiesen. 
550R$(P) = CHR$(18) 
Riicksprung: Zeile 560 

Hier ist die Hauptschleife beendet und es wird auf die Zeife 
310 zuruckgesprungen. 
560 GOTO 310 
Unterprogramme: ab 570 

Es folgen die funf Unterprogramme, die Sie vom Menu aus 
aufrufen konnen. 

Die Struktur des ersten Programms ware damit, bis auf 
einige Besonderbeiten, beschrieben. Urn die Bewegung des 
Reversfeldes zu simulieren, muS das alte Bild bei jedem 
Tastendruck mit dem neuen Bild uberschrieben werden. Die 
Frage ist: wie erreicht man es, daft sich die Bilder absolut 
genau decken? Man tegt dazu einen Bezugspunkt, die linke 
obere Ecke, auf dem Bildschirm fest. Der Basic- Befehl dazu 




Bild 4. Fluftdfagramm: 
Rotation des hervor- 
gehobenen Feldes 
nach oben 



ist HOME Oder PRINT CHR$(19). Fugt man den Befebf als 
PRINT CHR$(1 9)-Anweisung in ein Programm ein, so springt 
der Cursor in die iinke obere Ecke des Bildschirms. La3t man 
nun den Bildschirminhalt erneut ausdrucken, so liegt er 
deckungsgleich zum alten Bild. Die Anweisung PRINT 
CHR$(19) kann auch durch die Sequenz, PRINT "[HOME] ", 
ausgedruckt werden. 

Ersetzen Sie in der Zeile 340 die Anweisung CHR$(19) 
durch CHR$(147) (Bildschirm loschen), so wird der Neuauf- 
bau des Bildes deutlicher, weil der Biidschirm jedesmal kom- 
plett geloscht wird. Dies macht sich dann durch ein Flackern 
des Bildes bemerkbar. 

Die etgentliche Besonderheit des kleinen Programms steht 
in den Zeilen 520 bis 540. Mit der Zeile 540, der einfach- 
sten, soil begonnen werden. 
540 IF T$ = " [HOME] " THEN P = 

1st die Bedingung T$ = "[home]" wahr, so wird die Variable 
auf gesetzt Damit enthait P die Nummer des obersten 
Menupunktes und druckt diesen in inverser Schrift aus. 

Betrachtet man noch einmal Bild 3, so erkennt man, daB 
das Inversfeld jeweiis urn, 1 nach oben wandert, wenn die 
CURSOR UP-Taste gedrtfckt wird. Zum Beispiel wandert das 
Feld von C nach B und der Wert fur P sinkt urn 1, von 3 auf 
2. Daher heiBt es auch in der Zeile: 
530 IF T$ = "(CURSOR DOWN) " THEN P = P - 1 ... 

Hatte die Variable vorher den Wert 0, so vermindert sie sich 
jetzt auf den Wert (-1). Ein Menupunkt mit der Nummer (-1) 
existiertabernicht, stattdessensofl viefmehrvon dem Menu- 
punkt A aus direkt nach Menu E gesprungen werden. Es fol- 
gen nun mehrere Moglichkeiten, mitdenen diese Bedingung 
erfullt werden kann. Ein entsprechendes FluBdiagramm fin- 
den Sie im Bild 4. 

Der erste Weg: 
P = P - 1 : IF P = (-1) THEN P = 
oder 
P = P - 1 : IF P = (-1) THEN P = P + 5 
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Bild 5. Flu&diagramm: 
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Bild 6. Das horizontale Menu aus Listing 5 

Der Weg, der beschritten wurde, ist eigentlich deutlich. Es 

wird das Ergebnis aus der Subtraktion P - 1 mit dem Wert (-1) 

verglichen. Ergibt der Vergleich, daB P = (-1) ist, dann wird 

der Wert der Variablen P'durch 4 ersetzt oder urn 5 vermehrt. 

in der Zeile 530 steht dagegen: 

P = P-1-A*(P^0) 
Hier wird zunachstauch der Wert der Variablen P urn 1 ver- 

mindert. Ist die in Klammern stehende Bedingung (P = 0) 

wahr, das heiBt gieich, so wird der Ausdruck durch (-1) 

ersetzt. Dieser Wert kann nun in die Rechnung einbezogen 

werden. Die Gleichung lautet dann: 

...THEN P=P-1-A*(P=0) 
= -...THEN P = P-1-A* (-1>, 
= — ...THEN P = P - 1 - (-A) 
=— ...THEN P = P - 1 + A 

Ersetzen Sie die Konstante A dureh 5 und die Variable P 
durch 0, so erhalten Sie foigende Gleichung: 

...THEN P=0-l-5*(0=0) 
= — ...THEN P = 0-l-5* (-1) 
=— ...THEN P = - 1 - (-5) 



Bild 7. Das zweidimensionale Menu aus Listing 6 

= — . . .THEN P = - 1 + 5 

= — ...THEN P = 4 ■[ 

ist die Bedingung P = nicht wahr, so wird vereinbarungs- 
gemaB eine fur die Antwort »das ist falsch« geschrieben. 
Ersetzt man in der Rechnung, den Ausdruck (P = 0) durch 
unwahr (0), so andert sich dte Gleichung in 

...THEN P=P-1-A*(P=0) 
= -...THEN P=P-1-A*(0) 
=— ...THEN P = P - 1 - 
= — ...THEN P = P - 1 

Kontrollieren Sie diese Gleichung wieder mit folgenden 
Werten: A = 5 und P = 2. 

Betrachtet man nun die Zeile 520, so ahnelt sie der Zeile 
530. Deshaib kann die Abhandlungauch etwaskiirzerausfal- 
len (Bild 5). 

In der Zeile 520 steht: 

P = P + 1 + A* (P = (A-1)) 

Auch hier ist wieder die Verknupfung(P = (A-1 )) der Haupt- 
bestandteii. Geht man davon aus, daB P - 4 ist, so muB die 
Rechnung wie folgt aussehen. 




Bild 8. Fiulidiagramm: 
Verschiebung des 
Inversfeldes in zwei 
Ebenen 
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...THEN P=P+1+A*(P=(A-1)) 
=— ...THEN P = P + 1 + A* (-1) 
=-*... THEN P = P ■+ 1 + (-A) 

Da P = 5-1 wahr ist, sieht die mit Zahfen ersetzte Glei- 
chung so aus: 

. . .THEN P=4+l+5*(4=(5-l)) 
=^...THEN p = 4 + l + 5* (-1) 
= -...THEN P = A + 1 + (-5) 
= — ...THEN P = 

Ich nehme an, daft Ihnen der Algorithmus War geworden ist. 
im Anhang finden Sie noch weitere Erklarungen zur Compu- 
terlogik. 

Warum nun diese umstandliche Schreibweise? Alle IF- 
Anweisungen benotigen viei Rechenzeit, matbematische 
Operationen dagegen sind verhaltnismaBig schnell. Deshalb 
lohnt sich die Verwendung dieses Algorithmus in alien Ver- 
gfeicbsverfahren, die durch eine Rechnung ersetzt werden 
konnen. 

In der untersten Zeile unseres Menus steht die Anmerkung 
»Derzeit angewahlter Menupunkt«. Dahinter wurde bisher die 
Nummer des Menupunktes angezeigt Dagegen sind alle 
Menupunkte im Text durch einen Buchstaben gekennzeich- 
net (Bild 2). Deshalb wird die Zeile 430 geandert in: 
430 PRINT "DERZEIT ANGEWAEHLTER MENUEPUNKT:" CHR$ 
(65 + P) 

Der Code fur den Buchstaben »A« ist die 65 (siehe auch im 
Commodore-Handbuch ASCII-Code). Alle im Alphabet fol- 
genden Buchstaben haben jeweiis eine urn 1 groBere Code- 
zahl. Auf Grund dieser Tatsache lafit sich der Buchstabe des 
Menupunktes mit der kieinen Rechnung 
Code = 65 + P 
ermitteln. 

Listing 2 ist eine Variante von Listing 3, wie sie in der Praxis 
angewendet wird. Die Informationen bezuglich der internen 
Numerierung sowie die REM-Zeilen wurden weggelassen. 
AuGerdem wurden die Zeilen teilweise komprimiert. So steht 
fur PRINT CHR$(0) jetzt PRINT" " und fur PRINT CHR$(18) 
jetzt PRINT" [Steuertaste]". Die wichtigste Anderung dage- 
gen ist, daB die Konstante A entfallt und dafiir alle Ausdrucke, 
in denen A vorkommt, ausgerechnet werden. (Vergleichen 
Sie die Zeilen 520 und 530 von Listing 3 mit 360 und 370 
von Listing 4.) 

Warum nicht horizontal? 



Bislang wurden die Menus untereinander angeordnet, man 
konnte auch von einem vertikalen Menu sprechen. Es istaber 
kein Problem, die Menus auch horizontal (waagerecht) anzu- 
legen. In Bild 6 sehen Sie, wie dies gemeint ist. An den Punk- 
ten A und E erfolgt wieder die Rotation. Bei einem horizonta- 
len Menu entspricht die Bewegung des Inversfeldes nach 
rechts die der Bewegung nach unten im vertikalen Menu. Die 
Bewegung nach links entspricht der nach oben. In Listing 5 
finden Sie ein horizontales Menu, wie Sie es in Bild 6 sehen. • 
Die mit der Taste F1 aufgerufenen Unterprogramme geben 
den Inbalt der Variablen P an. Wie Sie in Zeile 360 und 370 
sehen, wird die Funktion der CURSOR DOWN-Taste von der 
CURSOR RIGHTTaste ubernommen. Ebenso ersetzt die 
CURSOR LEFT-Taste jetzt die CURSOR UP-Taste. DergroBte 
Teil von Listing 5 wurde aus dem Listing 4 ubernommen. 
AuBer der Tastaturabfrage haben sich nur die Printanweisun- 
gen geandert. Zusatzlich sind die Zeilen 410 bis 580 (Unter- 
programme) durch die Anweisung 

330 IF T$ = "(Fl)" THEN PRINT "ANGEWAEHLTER PUNKT: " ; P 
: END 
ersetzt worden. 

Zum AbscbluB des Kurses soil noch das vertikale und hori- 
zontale Menu miteinander verbunden werden. Es entsteht 



ein zweidimensionales Menu (Listing 6). In den mehrdimen- 

sionalen Menus werden alle vier Cursortasten mit einbezo- 

gen. Die CURSOR UP- und -DOWN-Tasten werden im Prinzip 

wie im vertikalen Menu (siehe Listing 3) zur Ansteuerung der 

vertikalen Ebenen {A-D, B-E, C-F siehe Bild 7) verwendet. Die 

CURSOR LEFT- und -RIGHT-Tasten werden zur Anwahl der 

beiden Spalten verwendet. Die FluBdiagramme finden Sie in 

Bild. 8. Die entsprechenden Berechnungen stehen in den 

Zeilen 360 bis 390. 

360 IF T$ = "(CURSOR DOWN)" THEN P = P + 1 + 3* 

(P = 2 OR P = 5) 

370 IF T$ = "(CURSOR UP]" THEN P = P-l-3* 

(P = OR P = 3) 

380 IF T$ = "(CURSOR RIGHT]" THEN P = P + 3 + 6 

(P >2) 



Logik-Befehle 

In Basic gibt es verschiedene Moglichkeiten Vergleiche durchzufuh- 
ren. Jeden Vergleich konnen wir auch'als Frage ansehen. So zum Bei- 
spiel konnte man fur den Vergleich »A = B« fragen: 

1st der Wert A ebensogroB wie der Wert B? Als Antwort stande: »das 
ist wahr« oder »das ist falsely. Nach diesem Prinzip behandelt auch der 
Computer die Vergleiche. Wenn man die Antwort jedesma! in einem Satz 
ausgeben wurde, brauchte man viei Platz. Deshalb hat man sich geei- 
nigt, fur den Ausdruck »das ist wahr« (-1) anzugeben und fur »das ist 
falsch* (0). Diese Werte ( (-1) und 0) kdnnen wir auch zum Rechnen ver- 
wenden. In der folgenden Tabelle finden Sie alle Vergleichsbefehle mit 
ihrer Beschreibung. 
= sind die Werte gleich grofl? 

< ist der links stehende Wert kleiner als der rechts 
stehende? 

> ist der links stehende Wert grbBer als der rechts 
stehende? 

< > sind die Werte verschieden groB? 

< = ist der links stehende Wert kleiner oder gleichgroB mit 

dem rechts stehenden? 

> = ist der links stehende Wert groBer oder gleichgroB mit 

dem rechts stehenden? 
Alle in dieser Tabelle stehenden Bedingungen (Vergleiche) konnen 
nur mit wahr oder faisch beantwortet werden. Es gibt aber noch eine 
Reihe anderer Logik-Befehle, wie OR oder AND. Diese unterscheiden 
sich von den ersten Logik-Befehlen dadurch, daB hier mehrere Antwor- 
ten moglich sind. Ein Beispiel: 
A = (27 AND 8) => A = 8 

Warum ist das Ergebnis acht? in unserem Beispiel wird der erste Wert 
binar mit dem zweiten Wert verglichen. 

27 = 0001 1011 
AND 8 = 0000 1000 

8 = 0000 1000 ( 

Verknupfen wir die Bits jeder Spaite, von rechts nach links, nach fol- 

gendem Algorithmus: AND 1 oder 1 AND = und 1 AND 1=1. 
Das entspricht also einer einfachen Multiplikation. Das heiOt in unserem 
Beispiel, daB die ersten vier Bit zu Nuli werden. In der 5. Spaite steht 
jeweiis in der ersten und zweiten Zeile eine 1 und somit ist die Verknup- 
fung auch eine 1 (1 ma! 1=1). 

Mit dieser Verkupfung konnen wir bestimmte Werte (binar) aus einem 
anderen Wert herausfiltern. 

Beispiel: 

A = (46 AND 15). Hier werden die Wertanteile von O bis 15 heraus- 
gefiltert. 

46 = 0010 1110 
AND 15 = 0000 1111 

14 = 0000 1110 

Die andere Verknupfung ist die OR-(Oder-)Verknupfung. Hier lautet 
der Algorithmus: ist entweder der eine Wert oder der andere oder beide 
Werte 1, so ist das Ergebnis 1, sind beide Werte 0, so ist auch das 
Ergebnis 0. 
Ein Beispiel: * 

13 = 0000 1101 
OR 46 = 001 1110 

47 = 0010 1111 

Mehr uber IF-Abfragen und logische Vergleiche finden Sie im 
Basic-Kurs. 
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390 IF T$ = "[CURSOR LEFT]" THEN P = P - 3 - 6 

(P <3) 

Da nur zwei Spalten vorhanden sind, muBte rticht z'wischen 
CURSOR RIGHT und CURSOR LEFT unterschieden wer- 
den. Beide Tasten veranlassen nur den Wechsel in die andere 
Spalte. Eigentlich lieGe sich dieser Sonderfall durch eine OR- 
Verknupfung einfacher realisieren. Sie lautet: 
380 IF T$ = "[CURSOR RIGHT}" OR T$ = 
" [CURSOR LEFT] " THEN . . . 

Auf die THEN-Anweisung konnte jede der Formeln aus 
Zeile 380 Oder 390 passen. 

A!s kleine Beigabe habe ich fur Sie noch eine JA/NEIN- 



100 
110 

120 

130 
140 
150 
160 
170 
180 
190 
200 

210 

220 
230 
240 
250 

260 

270 

2B0 

290 
300 

310 

320 
330 

340 
350 

360 
370 

380 
390 
400 
410 
420 

430 
440 
450 
460 
470 
480 
490 

500 
510 
520 
530 
540 
556 
560 
570 
5B0 
590 
600 
610 
620 



REM ******************************* 
REM * * 

REM *BEISPIEL~MENUE* 

REM * * 

REM ******************************* 
REM * * 

REM * (SEHR E INF ACHES MENUE) * 
REM * * 

REM ******************************* 

L=l: G-ls A=l : REM LEVEL, GESCHW I ND I GKE I 

T UND ANZAHL DER SPIELER VORBELEBEN 

COLOR 0,1: COLOR 4,1: PRINT CHR* (5): SCN 

CLR 

PRINT TAB (7) "BEISPIELMENUE FUER C16/116" 

PR I NT TAB « 7 ) " " 

PRINT "<4D0WN>" 

PRINT TAB(3);CHR*(18)" *1 " CHR* ( 146) ;TAB 

(10) ;"SPIEL5TUFEU30WN>" 

PRINT TAB (3); CHR* (18) " 2 " CHR* ( 146) ; TAB 

(10);" GESCHW I ND I SKE I T O30 WN 3- " 

PRINT TAB (3) jCHR*<18>" 3 " CHR* < 146) ; TAB 

(10); "ANZAHL DER SPIELER CDOWN J" 

PRINT TAB (3); CHR* (IB)" 4 " CHR* (146); TAB 

(10) ; "AUSWAHL BEENDEN C2DOWN3-" 
PRINT "SPIELSTUFE :",L 

PRINT "BESCHWINDIBKEIT :",B 

PRINT "ANZAHL DER SPIELER : "A 

INPUT "•C2D0WN>WELCHEN MENUEPUNKT" ; P 

IF P<1 OR P>4 OR POINT (P) THEN 320: REM 
NUR EINGABEN 1,2,3,4 ZULASSEN 



REM UNTERPROGRAMME ANSPRINBEN 
ON P BOTO 380,450,520,590 

REM UNTERPROBRAMM VON MENUEPUNKT i 
REM 

INPUT "SPIELSTUFE (1,2,3) ";L 

IF L<1 DR L>3 OR LOINT(L) THEN 410: REM 

NUR RIGHT I BE EINGABEN ZULASSEN 
BOTO 210 

REM UNTERPROGRAMM VON MENUEPUNKT 2 

REM -■ ; 

INPUT " GESCHW I ND I GKE IT (1,2,3) ":B 

IF G<1 OR G>3 OR GOINT(G) THEN 480: REM 

NUR RIGHT I6E EINGABEN ZULASSEN 
GOTO 210 

REM UNTERPROGRAMM VON MENUEPUNKT 3 

REM 

INPUT "ANZAHL DER SPIELER (1,2)"; A 
IF AOl AND A<>2 THEN 550 
BOTO 210 

REM UNTERPROGRAMM VON MENUEPUNKT 4 
REM 

PRINT "<UPJAUSWAHL UEBER MENUEPUNKT 4 BE 
ENDET.": END 



Listing 1. Sehr einfaches Menu mit ON n GOTO-Befehl 



Abfrage (Listing 5). Im Prinzip haben Sie hier wieder ein nori- 
zontales Menu. Mit den Cursortasten konnen Sie eine der 
beiden Antworten anwahlen. Durch Drucken der F1- Oder 
RETURN-Taste veranlassen Sie die Ausfuhrung des Unter- 
programms fur Ja Oder Nein. (Fiorian Muller/do) 



100 REM ******************************* 
1 1 REM * * 

120 REM 
130 REM 



160 REM 
170 REM 



*BEISPIEL-MENUE* 

* * 
140 REM ******************************* 
150 REM * * 

* (MIT WINDOW-TECHNIK) * 

* * 
180 REM ******************************* 
190 : 

200 L=l: G=i: A=l: REM LEVEL, GESCHWINDIBKEI 
T UND ANZAHL DER SPIELER ; VORBELEBEN 

210 COLOR 0,1: COLOR 4,1: PRJINT CHR* (5): SCN 
CLR 

220 PRINT 

230 PRINT TAB (7)" 

240 PRINT "<5DOWN>" *•' 

250 PRINT TAB (3); CHR* (IB)" 1 
(10) ;" SPIELSTUFE tDO WN>" 



TAB (7) "BEISPIELMENUE FUER CI 6/ 116" 



CHR* (146) ;TAB 



260 PRINT TAB<3) ; CHR* (18) " 2 " CHR* ( 146) ; TAB 

(10) ; "GESCHWINDIGKEIT<DOWN>" 
270 PRINT TAB (3); CHR* (18)" 3 " CHR* ( 146) ; TAB 

(10);"ANZAHL DER SPIELERCDOWNJ" 
280 PRINT TAB < 3) 5 CHR* < 18)". 4 " CHR* ( 146) 5 TAB 

(10);"AUSWAHL BEENDEN £2D0WN>" 
290 REM NACH DEN NORMALEN PRINT-ZEILEN WERD 

EN JET7T DIE WINDOWS GEDRUCKT 
300 : 
310 REM ZUERST DAS COPYRIGHT-WINDOW: 

330 : 

340 CHAR 1 , r=i , ? 7 " U***.*.*.*.*.*.*J. " 
350 CHAR l,5,3.,"aC0PYRIGHT~" 



l t 5,4," = WINDOW: - 
1 T F. , FS T " S**.*JHiL****i r 
1,5, 6, "-(C) 64'ER= 
1,5,7," J-*-*-**-***-*.*.K. 



360 CHAR 

370 CHAR 

380 CHAR 

390 CHAR 

400 : 

410 REM NUN DAS LEVEL-WINDOW: 

420 REM ===================== 

430 CHAR 1,22,5," CRVS0N,15SP ACE >" 

440 CHAR 1,22,6," <RVSON> SPIELSTUFE: "+STR* (L 

)+" " 
450 CHAR 1,22,7,"CRVSDN,15SPACE,RV0FF>" 
460 : 

470 REM UND DAS GESCHWINDIGKEITSWINDOW: 
480 REM ================================ 

490 : 

500 CHAR 1 , 28 , 1 , " K*.*. *r* r *-*-*-*-*-^" 

510 CHAR l f 28,li, ,, =TEMPQ5 ,, +STR*<G>+" =" 

520 CHAR 1 , 28 , 1 2 , " •7 *.*_*.***.*.*.*.y " 

530 : 

540 REM UND DAS SPIELERZAHL -WINDOW: 

550 REM =========================== 

560 : 

„570 CHAR 1,25,16,"*************" 
580 CHAR 1,25,17,"*"+STR*(A)+" SPIELER *" 
590 CHAR 1 ,25, 18, "************* ODOWN >" +CHR* ( 

13) 
600 : 
610 : 
620 PRINT 

N !" 
630 : 

640 GET KEY A* 
650 IF A* 
660 IF A* 
670 IF A* 
680 IF A* 
690 : 
700 GOTO 290 

Listing 2. Listing mit Window-Tech nik, einfach gelost 



BITTE ENTSPRECHENDE TASTE DRUECKE 



"1" THEN L=L+1: 
"2" THEN S-G+ls 
"3" THEN A=A+1: 
THEN END 



IF L>3 THEN L=l 
IF G>'3 THEN G=l 
IF A>2 THEN A=l 



= »4» 
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100 
110 

120 
130 
140 
150 

160 

170 

180 
190 

200 

210 
22© 

230 
240 
250 

260 
270 

2S0 

290 

300 

310 
320 

330 

340 
350 

360 

370 

380 

390 

400 

410 

420 

430 

440 
450 
460 
470 

480 
490 

500 

510 

520 

530 
540 

550 
560 

570 
580 
590 

600 

610 
620 

630 

640 

650 
660 

670 

6B0 



REM ******************************* 
REM * * 

REM *MENUESTEUERUNG* 
REM * * 

REM ******************************* 
REM * * 

REM * VON FLORIAN MUELLER 10/1985 * 
REM * * 

REM ******************************* 

REM *** INITIALISIERUNG *** 
REM *** ============»=»= *## 

CLR 

A = 5: REM FUENF MENUEPUNKTE 

DIM R* (A-l): REM REVERS-TABELLE DIMENSI 

ONIEREN 

P = 0s REM MENUEPUNKT EINSTELLEN 

R* (P) = CHR$US)s REM MENUEPUNKT REVE 

RB 

COLOR 0,1: COLOR 4,1: PRINT CHR*(142> 

PRINT CHR*U47): REM BILDSCHIRM LOESCHEN 

REM *** AUSGABE DER MENUEPUNKTE *** 

REM *** ======================= *#* 

PRINT CHR*<19>;; REM CURSOR HOME 

PRINT "{YELLOW, 3SPACE>MENUESTEUERUNG - B 

EISPIELPROGRAMM" 

PRINT " C3SPACE >========================= 

PRINT : PRINT : PRINT 

PRINT TAB(9) ;R*(0)? "TRED>MENUEPUNKT A CRV 

OFF J <0)<DOWN>" 

PRINT TAB (9) ; R* < 1 > ; " {CYAN>MENUEPUNKT B<R 

VOFFJ <l)-CDOWN>" 

PRINT TAB (9> ; R* (2) ; " {PURPLE >MEMUEPUNKT C 

{RVOFF > < 2) {DOWN* " 

PRINT TAB (9) | R* (3) ; " {GREEN>MENUEPUNKT D{ 

RVOFF > <3)CD0WN>" 

PRINT TAB <9> ; R* <4> ; "{BLUE > MENUEPUNKT E {R 

VOFF> <4) {DOWN>" 

PRINT : PRINT " {GREY3>DERZEIT ANGEWAEHLT 

ER MENUEPUNKT: "P 

REM *** TASTATURABFRAGE *#* . 
REM *** ============3=== ### 

GET T*: IF T*="" THEN 480 

IF T*=" <F1>" THEN ON P+l GOTO 610,680,73 

0,780,830 

IF T*="-CF7>" THEN PRINT " {2DOWN>PROSRAMM 

A88RUCH.": END 

R*(P) = CHR$<0) 

IF T*='»{DOWN>" THEN P = P+l + A*(P=CA-1> 

) 

IF T*="<UP>" THEN P = P-l - A*(P=0) 

IF T*="CHOME>" THEN P = 

R**P> = CHR$(18> 

GOTO 310 

REM *** MENUEPUNKTE (RDUTINEN) *** 

REM *** ======================= ### 

REM MENUEPUNKT 1 

PRINT "{CLR>SIE HABEN DEN OBERBTEN MENUE 

PUNKT ANGE-" 

PRINT "<DOWN>WAEHLT. DIESER HAT IN DER I 

NTERNEN NU-" 

PRINT "CDOWN>MERIERUNG DEB PROGRAMMB DIE 

NUMMER: "P 
PRINT "{2D0WN>BITTE DRUECKEN BIE EINE TA 
STE *'; 
POKE 204,0: WAIT 198,1: POKE 204,1: POKE 

19B,0: GOTO 290 

REM MENUEPUNKT 2 



690 PRINT "CCLR3SIE HABEN DEN ZWEITOBERSTEN 

MENUEPUNKT" 
700 PRINT " {DGWN3AN6EWAEHLT. INTERNE NUMMER: 

"P 
710 GOTO 650 
720 : 

730 REM MENUEPUNKT 3 
740- PRINT "CCLRJSIE HABEN DEN MITTLEREN MENU 

EPUNKT ANGE-" 
750 PRINT "WAEHLT. DESSEN INTERNE NUMMER 1ST 

:"P 
760 GOTO 650 
770 : 

780 REM MENUEPUNKT 4 
790 PRINT "CCLRJSIE HABEN DEN ZWEITUNTERSTEN 

MENUEPUNKT" 
B00 PRINT " tDOWN 3- ANGEWAEHLT. INTERNE NUMMER: 

"P 
810 GOTO 650 I 

820 : I 

830 REM MENUEPUNKT 5 
840 PRINT "{CLR3STE HABEN DEN UNTERSTEN MENU 

EPUNKT ANGE-" - 
850 PRINT "WAEHLT. "INTERNE NUMMER: "P 
860 GOTO 650 

Listing 3. Vertikal orientiertes Menu. 

Vor dem Start unbedingt im Direktmodus eingeben: 

KEY 1,CHR$(133):KEY 7,CHR$(136) 



100 REM ******************************* 

110 REM * * 

120 REM *MENUESTEUERUNG* 

130 REM * * 

140 REM ****** GEKUERZTE VERSION ****** 

150 REM * * 

160 REM ** VON FLORIAN MUELLER 10/1985 * 

170 REM * * 

180 REM ******************************* 
190 : 

200 REM INITIALISIERUNG 

210 CLR : DIM R*<4>: P=0: ft* <P>=" {RVSON }" 
220 COLOR 0,1: COLOR 4,1: PRINT "{CLR}" CHR* 
(142) 

230 REM AUSGABE DER MENUEPUNKTE 

240 PRINT "{HOME, YELLOW, 3SP ACE JMENUESTEUERUN 

G - BEISPIELPROGRAMM" 
250 PRINT " {3SPACE >========================= 

======== ODOWN > " 

260 PR I NT T AB ( i 1 ) ; R* ( 0) ; " {RED > MENUEPUNKT A -CD 

OWN}" 
270 PRINT TAB (11) j R* ( 1 > ; " {CYANJMENUEPUNKT B i 

DOWN J" 
280 PRINT TAB<11) ;R*< 2);" {PURPLE JMENUEPUNKT 

C{DOWN>" 
290 PRINT TABCil) jR$<3)j " {GREEN>MENUEPUNKT D 

<DOWN>" 
30© PR INT TAB < 1 1 > ; R* ( 4 > ; " •£ BLUE > MENUEPUNKT E { 

DOWN,GREY3>" 
310 REM TASTATURABFRAGE 
320 GET T*: IF T*="" THEN 320 
330 IF T*="{Fi>" THEN ON P+l GOTO 420,470,50 

0,530,560 
340 IF T*="<F7>" THEN PRINT " C2DOWN3PROGRAMM 

ABBRUCH. ": END 
350 R*<P>="" 

360 IF T$="{DOWN>" THEN P=P+l+5* (P=4> 
370 IF T*="{UP>" THEN P=P-l-5* (P=0) 
380 IF T$="{HQME>" THEN P=0 
390 R*(P>=" {RVSON}" 
400 GOTO 230 

410 REM MENUEPUNKTE (ROUTINEN) 
420 PRINT "-CCLR3-SIE HABEN DEN OBERBTEN MENUE 

PUNKT ANGE-" 
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430 PRINT " CDOWNJWAEHLT. DIESER HAT IN DER I 

NTERNEN NU-" 
440 PRINT "•CDQWNJMERIERUNB DES PROGRAMMS DIE 

NUMMER: "P 
450 PRINT "{2D0WNJBITTE DRUECKEN SIE EINE TA 

STE "; 
460 POKE 204,0: WAIT 198,1: POKE 204,1: POKE 

198,0: GOTO 220 
470 PRINT "<CLR>SIE HABEN DEN ZWEITOBERBTEN 

MENUEPUNKT" 
480 PRINT " {DOWN>ANGEWAEHLT. INTERNE NUMMER: 

"P 
490 GOTO 450 
500 PRINT "CCLR>SIE HABEN DEN MITTLEREN MENU 

EPUNKT ANGE-" 
510 PRINT "WAEHLT. DESSEN INTERNE NUMMER 1ST 

:"P 
520 GOTO 450 
530 PRINT "<:CLR>SIE HABEN DEN ZWEITUNTERSTEN 

MENUEPUNKT" 
540 PRINT "tDOWNJANGEWAEHLT. INTERNE NUMMER: 

"P 
550 GOTO 450 
560 PRINT "<CLR>BIE HABEN DEN UNTERBTEN MENU 

EPUNKT ANBE-" 
570 PRINT "WAEHLT. INTERNE NUMMER: "P 
580 GOTO 450 

Listing 4. Verkiirztes vertikales Menu. 

Vor dem Start unbedingt im Direktmodus eingeben: 

KEY 1,CHR$(133):KEY 7,CHR$(136) 



100 REM ******************************* 
110 REM * * 

120 REM *MENUESTEUERUNG* 
130 REM * * 

140 REM ********* HORIZONTAL ********** 
150 REM * * 

160 REM * VON FLORIAN MUELLER 10/1985 * 
170 REM * * 

180 REM ******************************* 
190 : 

20O REM INITIALISIERUNG 

210 CLR : DIM R$<4>: P=0: R$ (P>=" tRVSON}" " 
220 COLOR 0,1: COLOR 4,1: PRINT "CCLR*" CHR* 
(142) 

230 REM AUSGABE DER MENUEPUNKTE 

240 PRINT "-CHOME, YELLOW, 3SPACE3MENUE3TEUERUN 

G ~ BEISPIELPROSRAMM" 
250 PRINT » {3SPACE >"=======-— ===f=======-— 

======== {2D0WN > " 

260 print "-cdown1diesmal bind die menuepunkt 

e horizontal" 
270 print "<down>angeordnet- c9d0wn>" 
280 print r*<0) "<red>punkt acrvoff5 "r*<1)"€ 

cvan>punkt b<rvoff> "r$ (2) " {purple 5punkt 
c<:rvqff> "; 
290 print r$<3)" {green>punkt d<rvoff> "r*<4> 

" cblue>punkt e{grey3>" 

300 : 

310 REM TABTATURABFRAGE 

320 GET T*s IF T*="" THEN 320 

33© IF T*=" £F1>" THEN PRINT *' <DOWN>ANGEWAEHL 

TER PUNKT: "P: END 
340 IF T*=" <F7>" THEN PRINT " C2DOWN3-PROGRAMM 

ABBRUCH.": END 
350 R*(P)="" 

360 IF T^-CRIGHTJ" THEN P=P+l+5* <P=4) 
370 IF T*="<LEFT>" THEN P=P-l-5* (P=0) 
380 IF T*="CHDME>" THEN P=0 
390 R*(P)=*'£RVSQN>" 
400 GOTO 230 

Listing 5. Horizontal orientiertes Menu. 

Vor dem Start unbedingt im Direktmodus eingeben: 

KEY 1,CHR$(133):KEY 7,CHR$(136) 



100 REM ******************************* 
110 REM * * 

120 REM *MENUESTEUERUNG* 
130 REM * * 

140 REM ***** HORIZONTAL/VERTIKAL ***** 
150 REM * * 

160 REM * VON FLORIAN MUELLER 10/1985 * 
170 REM * * 

180 REM ******************************* 
190 : 

200 REM INITIALISIERUNG 

210 CLR : DIM R*<5): P=0; R*<P) =" -CRVSON>" 
220 COLOR 0,1= COLOR 4,1: PRINT "tCLRJ" CHR* 
(142) 

230 REM AUSGABE DER MENUEPUNKTE 

240 PRINT "OHOME, YELLOW, 3SPACE>MENUESTEUERUN 

G - BEIBPIELPROGRAMM" 
250 PRINT »<;3SPACE>================= M ===' =!:= = 

««====== {2DQWN 3" i 

260 PRINT " {DOWN>MENUEPUNKTe! SIND HORIZONTAL 

& VERTIKAL" 
270 PRINT "CDOWN>ANGEORDNET. C5D0WN>" 
2B0 PRINT TAB(10)R*<0);"<RED>PUNKT A<RV0FF,6S 

PACE }"R*< 3) "*GREEN> PUNKT D«DOWN>" 
290 PRINT TAB(10)R*(D"<CYAN>PUNKT B<RVQFF,6 

SPACE > " R* ( 4 > " {BLUE >PUNKT E {DOWN > " 
300 PRINT TABU0)R*<2)"<PURPLE>PUNKT CSRVQFF 

, 6SP ACE > " R* < 5 ) " {ORANGE >PUNKT F {GREY3 > " 
310 REM TASTATURABFRAGE 
320 GET T*s IF T*="" THEN 320 
330 IF T*- ,, «F1>" THEN PRINT " <DOWN>ANGEWAEHL 

TER PUNKT: "Pa END 
340 IF T*="€F7J" THEN PRINT " <2D0WN>PR0GRAMM 

ABBRUCH.": END 
350 R*CP)=' ,,, 

360 IF T*="<:DOWN>" THEN P=P+1+3*(P=2 OR P*5> 
370 IF T*="{UP}" THEN P=P~1~3*(P=0 OR P=3) 
380 IF T*=" ARIGHT}" THEN P=P+3+6* <P>2> 
390 IF T*«" CLEFT}" THEN P=P-3-6* (P<3) 
400 IF T*=" {HOME}" THEN P~0 
410 R*(P>=" {RVSON}" 
420 GOTO 230 

Listing 6. Zweidimensionales Menu. 

Vor dem Start unbedingt im Direktmodus eingeben: 

KEY 1,CHR$(133):KEY 7,CHR$(136) 



100 REM ****************************** 

110 REM * ■* 

120 REM * BICHERHEITSABFRABEN * 

130 REM * * 

140 REM ****************************** 

150 REM * * 

160 REM * FLORIAN MUELLER M-1985 * 

170 REM * * 

180 REM ****************************** 

190 : 

200 CLR : DIM R* ( 1 ) : P=0: R* <P) =" -CRVSON> M 

210 PRINT "-CCLRiSICHERHEITSABFRAGEN (J/N-ENT 

SCHEIDUNGEN)" 
220 PRINT "<HOME,6D0WN}WOLLEN BIE EINE ERKLA 

ERUNG? "R#(0> "JA<RVOFF>/"R*(l>"NEIN" 
230 GET T*: IF T*="" THEN 230 
240 R$(P>="" 
250 IF T$=" {RIGHT}" OR T*="{LEFT}" OR T*=" " 

THEN P=P+1+2*<P=1) 
260 IF T*<>"CF1>" AND T*OCHR*Q3) THEN R*(P 

)*=" {RVSON}": GOTO 220 
270 PRINT "{2DOWN,RVSON3ERGEBNIS:"P"<DOWN>" 
280 IF P=0 THEN PRINT "ERKLAERUNG: SIEHE ART 

IKEL" 
290 IF P-l THEN PRINT "DANN EBEN NICHTi" 

Listing 7. Ja/Nein-Abfrage. Vor dem Start unbedingt im 
Direktmodus eingeben: KEY 1,CHR$(133):KEY 7,CHR$(136) 



zm? 



SONDERHEFT 8/86 



55 



GRUNDLAGEN 



C16, C116, Plus/4 




»ungleiche« 

Briider 



Der C16, C116 und Plus/4 sind drei Commodore- 
kinder, die sich sehr ahhlich sind. Wir sagen 
Ihnen, wie kompatibel alle drei sind. 

Commodore brachte alle drei Computer eigentlich schon 
1984 auf den Markt. Doch ein Preis von 1298 Mark fur 
den Plus/4 (oben rechts) schreckte die Kaufer zuruck. 
Auch der C 16 (oben links) und C 116 (unten rechts) wurde 
damals fur ein Vielfaches des heutigen Preises verkauft. Seit 
Ende letzten Jahres erleben der C 16 und C 1 16 durch die 
gunstigen Angebote einen neuen Boom. Was aber ist mit 
dem vielgeruhmten Plus/4? Er verschwand zwischenzeitig 
vollig aus den Computergeschaften, urn heute wieder aufzu- 
bluhen - als neuer Einkaufshit fur unter 500 Mark, gemein- 
sam mit dem neuen, schnefleren Floppy- Laufwerk 1551. 

Wie Sie sicher wissen, ist der Plus/4 serienmaBig mit 
64 KByte RAM und eingebauter Software ausgestattet. Auch 
den C16 mit eingebauter 64-KByte-Speichererweiterung 
bekommt man inzwischen fur zirka 200 Mark. Sind all diese 
Computer untereinander kompatibel, Oder gibt es auch hier 
Schwierigkeiten mit der Software? 

Zunachst konnen wir Ihnen sagen, daB der C 11 6 vollig mit 
dem C16 ubereinstimmt. Beide Computer unterscheiden 
sich nur durch Gehause, Tastatur und Platinenlayout. Alle 
elektronischen Bauteile sind gleich, nur die Aufteilung ist 
wegen der GrdBe des C 1 1 6 anders. Fur die Software sind „ 
diese beiden Computer absolut kompatibel. Wenn also in die- " 
sem Artikel vom C 1 6 gesprochen wird, gilt dasselbe auch fur 
denC116. 

Der mit 16 KByte sehr magere Speicher des C 1 6 laBt sich 
jedoch bis auf 64 KByte aufrusten. Hier gibt es allerdings 
Probleme bei der Kompatibilitat nach oben. Einige Pro- 
gramme, die fur die Grundversion des C16 (16 KByte RAM) 
geschrieben wurden, laufen auf dem aufgerusteten C 1 6 und 
dem Plus/4 nicht. 

Beispielsweise, wenn es darum geht, Maschinenpro- 
gramme in den erweiterten C 16 Oder Plus/4 zu laden. Diese 
Programme werden manchmal vom Computer nicht ausge- 
fuhrt. Es liegt daran, daB Maschinen programme immer an 
eine vom Programm bestimmte Speicherstelie geladen wer- 
den mussen. Deshalb werden Sie auch »absolut«, das heiBt 
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mit der Sekundaradresse 1, geladen. Also »LOAD"Name", 
1,1« fur Datasette oder »LOAD" Name", 8,1 « fur Diskette. 
Ohne die Sekundaradresse werden die Programme stets an 
den Anfang'des Basic-Speichers geladen. Aber die wenig- 
sten Maschinenprogramme gehdren dorthin. 

Kommen wir nun zum eigentlichen Problem. Der Speicher 
des C 1 6 in der Grundversion unterscheidet sich namlich von 
seinen groBeren Brudern. 

Das RAM des C 1 6 in der Grundversion: $1000 bis $3FFF 
(dezimal: 4096-16383). 

Das RAM des C 1 6 (erweitert) und Plus/4 : $1 000 bis FCFF 
(dezimal: 4096-64512). 

Zunachst sieht es so aus, als wurden sich dadurch keinerlei 
Probleme ergeben. Allerdings andert sich dies, sobald im 
erweiterten . C 1 6 die Grafik aufgerufen wird. Der Basic- 
Anfang verschiebt sich dadurch von $1000 (4096) auf 
$4000 (16384). Daher laufen einige C16-Programme auf 
der erweiterten Version und dem Plus/4 nicht. 

Eine softwaremaBige Ldsung bietet sich hier an. Begren- 
zen Sie einfach den Speicher auf das MaB des normalen 
C16. Dies konnen Sie realisieren, indem Sie das Ende des 
Basic- RAMs heruntersetzen. Die dazu notwendigen Spei- 
cherzellen sind 55 und 56. In der erweiterten Version des 
C 1 6 steht in Speicherzelle 55 der Wert und in 56 der Wert 
243. Beim normalen C 1 6 steht in 55 der Wert 246 und in 56 
steht 63. Also, geben Sie ein: 

POKE 55, 246 : POKE 56, 63 

Nach »PRINT FRE(0)« konnen Sie »12275 BYTES FREE* 
auf dem Bildschirm lesen, wie bei jedem normalen C 16. Also 
kein Grund zur Panik, wenn mal ein Programm auf dem Plus/4 
oder dem »gro6en« C16 nicht laufen solltel 

Nach einem Reset werden die Speicherzellen naturlich 
wieder auf ihre alten Werte gesetzt. 

Fur den Ablaut von Programmen gibt es zwischen dem 
Plus/4 und dem auf 64 KByte aufgerusteten C16 keine 
Schwierigkeiten. 

(J. Sahlmann/kn) 
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C 12 8- Programme 
auf dem C 16? 



Da es fiir den C16 bisher noch recht wenig Soft- 
ware gibt, werden sich viele C16-Besitzer fragen, 
wie man ohne grofien Aufwand Programme ande- 
rer Commodore-Computer umschreiben kann. 
Die Umwandlung vom Programm fiir den C128 auf 
den C16 wollen wir hier etwas naher betrachten. 

Im letzten VC20/C16-Sonderheft (SH 3/86) wurden die 
Gemeinsamkeiten des C 1 6 und VC 20 behandelt. Dieser 
Vergleich ermogiichte es bestimmt vielen Lesern, VC 20- 
Programme an den C 1 6 anzupassen. Dies ist vor allem mog- 
lich, weil diese beiden Computer noch sehr vieie Gemein- 
samkeiten aufweisen. Eine Anpassung von C128-Program- 
men auf den C 1 6 bedeutet alierdings etwas mehr Aufwand. 
Wenn im folgenden Artikel vom C16 gesprochen wird, ist 
naturiich ebenso der C116 und Plus/4 gemeint. 

Erste Schwierigkeiten treten auf, wenn man versucht, »ein- 
fache« Basic-Programme vom C 128*auf dem C16 laufen zu 
lassen. Allzuoft tritt der »be!iebte« SYNTAX ERROR auf. Dies 
liegt daran, daB der C 1 28 im Vergleich zum C 1 6 ein noch 
besseres Basic {Basic 7.0) besitzt. Tabelie 1 enthalt den 
gesamten Befehlsvorrat des C128. Die hervorgehobenen 
Befehle sind im Basic 3.5 des C 1 6 nicht enthalten. Bei einer 
Anpassung von Basic-Programmen mussen solche Befehle 
durch geeignete Routinen ersetzt oder ganzlicn wegge- 
iassen werden. 

Zunachst soil versucht werden, die fehlenden Befehle auf- 
zufubren und eine eventueile Umgehungsmoglichkeitanzu- 
bieten. 
APPEND 

Der Append-Befehl off net eine existierende, serielle Datei 
vom Typ SEQ, USR Oder PRG als Ausgabedatei und positio- 
niert den Schreibzeiger auf das Dateiende. Damit besteht die 
Mogiichkeit, zusatzliche Daten in eine schon geschlossene 
serielle Datei zuschreiben. Der Befehl hatforgendes Format: 
APPEND #log Filnr, Dateiname, D Laufw, U Gerateadr. 
zum Beispiel: 
APPEND #2, "TEXT" 

Dasselbe kann beim C 1 6 mit dem normalen OPEN-Befehl 
erreicht werden: 
OPEN 2,8,2, "TEXT, A" 
BANK 

Die BANK-Anweisung definiert eine von 16 moglichen 64- 
KByte-Speicherbanken fur nachfoigende PEEK-, POKE-, 
SYS- oder WAIT-Anweisungen. Der BANK- Befehl erubrigt 
sich beim C 16, da sich seine 16-KByte-RAM-Speicherohne 
weiteres uber eine 16-Bit-AdreBieitung adressieren lassen. 
BEGIN-BEN D 

Die Anweisungen BEGIN-BEND, welche einen beliebig Ian- 
gen Block von Basic-Anweisungen umschlieBen, kann man 
ohne weiteres mit GOTO, GOSUB oder einer IF...THEN- 
Anweisung umgehen. 
BLOAD-BSAVE 

Der Befehl BSAVE ermogiicht es, beim C128 beliebige 
Speicherbereiche direkt zu speichern. Mit BLOAD kann die- 
ser Datenblock wieder an die gleiche Stelle geladen werden. 
Die Befehle haben folgendes Format: 

BSAVE Dateiname, D Laufwerk, U Gerat, ON B Bank, P 




Anfangsadresse TO P Endadresse 

Sowohl die Anfangs- als auch die Endadresse werden in 
dezimaler Form erwartet. 

BLOAD Dateiname, D Laufwerk, U Gerat, ON B Bank... 

Beide Befehle konnen mit Hilfe einer kleinen Maschinen- 
routine simuliert werden. Das Programm heiBt »BASICTOOL« 
und ist unter der Rubrik Tips & Tricks zum C 1 6 nochmals ver- 
offentlicht. Mit Hilfe dieses Programms werden die Befehle 
BSAVE und BLOAD wie folgt simuliert: 

BSAVE: SYS 1548"name",G,1,AA,EA-M 

BLOAD: SYS 1536" name ",G,1 

Hierbei gibt G die Gerateadresse an, AA steht fur die 
Anfangsadresse und EA fur die Endadresse. 
BOOT 

Der Befehl BOOT erubrigt sich beim C 16, da er nicht CP/M- 
fahig ist und deshalb auch kein CP/M-Programm von Diskette 
laden und starten kann. 
BUMP 

Da der C 16 keine Sprites besitzt, erubrigt sich auch ein 
Ersatz fur die BUMP-Funktion des C 1 28. Dieser Befehl liefert 
die Sprite-Nummer bei einer Sprite- Kollision. 
CATALOG-DIRECTORY 

Der CATALOG- Befehl listet das Directory der Diskette auf. 
Gleiches bewirkt auch der DIRECTORY-Befehl des C 16 und 
C 1 28. Warum man beim C 1 28 f Or ein und dieselbe Funktion 
zwei Befehle benotigt ist mir ein Ratsel, zumal beide Befehle 
dieselbe Betriebssystemroutine verwenden. 
COLLISION 

Auch die COLLISION-Anweisung fur die Sprites des C 1 28 
ist auf dem C 1 6 nicht zu ersetzen. 
CONCAT 

Der CONCATBefehi des C 1 28 hangt an eine sequentielle 
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Die Profi-Textverarbeitung im 128er-Modus mit yollautomatischer Silbentrennung, integrierter 
Tabellenkalkulation und Zusatzprogramm zum Uberpriifen der Rechtschreibung. 



PROTEXT ist ein leicht bedienbares Textprogramm mit hoher Leistungs- 
fahigkeit. Eingebaute Hiifefunktionen ermoglichen eine schnelle Einarbeitung. 
Mit PROTEXT sind daher auch Anfanger in der Lage, alle Vorteiie ernes profes- 
sionellen Textprogramms zu nutzen. 

Was PROTEXT alles kann: *^ 

• Farbkombination fur Hintergrund und Schrift (Vordergrund) frei wahlbar; 

• formatierte Ausgabe auf Biidschirm und Drucker mit programmterbaren Hal- 
tepunkten uber serielle, V24- Oder zwei Software-Centronics-Schnitt- 
steilen; 

• vielfaltige Formatanweisungen: linker/rechter Rand, voliautomatische Sil- 
bentrennung, Kopf-/FuBzeilen, FuBnoten, Zentrieren usw. 

• schnelle seibstiernende Textkorrektur mit deutschem (ca. 25000 Worte) 
Grundwortschatz sowie neun Kundenbibliotheken, die in Text umgewan- 
delt, bearbeitet, erganzt, sortiert und ausdruckbar sind; 



• Textubertragung per DFO mit Space-Optimierung und automatischer Feh- 
ferkorrektur; 

• leistungsfahige Rechenmoglichkeiten mitZeilenmarkierung (Rechentabu- 
lator), Kolonnenverarbeitung, programmierter Tabellenkalkulation und 
Taschenrechner. 

Hardwareanforderung: 

• C 128 Oder C128D 

• 80-Zeichen-Monitor 

• Commodore-Drucker oder Drucker 
mit Centronics-Schnittstelle 

Best.-Nr. MD : 
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Unverbindliche Preisempfehlung 



TQPASS- 

Der ASE-Maowissembler 
fur den Commodore 128 PC 
™* integneiiem Editor, 
Monitor und Linker. 



Dieser 6502-Macroassembler setzt neue MaB- 
stabe. Seine Leistungsfahigkeit wird auch den ver- 
wohnten Maschinenprogrammierer uberzeugen: 

• integrierter Editor, der schon bei der Eingabe 
des Quelltextes eine Syntaxuberpriifung vor- 
nimmt; 

• integrierter Linker, mit dem quellgesteuertes 
Lin ken von relokatiolen Modulen moglich ist; 

• assemblereigene schnelle und gleichzeitig 
sehr Ieistungsfahige Integerarithmetik; 




• fiber 2000 Labels konnen gleichzeitig verwaltet 
werden, das hei8t Maschinenprogramme bis zu 
einer Lange von ca. 25 KByte Objektcode kon- 
nen bei Bedarf in einem Rutsch assembliert 
werden; 

• Macros mit beliebig vielen Parametern, Macro- 
bibliotheken, Minimacs, bedingte Assemblie- 
rung, Labeleingabe im Dialog, Ausgabe forma- 
tierter Assemblerlistings, Ausgabe sortierter 
Symboltabellen und vieles andere mehr. 

AuBerdem wird der ASE- Macroassembler von 
einem sehr guten Monitor und einem Relativlader 
unterstutzt, der relokatible Module an beliebige 
Speicheradressen laden kann und endlich SchluB 
machtmitden Dutzenden Maschinenprogrammen 
auf Diskette, die sich nur durch ihre Startadresse 
unterscheiden! 

Lernen Sie es kennen. 



das TOPASS Assembler-Entwicklungssystemi 
Es lohnt sich! 

Best.-Nr. MD 253A 
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Unverbindliche Preisempfehlung 



Diese Markt&Technik-Softwareprodukte erhalten 
Sie in den Fachabteiiungen der Kaufhauser 
und in Computershops. 

Wenn Sie direkt beim Markt&Technik Verlag 
bestellen wollen: 

Nur gegen Vorauskasse, Verrechnungsscheck 
Oder mit der eingedruckten Zahlkarte. 




Markt&Technik 

U rite rneh mens bereich Buchverlag 

Hans-Pinsel-Strafie 2, 8013 Haar bei Miinchen 



Besteliungen im Ausland bitte ar 
untenstehende Adressen: 

Schweiz: Markt&Technik Vertriebs AG. 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 56 56 

Osterreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Aiser Str. 24 
A-1091 Wien, Tel. 02 22/48 1538-C 
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Datei eineandere gleichartige Datei an. Das heiBt, es konnen 
auf einer Diskette mehrere Dateien des Typs SEQ zusam- 
mengefaBt werden. Dabei wird die Zieldatei, also die Datei, an 
die eine andere angehangt wird, verandert. Sie existiert nach 
dem Kommando in ihrer ursprungiichen Form nicht mehr. Die 
angehangte Datei bleibt dagegen weiterhin zusatzlich in der 
alten Form im Directory. 

Zum Beispiet: 
OONCAT "DATEN1" TO "DATEN2" 

Hier wird die Datei DATEN1 an DATEN2 angehangt. 
DATEN2 wird dadurch verandert 

Beim C16 kann man den CONCAT-Befebl mit der COPY- 
Anweisung uber den Kommandokanai der Floppy umgehen: 
OPEN 1,8,15 

PRINT # 1 , "CO : DATEN2=0 : DATEN2 , : DATEN1 
CLOSE 1 

Auch hier wird die Datei DATEN1 an DATE N 2 angehangt. 
DATEN2 wird dadurch verandert. Will man beim C16 eine 
Veranderung der Datei QATEN2 verhindem, aber trotzdem 
beide Dateien verkniipfen, verwendet man folgende Anwei- 
sung: 

OPEN 1,8,15 

PRINT # 1, "CO :DATEN3=0 :DATEN2, :DATEN1 
CLOSE 1 

Eine Kopie der Dateien DATEN2 und DATEN1 wird zur 
Datei DATEN3 zusammengefaBt. Die Ursprungsdateien blei- 
ben in ihrer alten Form unverandert 
DCLEAR 

Der Befehi DCLEAR zum SchiieB^n aller geoffneten Dis- 
kettenkanale fur ein bestimmtes Laufwerk muB im Basic 3.5 
durch den Befehi CLOSE umgangen werden. 
DCLOSE-DOPEN 

Auch der Befehi DCLOSE zum SchlieBen aller Dateien auf 
einer Diskette muB durch CLOSE ersetzt werden. 

Zur Eroff nung einer Datei auf Diskette steht beim C 1 28 der 
DOPEN-Befehl zur Verfugung. So kann mit DOPEN1,...Kanal 

1 zum Floppy eroffnet werden. Beim C16 wird dasselbe 
durch OPEN 1,8,... erreicht. 

DVERIFY 

Zusatzlich zu den Befehlen DSAVE und DLOAD zum Spei- 
chern und Laden von Programmen auf Diskette wurde beim 
C128 der DVERIFY- Befehi integriert Wabrend das Laden 
und Speichern mittels DLOAD und DSAVE beim C 16 mogltch 
ist, muB die Programmspeicherung auf Disk mit VERIFY 
"PROGRAMM ",8 {eventuell auch noch »,1«) OberprUft wer- 
den. 
ENVELOPE-FILTER 

Da der C16 leider keinen SID-Chip fur die Tonerzeugung 
hat, erubrigtsich auch der ENVELOPE-Befehl zur Definition 
einer Hullkurve. 

Der Tongenerator des C16 ist nur uber die Befehle VOL 
und SOUND ansteuerbar. Alie anderen beiiebten Synthe- 
sizerfunktionen, die man vom C64 oder C128 kennt, sind 
beim C16 nicht integriert. Deshalb hat auch die FILTER- 
Anweisung, zum Setzen der Klangfilterparameter des SID, 
beim C16 keine »Daseinsberechtigung«. 
FAST-SLOW 

Weil man den C 1 6 im Gegensatz zum C 1 28 nicht auf dop- 
pelte Geschwindigkeit schaiten kann, sind die Befehle FAST 
und SLOW, zum Wahlen der Taktfrequenz zwischen 1 und 

2 MHz, nicht s'tnnvoll. 

FETCH - STASH - SWAP - G064 

Die Befehle FETCH, STASH und SWAP zur RAM-Floppy- 
Verwaltung sind auch beim C 1 28 nur mit eingesteckter RAM- 
Floppy-Karte wirksam. Da mir nicht bekannt ist, daB von Com- 
modore eine RAM-Floppy fur den C 1 6 angeboten wird; sind 
diese Befehle beim C16 unnotig. 

Mit der Anweisung G064 kann man den C128 zum C64 
umschalten. Da aber der C 1 6 nicht den Luxus von mehreren 



Computem in einem Gehause bietet, erubrigt sich auch die- 

ser Befehi beim C 16. 

GRAPHIC-MOVSPR 

Der GRAPH IC-Befehl zum Umschalten in die Grafik-Modi 
existiert bei beiden Geraten. Der C128 berucksichtigt 
zusatzlich die 80-Zeichen-Darstellung. 

Die MOVESPR-Anweisung zur Sprite-Animation entfallt 
beim C16 wegen »akutem Sprite-Mangek. 
PEN-POT 

Die Befehle PEN zur Abfrage des Lichtgriffels und POT zur 
Uberprufung des Paddles sind beim C16 nicht vorhanden 
und mussen bei Bedarf durch selbstgeschriebene Pro- 
gramme ersetzt werden. 
PLAY 

Die PLAY-Anweisung zum Spielen einer Tonsequenz laBt 
sich beim C 1 6 sehr leicht durch ein kleines Basic-Programm 
ersetzen, zumal sich der simple Tongenerator mit Tonhc-he, 
Notenlange und Lautstarke zufrieden^ibt 
POINTER 

Der POINTER-Befehl gibt beim C128 die Adresse einer 
Variablen im Speicher an. Diese nutzliche Funktion fehlt 
leider beim C 16 und laBt sich auch nicht ohne weiteres durch 
ein »kleines« Basic-Programm ersetzen. FQr einen geubten 
Programmierer durfte aber eine entsprechende Maschinen- 
routine kein groBes Problem darstellen. 
RECORD 

Zum komfortablen Positionieren des Schreib/Lese-Zeigers 
innerhalb einer REL-Datei, auf Diskette, steht dem C128 
Benutzer der RECORD-Befehl zur Verfugung. Der RECORD- 
Befehl hat folgenden Syntax: 
RECORD #LA,R,B 

Hierbei gibt # LA die logische Adresse der Datei, R die 
Record-Nummer und B die Stelle im Record an. Die Anwei- 
sung RECORD #1,200 positioniert zum Beispiel den 
Record-Zeiger der Datei mit LA=1 auf 200. 

Will man beim C 1 6 den Schreib/Lese-Zeiger positionieren, 
muB man sich des Befehls POSITION im Kommandokanai der 
Floppy bedienen. Dieser hat folgendes Format: 

P SA RL RH B 

Hier gibt SA die Sekundaradresse fur die Position an. Zu 
diesem Wert muB 96 addiert werden. Wenn Sie die Datei 
durch OPEN 1,8,2,..., alsomitSA=2 geoffnethaben, so mus- 
sen Sie beim POSITION-Befehl fur SA den WERT 98 {2 + 96) 
angeben. 

RL und RH beinhalten die Record-Nummer zerlegt in Low- 
und High-Byte. Diese 1st ndtig, weil mit einem Byte nur 256 
Werte dargestellt werden konnen, aber eine relative Datei 
mehr als 256 Records haben kann. Wenn R die absolute 
Record-Nummer ist, errechnen sich beide Parameter wie 
folgt: 

RH = INT (R/256) 

RL = R-RH*256 

Der letzte Parameter stimmt mit der entsprechenden 
Arjgabe im RECORD-Befehl beim C 1 28 uberein. Er gibt auch 
hier die Stellung im Record an. Dieser Parameter kann in bei- 
den Fallen nur Werte von 1 bis 254 annehmen. Alie vier Para- 
meter sind BYTE-Parameter und mussen mit Hilfe der 
CHR$()-Anweisung gesendet werden. 

Will man beim C 16 beispielsweise eine REL-Datei mit der 
Kanalnummer 5 eroffnen und den Schreib/Lese-Zeiger auf 
Record 1000, Byte 15 stellen, so benutzt man folgende 
Anweisungen: ' 

OPEN 1,8,15 

RH = INT (1000/256) 

RL = 1000~RH*256 

PRINT#1,"P" + CHR$(5+96) + CHR$(RL) + CHR$(RH) 
•f CHR$(15) 
CLOSE 1 
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RREG 

Die RREG-Anweisung des C128 weist vier Variablen die 
Inhalte der Prozessorregister {Akku, X-Reg., Y-Reg.) und des 
Statusregisters zu. Beim C16 lassen sich diese Werte durch 
die altbekannte PEEK-Anweisung auslesen: 

A-Reg. = PEEK (2034) 

X-Reg. = PEEK (2035) 

Y-Reg. « PEEK (2036) 

Statusreg. = PEEK (2037) 
RSPRCOLOR - RSPPOS - PSPRITE 

Fblgende Befehle zur Sprite-Animation und Kontrolfe sind, 
wie schon erwahnt, beim C 1 6 nichtzu realisieren. Zur Sprite- 
Abfrage dienen beim C128 die Befehle RSPRCOLOR, 
RSPPOS und PSPRITE. Zur Sprite- Definiton und -Animation 
k6nnen die Basic-Befehle SPRCOLOR, SPRDEF, SPRITE 
und SPRSAV verwendet werden. 
WINDOW - RWINDOW 

Wahrend der C 1 28 fahig ist, mehrere Windows zu definie- 
ren, stent beidemC16nurein FensterzurVerfugung. Dieses 
kann zudem nur uber die ESC-Taste definiert werden. Der 
C128 bietet dagegen komfortabie Window-Befehle. Mit der 
Anweisung WINDOW lassen sich die Bildschirmfenster fur 
die Textausgabe setzen. 

Will man die aktuellen Parameter eines Windows abfragen, 
so steht dem C 1 28-Nutzer der Befehl RWINDOW zur Verfu- 
gung. Damit lassen sich allerdings nur drei Parameter abfra- 
gen: 

- letzte Zeile des Fensters 

- letzte Spalte des Fensters r 

- Bildschirmbreite (40 oder 80 Zeichen) 

Beim C 1 6 ist der Aufwand, im Direktmodus ein Window zu 
definieren, keineswegs hinderlich, sondern bringt eher Vor- 
teile, da kein Befehl »Window« am Biidschirm erscheint. Im 
iaufenden Programm ist es jedoch sehr umstaYidlich, ein Fen- 
ster zu generieren. Es sind sehr viele PRINT-Anweisungen 
notwendig. 

Da die WINDOW- Funktion zweifellos in vielen C16-Pro- 
grammen nutzlich ware, iohnt es sich schon, diesen Befehl im 
C 1 6-Wortschatz aufzunehmen. Ein kleines Maschinenpro- 
gramm aus dem 64er-Sonderheft 3/86, Seite 174, macht es 
moglich. Nach dem Inittalisieren des Programms steht dem 
C 1 6-Nutzer der Befehl FENSTER zur Verfugung. Mit ihm laBt 
sich durch Angabe von vier Parametern ein Window eroff nen. 
Weitere Anregungen zur Window-Technik auf dem C 16 sind 
den Artikeln »Das Auge iftt mit« in dieser Ausgabe und »Win- 
dows - Fenster zum neuen Bedienungskomfort« im Sonder- 
heft 7/86 zu entnehmen. 

Urn die Parameter des Bildschirmfensters zu erfahren 
bedient man sich ebenfalls der PEEK-Anweisung. In den 
Systemadressen lassen sich unter den Labels SCBOT, 
SCTOP, SCLF und SCRT die Bildschirmgrenzen abrufen; 



BESCHREIBUNG LABEL 



ADRESSE 



Unterer Bildrand: SCBOT PEEK(2021) 

Oberer Bildrand: SCTOP PEEK(2022) 

Linker Bildrand; SCLF PEEK(2023) 

Rechter Bildrand: SCRT PEEK(2024) 



SLEEP 

Urn den C 1 6 in der Programmabarbeitung fur eine gewisse 
Zeit anzuhalten, bedient man sich in der Regel einer 
FOR...NEXT-Schleife. Beim C128 kann der Computer mit 
SLEEP fur eine bestimmte Zeit (zwischen 1 und 65535 
Sekunden) »eingefroren« werden. Will man den C16 eben- 
falls fur eine ganz bestimmte Zeit stillegen, so kann man sich 
der Variablen der Systemuhr (Ti und Tl$) bedienen. 
TEMPO 

Der TEMPO- Befehl setzt das Abspieltempo fur die PLAY- 
Anweisung beim C 1 28. Da der C 1 6 aber keinen PLAY-Befehl 
besitzt, hat auch TEMPO wenig Sinn. 



WIDTH 

Mit Ausnahme einer Anweisung besitzen beide Computer 
dieselben Grafik-Befehle. Urn die Strichstarke bei alien 
Graf ik-Befehlen zu variieren, besitzt der C 1 28 zusatzlich den 
Befehl WIDTH. Mit ihm kann zwischen einfacher und doppel- 
ter Strichstarke umgeschaltet werden. Soil beim C16 dop- 
pelt-dick gezeichnet werden, muB wohl oder ubel der Graf ik- 
Befehl zweifach angewandt werden. Zwischen beiden 
Anweisungen sollte man naturlich die entsprechenden Para- 
meter urn jeweils ein Pixel vergroBern oder verkleinern. 

XOR 

Als letzter Basic-Befehi ist im Basic 7.0 zusatzlich zu den 
anderen logischen Operationen (and, or, not) die XOR- 
Anweisung hinzugekommen. Diese dientzur Exklusiv-Oder- 
Verkniipfung zweier Werte. Einen entsprechenden Ersatz 
gibt es dafur beim C16 leider nicht. Die einzige Moglichkeit 
ware, die Werte in 16-Bit-Zahlen;zu zerlegen und diese won 
Hand« exklusiv-oder-verknupfeiii. So ergibt die Anweisung: 
PRINT XOR (124,1 2) den Wert 11 2. Von Hand sieht die Sache 

so aus: 



Dezimalzahl 



Binarsch rei bweise : 



124 
12 



0000000001111100 
0000000000001100 



XOR 1 1 2 



0000000001 110000 



Ein entsprechendes Basic-Programm zur Umwandlung von 
Dezimalzahlen in Binarschreibweise und anschlieBende 
XOR-Verknupfung ware relativ lang und wurde den Rahmen 
dieses Artikels sprengen. 

Masdiinenprogramme 



Soweit zur Basic-Anpassung der C128-Programme an den 
C 1 6. Bis zd diesem Punkt ist es fur den C 1 6-Anwender noch 
recht einfach, Programme fur sein System umzusetzen. 
Wenn es darum gent, Maschinenprogramme umzuschrei- 
ben, wird die Sache schon kompiizierter. 

Zunachst werfen wir einen Blick auf die Prozessoren bei- 
der Gerate. Der C16 sowie der C 128 besitzen sozusagen 
einen 65 xx-Prozessor. Im C 1 6 arbeitet ein Prozessor mit der 
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Bezeichnung 7501. Diese Commodore-Entwicklung hat 
denseiben Befehlsvorrat wie der 6502 des VC 20 oder 6510 
des C 64. Er unterscheidet sich unter anderem dadurch, daB 
erdas Bankswitching unterstutzt Diese Option erscheintfur 
den C 16/1 16 uberflussig, da er mitseinem 16-KByte-RAM- 
Speicher keine Probleme haben durfte, Betriebssystem, 
Basic-Interpreter und RAM-Speicher mit einer 16-Bit-AdreB- 
teitung zu adressieren. Da aber auch der Plus/4 mit eingebao 
ter Software und 64-KByte-RAM-Speicher denseiben Pro- 
zessor besitzt, ist die Option BANKSWITCHING durchaus 
sinnvoll. Wenn Sie nun glauben, daB diese Funktion beim 
C16 zwar vorhanden ist, aber nicht genutzt wird, so haben 
Sie weit gefehlt. Ein Beweis hierfur ist eine 64-KByte-Karte 
fur den C 16. Diese stellt dem Benutzer wie beim Plus/4 fast 
64-KByte-Basic-Speicher zur Verfugung. Das »Herz« des 
C128, der 8502-Prozessor, ist ebenfalls eine Entwicklung 
von Commodore. Er wurde speziell fur den C 1 28 entwickelt 
und enthalt ebenfalls alle Eigenschaften der Vorganger. Die- 
ser Prozessor hat den Vorteil, daB er im Gegensatz zu seinen 
Vorgangern mit unterschiedlicher Frequenz getaktet werden 
kann (erinnem wir uns an die Basic- Befe hie FAST und 
SLOW). 

Ein wichtiger Teii fur Maschinen-Programmierer ist die 
Zeropage bei beiden Computern. Dieser Bereich ist einer der 
wichtigsten Bereiche des Computers. Hier werden die mei- 
sten Werte von ROM-Operationen »zwischengelagert«. 
AuBerdem liegen hier viele Betriebssystem-Vektoren. Da der 
Zeropage-Bereich im RAM-Bereich fiegt, kann man durch 
Veranderung von Vektoren und Parametern fast beliebig ins 
>Computergeschehen« eingreifen. AberVorsicht: Unkontrol- 
lierte Anderungen {durch POKE) im Zeropage fuhren fast 
immer zu einem Totalabsturz! 

Die Zeropage beider Computer ist ahnlich aufgebaut. Dies 
konnen sie den Tabellen 2 und 3 entnehmen. Naturiich ver- 
fugt der C 1 6 nicht uber alle Fun ktionen des C 1 28. Im folgen- 
den soilen die Zeropage-Adressen mit gieicher Bedeutung 
gegenubergestellt werden. 

Die Adressen und 1 haben bei beiden Computern die 
gleiche Funktion. Folgende Speicherstelien des C128 
{Adresse 9 bis 98) tiegen beim C16 zwei Byte tiefer (alsp; 
Adresse 7 bis 96) und haben im groBen und ganzen diesel- 
ben Aufgaben. Einige Bytes werden beim C128 mit einer 
Doppelfunktion belegt, die aber beim C16 keine Rode spie- 
len. Auch die folgenden Speicherstelien 99 bis 105 und 106 
bis 111 enthalten dasselbe, wie die C16-Speicherstellen 97 
bis 103 und 105 bis 110. Der Uberlauf fiir den FlieBkomma- 
Akkumulator 1 fehlt beim C128 an der entsprechenden 
Stelle. Das heiSt, daB im folgenden der Abstand zwischen 
den Speicherstelien des C 1 6 und C 1 28 auf ein Byte zusam- 
menschrumpft: Die Zeropage-Adressen von 112 bis 126 
befinden sich beim C16 zwischen 111 und 127. Wo sich 
beim C 1 6 der Arbeitsbereich fur den Sound bef indet (1 26 bis 
143), wurden beim C128 nutzliche Parameter fur die Grafik 
eingeschoben. 

Identisch sind die Adressen 1 44 bis 1 50. Der nun foigende 
Bereich der Zeropage (151 bis 255} enthalt im groBen und 
ganzen dieselben Parameter und Zeiger. Ihre Lage wurde 
aber dermaBen »durcheinandergewurfelt«, daB eine genaue 
Gegenuberstellung sehr umfangreich ausfallen wurde. Aus 
den Tabellen 2 und 3 kann aber nach Bedarf die gesuchte 
Adresse sehr leicht entnommen werden. 

Die Zeiten, in denen man die wichtigsten Systemadressen 
innerhalb der ersten 256 Byte unterbrachte, sind jedoch 
langst vorbei. Nur die alten Commodore-Gerate (PET, CBM 
30xxundCBM 40xx) kamen mit der Zeropage aus. Die Nach- 
folger benotigten immer mehr Systemadressen fur Farbe, 
Grafik, Sprites und so weiter. Beim C16 wurden schlieBlich 
acht »Seiten« mit jeweils 256 Byte verwendet (Adresse bis 
2047) (Tabelle 4). 



Der C128 muBte bedingt durch den 40-Zeichen-Bild- 
schirm im Bereich 1024 bis 2023 die Systemadressen bis 
zur Adresse 4860 ausweiten (Tabelte 5). 

All diese Systemadressen zu erlautern und zu vergleichen 
wurde dieses Sonderheftfullen. Urn Ihnen einen Uberblickzu 
ermogltchen, werden die erweiterten Zeropages in den 
Tabellen 4 und 5 gegenubergestellt. 

Zum SchluB noch ein weiterer wichtiger Punkt fiir 
Maschinen-Programmierer. Viele Maschinenprogramme nut- 
zen die sogenannten Kernel-Sprungadressen am Ende des 
Betriebssystems fiir vielfaltige Aufgaben. Hier sind Betriebs- 
system routinen adressiert, die sehr haufig benotigt werden. 
Die wohl bekannteste ist die »BSOUT«- Routine bei $FFD2 
(Dez: 56490), die ein Zeichen am Bildschirm ausgibt. Auch 
beim C128 wurden diese Sprungadressen implementiert. 
Das heiBt, Sprunge ins Betriebssystem ab Adresse $FF81 
(Dez: 56490) mussen nicht angepaBt werden. 

Fazit: j 

Beide Computer haben mehr Gemeinsamkeiten, als 
zunachst angenommen. Obwohl eine Anpassung der 
C128-Programme etwas aufwendiger ist als beim VC 20, ist 
es doch machbar. Ich hoffe, Sie haben mit diesem Artikel ein 
Mittel in Handen, das Ihnen hilft, diese »schwierige« Arbeit zu 
erleichtem. (Christian Quirin Spitzner/bj) 



ABS 


Liefert absoluten Wert eines Ausdrucks 


AND 


Logische Verknupfung 


APPEND 


Offnet eine sequentielle Datei zur Datenanfugung 


ASC 


Liefert ASCII Wert eines Zeichens 


ATN 


Liefert Arcus Tangens 


AUTO 


Automatische Zeilennumerierung 


BACKUP 


Kopiert eine komplette Diskette 


BANK 


Wahlt Speicherbank fur PEEK, POKE und SYS 


BEGIN-BEND 


FaBt mehrere Basic-Zeiien zu einem Block zusammen 


BLOAO 


Ladt beliebigen Speicherbereich von Floppy 


BOOT 


Ladt und startet CP/M von Diskette 


BOX 


Zeichnet Rechteck 


BSAVE 


Speichert beiiebige Speicherbereiche auf Floppy 


BUMP 


Liefert die Spritenummer bei Sprite-Kollisionen 


CATALOG 


Listet Inhaltsverzeichnis der Diskette 


CHAR 


Fiigt Text in hochauflosende Grafik ein 


CHR$ 


Liefert Zeichenkette 


CIRCLE 


Zeichnet Kreise, Ellipsen und Vielecke 


CLOSE 


SchlieBt einen Ein-/Ausgabe-Kanal 


CLR 


Loscht alle Variablen 


CMD 


Adressiert ein Gerat an einer Ein-/Ausgabe-Schnittstelle 


COLLECT 


Loscht offene Dateien und reorganisiert Diskette 


COLLISION 


Dient zur Sprite-Kollisions-Abfrage 


COLOR 


Setzt Farben fur Text und Grafik 


CONCAT 


Verbindet zwei sequentielle Dateien miteinander 


CQNT 


Setzt Basic-Programm, das durch Drucken der STOP-Taste 




beendet wurde, fort 


COPY 


Kopiert Disketten-Dateien 


COS 


Liefert den Cosinus 


DATA 


Speichert Daten im Basic-Programm fur READ-Anweisung 


DCLEAR 


SchlieBt aile Kanale zur Diskettenstation 


DCLOSE 


SchlieBt Kanal zur Diskettenstation 


DEC 


Liefert Dezimalwert einer Hexadezimalzah! 


DEF 


Definiert und benennt eine Funktion 


DELETE 


Loscht einen Zeilenbereich aus einem Programm 


DIM 


Definiert und reserviert die maximale Anzahl von Etementen einer 




Feld-Variablen 


DIRECTORY 


Listet Inhaltsverzeichnis der Diskette 


DLOAD 


Ladt ein Programm von Diskette 


D0...L00P 


Programmschleife LOOP springt immer zu DO zuruck 


DOPEN 


Offnet Kanal zur Diskettenstation 


DRAW 


Setzt Punkte oder zeichnet Linien 


DS 


Enthalt den Fehlerstatus des Disketteniaufwerks 



Tabelle 1. Befehlsvorrat des C 16 und C 128. Die hervorgehobe- 
nen Befehle existieren nur im Basic 7.0 des C 128. 
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DS$ 


Enthait Fehlerstatus der Floppy im Klartext 


DSAVE 


Speichert ein Programm auf Diskette 


DVERIFY 


Oberpruft Programmspeicherung auf Diskette 


EL 


Enthait Zeilennummer bei Auftreten eines Fehlers 


ELSE 


Alternative bei IF-THEN, tails Bedingung nicht erfullt 


END 


Beendet Programm 


ENVELOPE 


Definiert Hullkurve fur Synthesizer 


ER 


Liefert den Code des zuletzt aufgetretenen Fehlers 


ERR$ 


Liefert Fehlermeldung im Klartext 


EXIT 


Dient zum Verlassen einer DO...LOOP-Schleife 


EXP 


Liefert Potenz der Zahl e 


FAST 


Schaltet auf doppeite Geschwindigkeit 


FETCH 


Holt Daten aus beliebiger Speicherbank (RAM-Floppy) 


FILTER 


Setzt den Klangfilterparameter fur den SID 


FNXX 


Bearbeitet Funktion xx 


FOR..NEXT 


Programmschleife mit einer definierten Zahl von DurchlSufen 


PRE 


Liefert freien Speicherplatz 


GET 


Holt ein Zeichen von der Tastatur 


GET* 


Liest Zeichen aus einer Datei 


GETKEY 


Wartet auf Tastendruck und holt Zeichen 


G064 


Schaltet in den C64-Modus 


GOSUB . 


Verzweigt in ein Unterprogramm 


GOTO 


Verzweigt zu einer bestimmten Zeile 


GRAPHIC 


Wahlt Grafik-Modus 


GSHAPE 


Schreibt ein SHAPE aus einem String auf den Bildschirm 


HEADER 


Dient zur Formatierung von Disketten 


HELP 


Listet nach Fehlermeldung die Fehlerzeile am Bildschirm auf 


HEX$ ,,.: 


Wandelt Dezimalzahl in Hexadezimal-Strings 


IF 


Stellt Bedingungen und verzweigt im Programm 


INPUT 


Erlaubt Dateneingabe uber die Tastatur 


INPUT* 


Liest Daten aus einer sequentiellen Oder reiativen Datei 


INSTR 


Ergibt Position eines Teiistflngs in einem anderen String 


INT 


Rundet auf eine ganze Zahl ab 


JOY 


Fragt Joystick-Position ab 


KEY 


Dient zur Belegung der Funktionstasten 


LEFTS 


Holt den linken Teil einer Zeichenkette 


LEN 


Ermirteit die Lange einer Zeichenkette 


LET 


Weist einer Variablen einen Wert zu (LET ist nicht zwingend) 


LIST 


Listet Programm auf 


LOAD 


Ladt ein Programm 


LOCATE 


Positioniert den Grafikcursor 


LOG 


Liefert den natQrlichen Logarithmus 


DO...LOOP 


Programmschleife LOOP springt immer zu DO zuruck 


MID$ 


Holt einen Teilstring mitten aus einer anderen Zeichenkette 


MONITOR 


Ruft den eingebauten Maschinensprache-Monitor auf (TEDMON) 


MOVESPR 


Bewegt einen Sprite uber den Bildschirm 


NEW 


Lrjscht Programm und alle Variablen 


NOT 


Logische Verknupfung 


ON..GOSUB 


Verzweigt zu einem von mehreren Unterprogrammen in Abhangig- 




keit einer Variablen 


ON...GOTO 


Verzweigt zu einer von mehreren spezifizierten Zeilennummern in 




Abhangikeit einer Variablen 


OPEN 


Eroffnet einen EirWAusgabe-Kanal Oder eine Datei 


OR 


Logische VerknOpfung 


PAINT 


Fullt einen Bereich der hochauflosenden Grafik aus 


PEEK 


Liefert den inhalt einer Speicherstelle 


PEN 


Fragt Lightpen ab 


PLAY 


Spielt die in einem String abgelegte Tonfolge 


POINTER 


Ergibt die Adresse einer Variablen im Speicher 


POKE 


Schreibt einen Wert zwischen und 255 in eine Speicherstelle 


POS 


Liefert die Spaitenposition des Cursors 


POT 


Fragt Paddles ab 


PRINT 


Gibt Daten am Bildschirm aus 


PRINT# 


Gibt Daten uber einen spezifizierten Ausgabekanal aus 


PUDEF 


Definiert Steuerzeichen fur PRINT USING 


■RCLR 


Liefert gewahlten Farbcode fur Text und Grafik 


ROOT 


Liefert Bildschirmposition des Grafik-Cursors 


READ 


Liest Daten aus DATA-Anweisung 


RECORD 


Positioniert Schreib-/Lesezeiger bei reiativen Dateien 


REM 


Dient zur Dokumentation eines Programms 


RENAME 


Dient zum Umbenennen von Diskettendateien 


RENUMBER 


Numeriert das Basic-Programm neu 


RESTORE 


Setzt DATA-Zeiger auf beliebige Zeilennummer 


RESUME 


Ruckkehr aus einer Fehlerbehandlungsroutine 



RETURN 


Kehrt aus Unterprogramm zuruck 


RGR 


Liefert die Nummer des eingestellten Grafikmodus 


RIGHTS 


Holt den rechten Teil einer Zeichenkette 


RLUM 


Gibt die der Farbzone zugewiesene Farbintensitat an 


RND 


Liefert eine Zufallszahl zwischen und 1 


RREG 


Weist Variablen die Werte der Prozessorregister zu 


RSPRCOLOR 


Liefert den aktuellen Code des Mehrfarbenmodus fur Sprites 


RSPPOS 


Liefert Position und Geschwindigkeit eines Sprites 


RSPRITE 


Ergibt je nach Parameter alle Sprite-Attribute 


RUN 


Startet ein Basic-Programm 


RWINDOW 


Liefert Parameter des eingestellten Bildschirmfensters 


SAVE 


Speichert ein Basic-Programm 


SCALE 


MaBstabswahl bei hochauflosender Grafik 


SCNCLR • 


Loscht Text- oder Grafikbildschirm 


SCRATCH 


Lfischt eine Diskettendatei 


SGN 


Liefert Vorzeichen eines Argumentes 


SEN 


Liefert Sinus 


SLEEP 


Halt die Programmaustuhrung fur eine wahlbare Zeit an' 


SLOW 


Schaltet auf 1 MHz Takt 


SOUND 


Erzeugt Toneffekte mit wahltjarer Frequenz und Dauer 


SPC 


Liefert eine bestimmte Anzahl von Leerzeichen (Spaces) in der 




PRINT-Anweisung 


SPRCOLOR 


Setzt im Mehrfarben-Modus Farben fQr Sprites 


SPRDEF 


Ruft den integrrSrten Sprite-Editor auf 


SPRITE 


Setzt Sprite-Attribute 


SPRSAV 


Speichert ein Sprite in einem String oder umgekehrt 


SQR 


Liefert Quadratwurzel 


SSHAPE 


Speichert ein Shape in eine Stringvariable 


ST 


Liefert Statusbyte 


STASH 


Obertragt Daten in eine Speicherbank (RAM-Floppy) 


STEP 


Gibt Schrittweite bei FOR...NEXT-Schleife 


STOP 


Bricht Programm ab 


STR$ 


Liefert Zeichenkettendarstellung einer Zahl 


SWAP 


Tauscht Daten zwischen zwei SpeicherbMen aus 


SYS 


Maschinensprache-Aufruf 


TAB 


Tabuliert den Cursor 


TAN 


Liefert Tangens 


TEMPO 


Setzt Abspieltempo fur PLAY-Anweisung 


THEN 


FCihrt Bedingung nach IF-Anweisung aus 


Tl 


Liefert Stand der internen Systemuhr 


Tl$ 


Uhrzeit im Klartext (HHMMSS fur Stunden, Minuten, Sekunden) 


TO 


Gibt das Endziel einer FOR-NEXT-Schleife an 




(FOR X=1 TO 1000...) 


TRAP 


Verzweigt im Fehlerfall zu einer Fehlerbehandlungsroutine 


TROFF 


Schaltet ProgrammablaufVerfolgung (Trace) aus 


TRON 


Schaltet Trace ein 


UNTIL 


Setzt Bedingung fur D0...LOOP fest (DO UNTIL..) 


USING 


Erlaubt formatierte Zahlenausgabe 


USR 


Hilfsmittel zur Ubergabe und Bearbeitung einer Variablen an ein 




Maschinenprogramm 


VAL 


Liefert den numerischen Wert einer Zeichenkette, die ausschlieBlich 




aus Zahlen besteht 


VERIFY 


Oberpruft Programmspeicherung 


VOL 


Setzt Lautstarke fur die SOUND-Anweisung 


WAIT 


Wartet, bis eine Speicherstelle ein spezifiziertes Bitmuster angenom- 




men hat 


WHILE 


Setzt Bedingung fur D0..100P fest (DO...WHILE...) 


WiDTH 


Setzt die Strichstarke. fur alle Grafikbefehle 


WINDOW 


Definiert ein Bildschirmfenster 


XOR 


Liefert die Exklusiv-Oder-Verkniipfung zweier Werte 



Tabelle 1. Befehlsvorrat cfes C16 und C128. Die hervorgehobe- 
nen Befehie existieren nur im Basic 7.0 des C 128 (SchluG). 



Tabelle 1. Befehlsvorrat des C 16 und C128. Die hervorgehobe- 
nen Befehie existieren nur im Basic 7.0 des C 128 (Fortsetz.). 



Dezimai 


Hexadezima! 


Bemerkung 





$0000 


Datenrichtungsregister 6e€ 7501 


1 


$0001 


Ein-/Ausgabe-Port des 7501 


2 


$0002 


Flag fur Schleifen 


3- 4 


$0003-0004 


Neue Startadresse (Renumber) 


5- 6 


$0005-0006 


Schrittweite (Renumber) 


7 


$0007 


Gesuchtes Zeichen 


8 


$0008 


Flag fur Anfuhrungszeichen-Modus 


9 


$0009 


TAB-SpaltenzShler 


10 


$000A 


Flag: - Load, 1 = Verify 



Tabelie 2.DieZeropagebeimCl6 
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Dezimal 


Hexadezimal 


Bemerkung 


11 


$0008 


Zeiger fur Eingabepuffer, Anzahl der Elemente 


12. 


$000C 


Flag fOr Standard-DIM 


13 


$000D 


Datentyp: $FF=Sfring, $00=Numerisch 


14 


$OO0E 


Datentyp: $80=lnteger, $00=FlieGkomma 


15 


$0OOF 


Flag fur DATA/LIST 


16 . 


$0010 


Flag; Element/FNx-Flag 


17 


$0011 


Flag: $00=INPUT, $4Q=GET, $98=READ 


18 


$0012 


Flag: Vorzeichen des ATN 


19 


$0013 


Flag: Input-Prompt 


20- 21 


$0014-0015 


Int. Adresse 


22 


$0016 


Zeiger auf temporaren Stringstapel 


23- 24 


$0017-0018 


Letzter temporarer Stringvektor 


25- 33 


$0019-0021 


Stapel. fur temporare Strings 


34- 35 


$0022-0023 


Bereich fOr Hilfszeiger 1 


36- 37 


$0024-0025 


Bereich fur Hilfszeiger 2 


38 


$0026 


Bereich fOr Produkt bei Multiplikation 


39 


$0027 


Bereich fur Produkt bei Multiplikation 


40 


$0028 


Bereich fur Produkt bei Multiplikation 


41 


$0029 


Bereich fur Produkt bei Multiplikation 


42 


$002A 


Be'reich fur Produkt bei Multiplikation 


43- 44 


$002B-002C 


Zeiger auf Basic-Anfang 


45- 46 


$002D-002E 


Zeiger auf Variablen-Anfang 


47- 48 


$002F-0030 


Zeiger auf Beginn der Arrays 


49- 50 


$0031-0032 


Zeiger auf Ende der Arrays (+1) 


51- 52 


$0033-0034 


Zeiger auf Stringspeicher 


53- 54 


$0035-0036 


Hilfszeiger fur Strings 


55- 56 


$0037-0038 


Zeiger auf Speichergrenze 


57- 58 


$0039-003A 


Laufende Basiczeilennummer 


59- 60 


$003B-003C 


Textpointer 


61- 62 


$003D-003E 


Zeiger auf Basic-Statement fur CONT 


63- 64 


$003F-0040 


Nummer der aktuellen DATA-Zeile 


65- 66 


$0041-0042 


Adresse des aktuellen DATA-Elementes 


67- 68 


$0043-0044 


Sprungvektor fur INPUT 


69- 70 


$0045-0046 


Aktueller Variablenname 


71- 72 


$0047-0048 


Adresse der aktuellen Variablen 


73- 74 


$0049-004A 


Variablenzeiger fiir FOR...NEXT 


75- 76 


$004B-004C 


Zwischenspeicher fiir Basic-Zeiger 


77 


$004D 


Akkumulator fiir Vergleichssymbole 


78- 79 


$004E-004F 


Arbeitsbereich (Zeiger etc.) 


80- 81 


$0050-0051 


Arbeitsbereich (Zeiger etc.) 


82 


$0052 


Arbeitsbereich (Zeiger etc.) 


83 


$0053 


Grafik-Modus 


84- 86 


$0054-0056 


Sprungvektor fur Funktionen 


87- 96 


$0057-0060 


Bereich fur numerische Operationen 


97 


$0061 


Flie8komma-Akkumulator 1 
(FAC): Exponent 


98-101 


$0062-0065 


FlieBkomma-Akkumulator 1 
(FAC): Mantisse 


102 


$0066 


FlieBkomma-Akkumulator 1 
(FAC): Vorzeichen 


103 


$0067 


Zeiger fur "Polynom-Auswertung 


104 


$0068 


FlieBkomma-Akkumulator 1 Uberlauf 


105-110 


$0069-006E 


FlieBkomma-Akkumulator 2 Exponent etc. 


111 


$006F 


Vorzeichenvergleich Akku 1 mit Akku 2 


112 


$0070 


FlieBkomma-Akkumulator 1 niederwertige Stelle 


113-114 


$0071-0072 


Kassettenpuffer Lange/Zeiger 


115-116 


$0073-0074 


Automatisches Zeileninkrement 0=AUS 


117 


$0075 


Grafik-Flag (0=Text, 255=Grafik) 


118-120 


$0076-0078 


Arbeitsbereich 


121-123 


$0079-007B 


Darstellung von DS$ 


124-125 


$007C-007D 


Basic-Pseudo-Stack-Pointer 


126-143 


$007E-008F 


Arbeitsbereich (Sound) 


144 


$0090 


StatuswortST 


145 


$0091 


Flag: Stop-Taste / RVS-Taste 


148 


$0094 


Flag: Serieller Bus - Ausgabe Zeichenpuffer 


149 


$0095 


Zeichenspeicher — Serieller Bus 


150 


$0096 


Zwischenspeicher 


151 


$0097 


Anzahl der geoTfneten Files 


152 


$0098 


Eingabegerat (Normalwert: 0) 


153 


$0099 


Ausgabegerat (Normalwert: 3) 


154 


$009A 


Flag: $80=Direkt-, $OQ=Programm-Modus 


157-158 


$009D~009E 


Zeiger auf Ende des Programrns 


J 159-160 


$009F-OOAO 


Temporarer Datenspeicher 



Dezimal 


Hexadezimal 


Bemerkung 


161-162 


$00A1-00A2 


Temporarer Datenspeicher 


163-165 


$00A3-00A5 


Echtzeit-Uhr 


166 


$00A6 


Register fur seriellen Bus 


167 


$00A7 


Register fur Kassettenroutine 


168 


$00A8 


Register fur seriellen Bus 


169 


$00A9 


Temporarer Farb-Vektor 


170 


$00AA 


Register fiir Kassettenroutine 


171 


$00AB 


Anzahl der Zeichen im Filenamen 


172 


$0OAC 


Aktuelle logische File-Nummer 


173 


$00AD 


Aktuelle Sekundar- Adresse 


174 


$00AE 


Aktuelle Gerate-Nummer 


175-176 


$O0AF-OOBO 


Zeiger auf Filenamen 


177 


$00B1 


Von Fehlerroutine benutzt 


178-179 


$00B2-00B3 


I/O Startadresse 


180-181 


$00B4-OOB5 


Basis-Ladeadresse 


182-183 


$OOB6-0OB7 


Zeiger: Anfang Kassettenpuffer 


186-187 


$OOBA-OOBB 


Zeiger auf Zeichen im .Kassettenpuffer 


190-191 


$00BE-00BF 


Register fiir Long-Feteh-Routine 


192-193 


$0OC0-0OC1 


Register fur Scrolling ■ 


194 


$00C2 


RVS-Flag (Bildschirm) 


195 


$00C3 


Zeiger: En,de der Zeile (Input) 


196-197 


$00C4-00C5 


Cursorpdsition (Input), Reihe/Spalte 


198 


$00C6 


Tastaturabfrage ($40=keine Taste) 


199 


$00C7 


Flag: Eingabe Bildschirm/Tastatur 


200-201 


$OOC8-O0C9 


Zeiger auf Bildschirmzeile 


202 


$O0CA 


Cursorposition in aktueller Bildschirmzeile 


203 


$O0CB 


Flag: Anfuhrungszeichen-Modus ($00— nein) 


204 


$00CC 


Lange der aktuellen Bildschirmzeile 


205 


$00CD 


Zeile, in der sich der Cursor befindet 


206 


$00CE . 


Letztes Zeichen (I/O) 


207 


$00CF 


Anzahl der Zeichen (Insert-Modus) 


208-215 


$O0D0-0OD7 


Reserviert fur Software 


216-232 


$00D8-00E8 


Reserviert fiir Anwendungssoftware 


233 


$00E9 


Arbeitsbereich 


234-235 


$00EA-00EB 


Bildschsrm-Editor (Farbe) 


236-238 


$00EC-00EE 


Arbeitsbereich (Bildschirm) 


239 


$OOEF 


Anzahi der Zeichen im Tastaturpuffer 


241-242 


$00F1-00F2 


Register fiir Monitor 


250 


$00FA 


Register fiir X bei Stoptastentest 


251 


$00FB 


Aktuelle Bank-Konfiguration 


254 


$00FE 


Arbeitsregister (Editor) 



Tabelle 2. Die Zeropage beim C16 (Schluft) 



Dezimal 


Hexadezimal 


Bemerkung 


. 


$0000 


Datenrichtungsregister des 8502 


1 


$0001 


Datenregister des 8502 


2 


$0002 


BANK-Teil des PC bei Regis teranzeige 
(PC* Programmzahler) 


3 


$0003 


MSB des PC bei Registeranzeige 


4 


$0004 


LSBdesPC 


5 


$0005 


Prozessorstatus SR bei Registeranzeige 


6 


$0006 


Akkumulator A bei Registeranzeige 


7 


$0007 


X-Register X bei Registeranzeige 


8 


$0008 


Y-Register Y bei Registeranzeige 


9 


$0009 


Stapelzeiger SP bei Registeranzeige 


9 


$0009 


Suchzeichen (sucht ':' Oder Zeilenende) 


To 


$000A 


Hochkommaflag 


11 


$000B 


Spaltenspeicher beim TAB-Befehl 


.12 


$000C 


Flag: 0= Load, 1= Verify 


13 


$000D 


Zeiger fiir Eingabepuffer, Anzahl der Elemente 


14 


$000E 


Flag fur Standard-DIN 


15 


$000F 


Datentyp: $FF=String, $QQ=Numerisch 


16 . 


$0010 


Datentyp; $80=lnteger, $00=FlfeBkomma 


17. 


$0011 


Flag fur DATA/UST/Garbage-Collection ' 


18 


$0012 


Flag: Element/FNxx-Flag 


19 


$0013 


Fiag: $QQMNPUT,$40=GET,$98=READ 


20 


$0014 


Flag: Vorzeichen des ATN 


21 


$0015 


Aktuelles Ein-/Ausgabegerat 


22- 23 


$0016-$0017 


Integerwert fOr Zeiiennummer o. 2 Byte-Adr. fur 
GOTO, GOSUB, POKE, PEEK, SYS, WAIT 


24 


$0018 


Zeiger auf temporaren Stringstapel 
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ififcij' 
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GRUNDLAGEN 



C16/C116/C128 



Dezfmal 


Hexadezimal 


Bemerkung 


25- 26 


$0019~$001A 


Letzter temporarer Stringvektor 


27- 35 


$001 B-$0023 


Stapel fur temporare Strings 


36- 37 


$0024-$0025 


Bereich fur Hiifszeiger 1 


38- 39 


$0026-$0027 


Bereich fur Hiifszeiger 2 


40 


$0028 


Bereich fur Produkt bei Multiplikation 


41 


$0029 


Bereich fur Produkt bei Multiplikation 


42 


$002A 


Bereich fur Produkt bei Multiplikation 


43 


$002 B 


Bereich fur Produkt bei Multiplikation 


44 


$002C 


Bereich fur Produkt bei Multiplikation 


45- 46 


$002D-$002E 


Zeiger auf Basic-Anfang 


47- 48 


$002F-$0030 


Zeiger auf Variablen-Anfang 


49- 50 


$0031 -$0032 


Zeiger auf Beginn der Arrays 


51- 52 


$0033-$0034 


Zeiger auf Ende der Arrays (+ 1 } 


53- 54 


$0035-$0036 


Zeiger auf Stringspeicfter 


55- 56 


$0037-$0038 


Hiifszeiger fur Strings 


57- 58 


$0039-$003A 


Zeiger auf Speichergrenze 


59- 60 


$003B-$003C 


Laufend Basic-Zeilennummer 


61- 62 


$003D~$003E 


Zeiger auf Basic-Text fur CHRGET 


63- 64 


$003F-$0040 


Hiifszeiger fur PRINT USING 


65- 66 


$0041 -$0042 


Nummer der aktuellen DATA-Zeile 


67- 68 


$0043-$0044 


Adresse des aktuellen DATA-Elementes 


69- 70 


$0045-$0046 


Sprungvektor fur INPUT 


71- 72 


$0047-$0048 


Aktueller Variablenname 


73- 74 


$0049-$004A 


Adresse der aktuellen Variabien 


75- 76 


$004B-$004C 


Variablenzeiger fuT FOR...NEXT 


77- 78 


$004D-$004E 


Zwischenspeicher fiir Basic-Zeiger 


79 


$004F 


Akkumulator fur Vergleichssymbole: $01 =gro(3er, 
$02=gleich, $04=kleiner 


80- 81 


$0050-$0051 


Zeiger auf Variable einer DEF FN-Funktion 


82- 84 


$0052-$0054 


Zeiger auj, String-Descriptor in einer Variablen-Liste • 


85 


$0055 


Rag: HELP Oder LIST 


86- 88 


$0056-$0058 


Sprungvektor fur Funktionen 


89- 98 


$0059-$0062 


Bereich fOr numerische Operationen 


.99 


$0063 


Fiie6komma-Akkumulator 1 (FAC): Exponent 


100-103 


$0064-$0067 


RieBkomma-Akkumulator 1 (FAC): Mantisse 


104 


$0068 


FlieBkomma- Akkumulator 1 (FAC): Vorzeichen 


105 


$0069 


Zeiger fur Polynomauswertung 


106-111 


$006A-$006F 


FlieBkomma-Akkumulator 2 (Exponat,4 Byte Man- 
tisse, Vorzeichen byte) 


112 


$0070 


Vorzeichenvergleich Akku 1 und Akku 2 


113 


$0071 


Akku 1 , niederwertige Stelle, Rundung 


114-115 


$0072-$0073 


Kassettenpuffer Zeiger/Lange 


116-117 


$0074-$0075 


Inkrement bei AUTO-Befehl, $00=aus ■■» 


118 


$0076 


Grafik-Flag 0=Text, 255=Grafik 


119-121 


$0077-$0079 


Arbeitsbereicrt 


122-124 


$007A-$007C 


Darsteilung von DS$ 


125-126 


$007D-$007E 


Basic-Pseudo-Stack-Pointer 


127 


$007F 


Flag fur Direktmodus Oder Programm 


128 


$0080 


Zeiger bei PRINT USI^JG auf Dezimaipunkt 


129 


$0081 


PARSTX 


130 


$0082 


EnthSIt Stapelzeiger bei TRAP-Befehl 


131 


$0083 


Aktuelle Zeichenfarbe 


132 


$0084 


Aktuelle Multicolor-Farbe 1 


133 


$0085 


Aktuelle Multicolor-Farbe 2 


134 


$0086 


Aktuelle Vordergrundfarbe 


135-136 


$0087-$0088 


X-Faktor bei SCALE-Befehl 


137-138 


$0089-$008A 


Y-Faktor bei SCALE-Befehl 


139 


$008B 


Flag fur Randbegrenzung bei PAINT 


140-141 


$008C-$008D 


Zeiger fiir -Bitmap 


142-143 


$008E-$008F 


Zwischenspeicher fiir Grafikoperationen 


144 


$0090 


Statuswort ST 


145 


$0091 


Flag: Stop-Taste 


146 


$0092 


Zeit-Konstante fiir Kassette 


147 


$0093 


Flag: $00=LOAD, $01 =VERIFY 


148 


$0094 


Flag: Serieller Bus - Ausgabe Zeichenpuffer 


149 


$0095 


Zwischenpeicher - Serieller Bus 


150 


$0096 


Zwischenpeicher (Kassetten SYNC.-Nr.) 


151 


$0097 


Temporare Datenadresse 


152 


$0098 


Anzahl der offenen Dateien/Oatentabellen-lndex 


153, 


$0099 


Eingabegerat 


154 


$009A 


AusgabegerSt 


155 


$009B 


Paritatsbyte von Kassette 


156 


$009C 


Flag: Byte empfangen 



Dezlmai 


Hexadezimal 


Bemerkung 


157 


$009D 


Flag; $80=Direkf-,$00=Programm-Modus . 


158 


$009E 


Bandfehler/Zeichenpuffer/Temporarer Speicher 


159 


$009F 


Bandfehter korrigiert/Temporarer Speicher 


160-162 


$00A0-$00A2 


EchtzeiMJhr 


163 


S00A3 


Bitzahler fiir serielle Ausgabe 


164 


$00A4 


ZShler auf Band 


165 


$00A5 


Startsynchronisation bei Kassette 


166 


$00A6 


Zeiger im Kassettenpuffer 


167-171 


$00A7-$00AB 


Flags fiir Schreiben/Lesen auf Kassette und 
RS232 


172-173 


$00AC-$00AD 


Zeiger: Kassettenpuffer/Scrolling/Boot-Adresse 


174-175 


$00AE-$00AF 


Zeiger auf Programmende bei LOAD 


176-177 


$00B0-$0OB1 


Bandzeitkonstante 


178-179 


$O0B2-$0OB3 


Startadresse des Bandpuffers 


180 


$0084 


Bitzahler fur Band und RS232 


181 


$00B5 


Nachstes zu Abertragendes Bit fiir Band und 
RS232 j 


182 


$00B6 


RS232-Bytipuffer 


183 


$0087 


Linge des Rlenamens 


184 


$00B8 


Logische Rlenummer 


185 


$0089 


.Sekundaradresse 


186 


$00BA 


Gerate nummer 


187-188 


$00BB-$00BC 


Zeiger auf Filenamen 


189 


$O0BD 


EirWAusgabespeicher (fiir serisll) 


190 


$00BE 


Blockzahler fflr Band 


191 


$00BF 


Puffer fur serielle Ausgabe/Booten=$00 


192 


$0000 


Kassettenmotor-Rag . 


193-194 


$00C1-$00C2 


Startadresse fOr Ein-/ Ausgabe beim Booten: 
Track(194}&Sektor(193) 


195-196 


$0OC3-$O0C4 


Endadresse fur Ein-/Ausgabe-Zwischenspeicher fflr 
Kernaivektoren 


197 


$0005 


Kassette: Schreib-/Lese-Daten 


198 


$00C6 


Aktuelle Bank fiir LOAD/SAVE und VERIFY 


199 


$00C7 


Bank, in der sich der Filename befindet 


200-201 


$0OC8-$00C9 


Zeiger auf RS232-Eingabepuffer 


202-203 


$OOCA-$O0CB 


RS232-Ausgabe-Zeiger 


204-205 


$OOCC-$O0CD 


Vektor: Tastatur-Decodiertabelie 


206-207 


$O0CE-$0OCF 


Hiifszeiger fur Strings 


208 


$00D0 


Anzahl der Zeiehen im Tastaturpuffer 


209 


$00D1 


Lange eines Funktionstasten-Strings 


210 


$0002 


Zeiger auf String einer Funktionstaste 


211 


$0003 


Flag fflr SHIFT-/CTRL- und GOMMODORE-Taste 


212 


$00D4 


Nummer der augenblicklich gedrflckten Taste. 


213 


$00D5 


Nummer der zufetzt gedrflckten Taste 


214 


$00D6 


RETURN-lnput-Flag . 


215 


$00D7 


Hag fur Bildschirmformai ($00-40Zeiohen, 
$80-80 Zeiehen) . 


216 


$00D8 


Flag fiir Grafikmodus 


217 


$00D9 


RAM/ROM-Flag fiir Video-Chip 


218-219 


$00DA-$00DB 


Hiifszeiger fflr Biidschirmeditor (Scrolling etc.) 


220-221 


$00DC-$00DD 


Hiifszeiger fur Biidschirmeditor (Scrolling etc.) 


222 


$00DE 


Temporare Speicher fflr Editor 


223 


$00DF 


Temporare Speicher fur Editor 


224-225 


$OOEO-$OOE1 


Zeiger der aktuellen Zeiie im Bildschirm-RAM 


226-227 


$O0E2~$OOE3 


Zeiger der aktuellen Zeile im AttrlbutRAM 


228 


$00E4 


Fenster: Unterer Rand 


229 


$00E5 


Fenster: Oberer Rand 


230 


$00E6 


Fenster: Linker Rand 


231 


$O0E7 


Fenster: Reenter Rand 


232 


$00E8 


Startspalte bei Eingabe 


233 


$00E9 


Startzeile bei Eingabe 


234 


$00EA 


SchluBzeile bei Eingabe 


235 


$00EB 


Aktuelle. Cursor-Zeiie 


236 


$0OEC 


Aktuelle Cursor-Spalte, 


237 


$00ED 


Maximale Anzahl der Zeilen (24) 


238 


$00EE 


Maximale Anzahl der Spalten (39 Oder 79) 


239 


$OOEF 


Nachstes auszugebendes Zeiehen 


240 


$OOFO 


Vorhergehendes Zeiehen (fiir ESC-Test) 


241 


$00F1 


Attribuf des nachsten Zeiehens (Farbe) 


242 


$OOF2 


Zwischenspeicher fflr Farbe 


243 


$00F3 


Reverse-Flag 


244 


$00F4 


Flag fur Anfflhrungszeichen 
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Dezimai 


Hexadezlmal 


Bemerkung 


245 


$00F5 


Flag fOr Insert-Modus 


246 


$00F6 


Flag f(ir automatisches Einftigen 


247 


$00F7 


Sperrt COMMODORE/SHIFT und CTRL-S 


248 


$00F8 


Verhindert Bildschirmscroflen und Zeilen- 
verknQpfung 


249 


$00F9 


Verhindert CTRL-G (Bell) 


250-255 


$00FA-$00FF 


freie Speicherstellen 



Tabelle 3. Die Zeropage beim C128 (SchluB) 



Dezlmal 


Hexadezimal 


Bemerkung 


256-511 


$01 00-01 FF 


Prozessorstack 


512- 600 


$0200-0258 


Eingabepuffer , 


601- 604 


S0259-025C 


Basic-Puffer 


605- 684 


$025D-02AC 


Basic-/DOS-Arbeftsbereich 


605 


$0250 


D.OS-Schle'rfenzaTiler 


606- 621 


$025E-026D 


Bereich fur Filenamen 


622 


$026E 


1. Filename (Unge) 


623 


$026F 


DOS (Laufwerk 1) 


624*- 625 


$0270-0271 


1. Filename {Adresse) 


628 


$0272 


2. Filename {Unge} 


627 


$0273 


DOS (Laufwerk 2) 


628- 629 


$0274-0275 


2, Filename (Adresse) 


630 


$0276 


DOS logische Adresse 


631 


$0277 


DOS (GerSteadresse) 


632 


$0278 


DOS (Sekundaradresse) 


633-634 


$0279-027A 


DOS(Dlsketten-ID)*, 


635 


$027B 


ID-Flag 


636 


$027C 


DOS (Ausgabepuffer). 


637- 684 


$027D-02AC 


DOS (Arbeitsbereich) 


685- 683 


$02AD-02B0 


Grafik-Cursor 


689- 692 


$02B1-02B4 


Grafik-Cursor (Register) 


693- 715 


$02B5-02CB 


Grafik-Reglster 


716- 739 


$02CC-02E3 


Print-Using, Grafik-Arbeitsbereich 


740 


$02E4 


High-Byte-Adresse des Charatoer-ROM 


747 


$02EB 


Trace-Rag 


752 


$02F0 


Anzahl der Grafik-Parameter 


753 


S02F1 


Parameter; Relativ (1), Absolut (0) 


754- 755 


$02F2-02F3 


FlieBkomma-Vektor 


756- 757 


$02F4-02F5 


Integer-Vektor 


768- 769 


$0300-0301 


Sprungvektor: Fehlermeidung 


770- 771 


$0302-0303 


Sprungvektor: Basic-Warmstart 


772- 773 


$0304-0305 


Sprungvektor: Token-Generierung 


774- 775 


$0306-0307 


Sprungvektor: Keywort erzeugen 


776- 777 


$0308-0309 


Sprungvektor Hauptschleife 


778- 779 


$030A-030B 


Sprungvektor: Eval * ■■ 


780- 781 


$030C-030D 


Sprungvektor. Token-Generierung (User) 


782- 783 


$030E-030F 


Sprungvektor: Keywort erzeugen 


784- 785 


$0310-0311 


Sprungvektor: User-Token bearbeiten 


786- 787 


$0312-0313 


Sprungvektor: Interrupt (Uhr) 


788- 789 


$0314-0315 


Sprungvektor: Interrupt 


790- 791 


$0316-0317 


Sprungvektor: Break interrupt 


792- 793 


$0318-0319 


Sprungvektor: Open 


794-795 


$031A-031B 


Sprungvektor: Close 


796- 797 


$031C-031D 


Sprungvektor: Kana! fOr Eingabe Offnen 


798- 799 


$031E-031F 


Sprungvektor: Kanai f ur Ausgabe Offrte'h 


800- 801 


$0320-0321 


Sprungvektor: I/O zuriicksetzen 


802- 803 


$0322-0323 


Sprungvektor: Input 


604- 805 


$0324-0325 


Sprungvektor: Ausgabe 


806- 807 


$0326-0327 


Sprungvektor: Abfrage der Stoptaste 


808- 809 


$0328-0329 


Sprungvektor: Getin-Routine 


810- 811 


$032A-032B 


Sprungvektor: SchlieSen alter Files 


812- 813 


$032C-032D 


Sprungvektor: Monitor Break 


814- 815 


$032E-032F 


Sprungvektor: Lade-Routine 


816- 817 


$0330-0331 


Sprungvektor: Save-Routine 


818-1010 


$0332-03F2 


Kassettenpuffer 


1011-1012 


$03F3-03F4 


DatenzShler (Write) 


1013-1014 


$03F5-03F6 


DatenzShler (Read) 


1015-1078 


$03F7-0436 


RS232-lnput-Puffer (64 Byte) 


1079-1108 


$0437-0454 


System-Arbeitsbereich 



Dezimai 


Hexadezimal 


Bemerkung 


1109-1138 


$0455-0472 


System-Arbeitsbereich 


1139-1144 


$0473-0478 


Chrget-Routine 


1145-1156 


$0455-0484 


Chrgot-Routine . 


1172-1244 


$0494-04DC 


Bankswitching-Routtnen 


1255-1258 


$04E7-04EA 


Print-Using-Parameter 


1263-1270 


$04EF-04F6 


Trap- und Error-Flags 


1280-1282 


$0500-0502 


USR-Sprungbefehl 


1283-1287 


$0503-0507 


Startwerl fgr RND 


1288 


$0508 


Flag filr Kalt- oder Warmstart 


1289-1298 


$0509-0512 


Tabelle der logischen Rfenummem 


1299-1308 


$0513-0510 


Tabelle der Geratenummern 


1309-1318 


$0510-0526 


Tabelle der Sekundaradressen 


1319-1328 


$0527-0530 


Tastaturpuffer ■ 


1329-1330 


$0531-0532 


Basic-Anfang 


1331-1332 


$0533-0534 


Basic-Ende 


1337 


$0539 


Zeiger: Kassettenpuffer 


1338 


$053A 


Typ des Kassettenfilesj 


1344 ■ 


$0540 


Tasten-Wiederholfunktjon ($80=alle, $40=keine, 
$00=nur DEL, CUR, SPC) 


1345-1346 


$0541-0542 


ZShler fQr Wiederholfunktion 


1347 


$0543 


ShiffrRag/ 


1348 • 


$0544 


Letztes Shift-Zeichen 


1349-1350 


$0545-0546 


Sprungvektor:. Keylog. 


1361 


$0547 


TexWGrafik-Flag 


1352 


$0548 


Scroll-Rag 


1355-1372 


$054B-0551 


Cpu-Arbeitsbereich 


1382-1367 


$0552-0557 


Cpu-Register 


.1368-13.72 


$0558-0550 


Cpu-Arbeitsbereich : 


1373 


$055D 


ZShler fur Furtktionstasten 


1374 


$055E 


Zeiger: Text, Funktidnstasten 


1375-1510 


$055F-05E6 


..Speicher for Funktionstasten 


1516-1571 


$05EC-06EB 


1 Page, Bankingroutinen ' 


1516-1519 


$05EC-05EF 


AdreUtabelte " ■. 


1520-1521 


$05F0-05F1 


Long-Jump (Adresse) 


1522 .. 


$05F2 


Long-Jump (Akkumulator) 


1523 


$05F3 


Long-Jump (X-Register) 


1524 


$05F4 


Long-Jump (Status-Register) 


1525-1629 


$05F5-065D 


RAM^Bereich furBankswitching 


1630-1771 


$065E-06EB 


RAM-Bereich fur Benutzersoftware 


1792-1967 


$06EC-07AF 


Basic-Pseudo-Stack 


1968-1996 


$07B0-07CC 


Kassetten-Arbeitsbereich 


1997-2000 


$07CD-07DO 


RS232-Arbeitsbereich 


2001 


$07D1 


RS232: Pointer auf Anf. Eingabepuffer 


2002 . 


$07D2 • 


RS232: Pointer auf Ende Eingabepuffer 


2003 


$07D3 


Anzahl der Zeichen im Eingabepuffer 


2021 


$07E5 


Bildschirm: Unterer Rand 


2022 . 


$07E6 


Bildschirm: Oberer Rand 


2023 


$07E7 


Bildschirm: Linker Rand 


2024 


$07E8 


Bildschirm: Rechter Rand 


2026. 


$07EA 


$FF= Automatisches EinfOgen 


2030-2033 


S07EE-07F1 


Bit-Tabelle 


2034 


$07F2 


A-Reglster retten bei Sys-Kommando 


2035 ■ 


$07F3 


X-Register retten bei Sys-Kommando 


2036 


$07F4 


Y-Register retten bei Sys-Kommando 


2037 


$07F5 


Status-Register retten bei Sys-Kommando ■ 


2038 


$07F6 


Register fur Tastaturabfrage 


2039. 


$07F7 


Flag: CTRL-S: $Q0=offen, $0&=>gespefrt 


2040 


$07F8 


RAM-ROM-Umschaltung fQr Monitor =R0M, ' 
$80«RAM 


2044 


$07FC 


Motorsteuerung 
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Dezimai 


Hexadezimal 


Bemerkung 


256-271 


$0100-$010F 


Bereich fOr Filename 


272 


$0110 


ZShler fiir DOS 


273 


$0111 


Lange des 1 , Filenamens 


274 


$0112 


DOS (Laufwerk 1) 


275 


$0113 


Lange des 2. Rlenamens 


276 


$0114 


DOS (Laufwerk 2) 
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C16/C116/C128 



Dezimal 


Hexadezimal 


Bemerkung 


277-278 


$0115-$0116 


Adresse des 2. Filenamens 


279-280 


$0117-$0118 


Startadresse BLOAD/BSAVE 


281-282 


$0119-$011A 


Endadresse BSAVE 


283 


$0118 


DOS Jogische Adresse 


284 


$01 1C 


DOS Gerateadresse 


285 


$01 1D 


DOS Sekundaradresse 


286 


$01 1E 


DOS Record- Lange 


287 


$01 1F 


DOSBNK 


288-289 


$0120-$0121 


DOS Disketten-ID 


290 


$0122 


Flag: Arbeit beendet 


291-310 


$0123-$0136 


Adressen fQr PRINT USING 


291 


$0123 


Zeiger auf Beginn 


292 


$0124 


Zeiger auf Ende 


293 


$0125 


Flag; Doliar-Zeichen 


294 


$0126 


Flag: Komma 


295 


$0127 


Zahler 


296 


$0128 


Vorzeichen Exponent 


297 


$0129 


Zeiger auf Exponent 


298 


$01 2A , . 


Anzahl der Zahten vor dem Punkt 


299 


$01 2B 


Justierungs-Flag 


300 


$01 2C 


Anzahl der Positionen vor dem Punkt 


301 


$01 2D 


Anzahl der Positionen nach dem Punkt 


302 


$01 2E 


Flag: +/- 


303 


$01 2F 


Flag: Exponent 


304 


$0130 


Schalter 


305 


$0131 


Zeichenzahler 


306 


$0132 


Vorzeichennummer 


307 


$0133 


Flag: */SPACE 


308 


$0134 


Zeiger; Anfang des Feldes 


309 


$0135 


Lange des Fbrmatstrirtgs 


310 


$0136 


Zeiger: Ende des Feldes 


311-511 


$0137-$01FF 


System-Stack 


512-763 


$0200-$02FB 


Basic-Puffer/Monitor-Puffer 


764-765 


$02FC-$02FD 


Sprungvektor: zusatzliche Funktionsroutjnen 


766-767 


$02FE-$02FF 


Sprungvektor: Function-Cartridge 


768-769 


$0300-$0301 


Sprungvektor: Fehlermeldung 


770-771 


$0302-$0303 


Sprungvektor: Basic-Warmstart 


772-773 


$0304-$0305 


Sprungvektor: Token-Generierung 


774-775 


$0306-$0307 


Sprungvektor: Keywort erzeugen 


776-777 


$0308-$0309 


Sprungvektor: Befehl ausfuhren 


778-779 


$030A-$030B 


Sprungvektor: Token auswerten 


780-781 


$030C-$030D 


Sprungvektor: Escape-Umwandlung 


782-783 


$030E-$030F 


Sprungvektor: Escape List 


784-785 


$0310-$0311 


Sprungvektor; Escape ausfOhren 


786-787 


$0312-$0313' 


Sprungvektor: Interrupt (Uhr) 


788-789 


$0314-$0315 


Sprungvektor; Interrupt (IRQ) 


790-791 


$0316-$0317 


Sprungvektor: Interrupt (BRK) 


792-793 


$0318-$0319 


Sprungvektor: Interrupt (NMI) 


794-795 


$031A-$031B 


Sprungvektor; OPEN * 


796-797 


$031C-$031D 


Sprungvektor: CLOSE 


798-799 


$031E-$031F 


Sprungvektor: Kanal fur Eingabe dffnen 


800-801 


$0320-$0321 


Sprungvektor: Kanal fur Ausgabe dffnen 


802-803 


$0322-$0323 


Sprungvektor; I/O zurDcksetzen 


804-805 


$0324-$0325 


Sprungvektor: INPUT 


806-807 


$0326-$0327 


Sprungvektor: Ausgabe 


808-809 


$0328-$0329 


Sprungvektor: Abfrage der Stop-Taste 


810-811 


$032A-$032B 


Sprungvektor: GETIN-Routine 


812-813 


$032C-$032D 


Sprungvektor: SchiieSen aller Files 


814-815 


$032E-$032F 


Sprungvektor: Monitor BREAK 


816-817 


$0330-$0331 


Sprungvektor; LOAD-Routine 


818-819 


$0332-$0333 


Sprungvektor; SAVE-Routine 


927-977 


$039F-$03D1 


Unterprogramme zum Laden aus beliebiger Bank 


978-980 


$03D2-$03D4 


Konstante fur Basic 


981 


$03D5 


Bank fur PEEK, POKE, SYS... 


982-985 


$03D6-$03D9 


Temporare Register 


986 


$03DA 


Bank : Zeiger fur Zahl/String-Urnwandlung 


987-990 


$03DB-$03DE 


Temporare Speicher fur SSHAPE 


991 


$03DF 


BITS 


992-993 


$03E0-$03E1 


Temporarer Speicher fur SPRSAV 


994 


$03E2 


Vordergrund-/Hintergrund-Farbe 


995 


$03E3 


Vordergrund-/Multicolor 1 -Farbe 


1024-2047 


$0400-$07FF 


Bildschirmspeicher im 40-Zeichen-Modus 


2048-2559 


$0800-$09FF 


Basic-Run-Time-Stack 



Dezimal 


Hexadezimal 


Bemerkung 


2560-2561 


$0A00-$0A01 


Sprungvektor: Basic-Warmstart 


2562-2563 


$OA02-$OA03 


Sprungvektor: Kaltstart' 


2563 


$0A03 


Fiag: PAL/NTSC 


2564 


$0A04 


Rag: RESTE/NMl ■ 


2565-2566 


$0A05-$0A06 


Zeiger: Anfang verfugbarer Speicher in System- 
Bank 
Zeiger: Ende verfiigbarer Speicher in System-Bank 


2567-2568 


$0A07-$0A08 


2569-2570 


$0A09-$0A0A 


Sprungvektor: IRQ (Kassette) 


2571 


$0A0B 


Zeitvergleich bei Kassettenoperationen 


2572-2573 


$0A0C~$0A0D 


Temporare Speicher beim Kassetten-Lesen 


2574 


$0A0E 


Flag: Timeout 


2575-2587 


$0A0F-$0A1B 


Arbeitsbereich RS232 


2588 


$0A1C 


Flag: Intern/Extern 


2589-2591 


$0A1D-$0A1F 


Zwischenspeicher Echtzeituhr ■ 


2592 


$0A20 


Zeiger; Tastatur-Warteschlange . 


2593 


$0A21 


Flag: CTRL-5 


2594 


$0A22 


Flag; REPEAT $80=alle Tasten, $40=keineTasten, 
$00=Cursort'a i sten/DEL/INST 


2595-2596 


$0A23-$0A24 


ZShler; REPEAT 


2597 


$0A25 


Zahler: COMMODORE/SHIFT 


2598 


$0A26 


Flag fur Cursor-Modus, $40=fester Cursor 


2599-2600 


$0A27-$0A28 


hfiif sregister fur VIC 


2601 


$0A29 


Cursorzeichen vor dem Blinken 


2602 


$0A2A 


Cursorfarbe vor dem Blinken 


2603 


$0A2B 


Cursormodus 80 Zeichen 
(VDC):$80=fest,$60=normal blinkend, 
$40=schneII blinkend, $20=Aus 


2604-2607 


$0A2C-$02AF 


Basiszeiger VIC/VDC 


2608 


$0A30 


Temporare Zeiger auf letzte Zeile 


2609-2612 


$0A31-$0A34 


Temporare Register (VDC) 


2613 


$0A35 


Cursorfarbe vor dem Blinken (VDC) 


2614 


$0A36 


Splitscreen-Raster-Wert (VIC) 


2615 


$0A37 


Zwischenspeicher 


2616 


$0A38 


Hiifszahler fur Echtzeituhr (PAL) 


2688-2739 


$0A80-$0AB4 


Systemadressen far Monitor 


2752 


$0AC0 


Aktuelle Funktionstasten ROM-Bank 


2753 


$0AC1 


Gerateadresse 


2816-3071 


$0B00-$0BFF 


Kassettenpuffer und Puffer fur BOOT-Sektor 


3072-3327 


$0C00-$0CFF 


RS232"Eingabepuffer 


3328-3583 


$0D00-$0DFF 


RS232-Ausgabepuffer 


3584-4095 


$0E00-$OFFF 


Bereich fOr Sprite-Definition 


4096-4351 


$1000-$10FF 


Bereich fur programmierbare Funktionstasten ' 


4352-4400 


$1100-$1130 


Bereich fOr DOS-String 


4401-4408 


$1131-$1138 


Koordinaten fur Grafikcursor 


4409-4424 


$1139-$1149 


Parameter fQr LINE 


4425-4431 


$1149-$114E 


Variablen ftir Winkel-Routinen 


4432-4439 


$1150-811 57 


Variablen f(irCiRCLE-Befehl. 


4432-4447 


$1150-$115F 


Variablen fiir BOX-Befehi . 


4433-4449 


$11 51 -$11 62 


Variablen fOr SSHAPE/GSHAPE 


4456-4566 


$1168-$11D6 


AHgemeine Grafikvariablen 


4608-4609 


$1200-$1201 


Vorhergehende Basic-Zeilennummer. 


4610-4611 


$1202-$1203 


Zeiger auf Basic-Befehl (fur CONT) 


4612-4615 


$1204-$1207 


Symbole bei PRINT USING 


4616-4621 


$1208-$120D 


Parameter fur Fehlerbehandlung 


4622-4641 


$12DE-$1221 


AHgemeine Basic- Variablen 


4642-4725 


$1222-$1275 


Variablen fur Musikbefehle 


4726-4736 


$1276-$1280 


diverse interrupt-Flags 


4737-4784 


$1281-$12B0 


Variablen for SOUND-Befehle 


4785-4860 


$12B1-$12FC 


Register f Or Paddles, WINDOW und SPRDEF 


4864-6143 


$1300-$17FF 


Unbenutzter RAM-Bereich 


7168-8191 


$1C00-$1FFF 


Start Basic-Text/bei Grafik: Video-Matrix 


8192-16383 


$2000-$3FFF 


VlC-Bitmap (im Grafikmodus) 


16384 


$4000 


Start Basic-Text (im Grafikmodus) 


53248 


$0000 


Zeiehensatz/VIC-Register 


54272 


$D400 


SID-Register 


54528 


$D500 


Register der MMU im l/O-Bereich 


54784 


$D600 


80^Zeichen-Videochsp 


55296 


$D800 


VIC Color-Nibble 


56320 


$DC00 


CIA1 


56576 


$DD00 


CIA 2 


56832 


$DE00 


Expansion-Port I/O 


57088 


$DFOO 


Expansion-Port I/O (fur DMA) 


65280 


$FF00 


Register der MMU 
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Duithblkk mit dem Monitor 




Vielen C16/116-Anwendern ist der eingebaute 
Maschinensprache-Monitor TEDMON immer 
noch ein Buch mit sieben Siegeln. Hier soil Ihnen 
gezeigt werden, was man mit ihm ais Basic- 
Programmierer alles anfangen kann. 

L eider wird der TEDMON im C16-Ftandbuch nur fur 
Maschinensprache-Freaks erklart. Basic- Programmie- 
rer werden praktisch auf dem Trockenen sitzen .gelas- 
sen. Das aber eigentlich zu Unrecht, denn auch der Basic- 
Program mierer kann mit diesem Werkzeug eine ganze Menge 
anfangen - auch ohne Kenntnisse in Maschinensprache. 

Was ist uberhaupt ein Monitor? Diese Frage hat zwei 
Antworten. Die erste kennen Sie bestimmt: Ein Sichtgerat, an 
das Sie Ihren Computer anschiiefien konnen. Die zweite 
Antwortist: Keine Hardware, sondem ein Programm, mit dem 
man einen Einblick in den Speicher des Computers 
bekommt. 

im C16, C116 und Plus/4 ist ein solches Monitor- 
programm schon integriert: der TEDMON. Bevor wir mit die- 
sem arbeiten konnen, mussen wir uns noch ein wenig Grund- 
lagenwissen aneignen. 

Die grundlegende Fahigkeit eines Computers ist es, Oaten 
erfassen zu konnen. Man spricht beim Menschen davon, daB' 
er sich etwas merkt. Beim Computer sagt man, er speichert 
etwas. Daher kommt der Begriff Speicher. 

Der Speicher benotigt eine bestimmte Struktur, um zweck- 
maBig arbeiten zu konnen. Wir schlusseln diese Unterteilung 
in Speichereinheiten »von unten« auf, beginnen also mit der 
kleinsten Speichermenge. Die einfachste Art von Information 



ist die Unterscheidung zwischen zwei Moglichkeiten (ja/nein, 
gut/schlecht, und so weiter). 

Beim Computer, der sich Speicherwerte (vereinfacht 
gesagt) durcn Verandem der elektrischen Spannung merkt, 
wird zwischen »Strom flieBt« und »Strom flieRt nicht« unter- 
schieden. Dabei steht »0« fur »kein Strom« und »1« fur 
»Strom«. 

Diese primitivste Form der Information nennt man sowohl in 
der Informatik {»Computer!ehre«) als auch in der modernen 
Informationstheorie »Bit«. »BIT« kommt vom englischen 
»Blnary digiT« (Binarziffer), da in einem Zahlensystem der 
Basis 2 nur und 1 als Ziffern vorhanden sind (zum Ver- 
gleich: Wir arbeiten im aiitaglichen Gebrauch mit der Basis 
10, dem Dezimafsystem). 

Naturlich ist ein Bit zu wenig, um vernunftig arbeiten zu kbn- 
neh. Deshalb kombiniert man mehrere Bits, das heiBt man 
nimmt mehrere Bits zu einer hoheren Informationseinheit 
zusammen und betrachtet jedes einzelne Bit ais Stelle einer 
Binarzahl. Mathematisch gesehen haben wir dann »2 hoch 
Anzahl der Bit«-Kombinationen- , 

Computerhersteller und -entwickler kamen zu der Losung, 
8 Bit als ein »Byte« zu bezeichnen. Wir konnen also 2 8 , das 
sind 256 verschiedene Werte darstellen. Hier ein paar Bei- 
spiele: 

Dinar %01010101 = dezimal 85 

binar %1 1 1 1 1 1 1 1 = dezimal 255 (hochste Zahl, die mit 8 
Bit dargestelit werden kann) 

binar %00000000 = dezimal {niedrigste mit 8 Bit darstell- 
bare Zahl) 
binar %1 0001 000 = dezimal 136 
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Ein Byte kann al!e Zahien von bis 255, also 256 verschie- 
dene Werte, annehmen. Eine »Speicherzelle« beim Compu- 
ter hat genau 1 Byte Kapazitat. Bei den Betspielen der Binar- 
zahien ist Ihnen vielletcht das Prozentzeichen »%« vor jedem 
Binarwert aufgefailen. Dieses Zeichen setzt man in der Regei 
vor eine Binarzahl, urn damit das Zahlensystem der Basis 2 
zu kennzeichnen 

Das Zusammenfassen von Bits in einem Byte erleichtert 
uns die Einteilung des Speichers erheblich;' man darf aber 
nicht auBer acht iassen, daB fur den Computer nach wie vor 
der gesamte Inhait des Speichers nur eine Ansammiung sehr 
vieler Bits ist. 

Auch Buchstaben und andere Zeichen werden vom Com- 
puter als Byte behandelt. Daf ur gibt es eine Codierung, nach 
der jedem Byte-Wert ein Zeichen zugewiesen ist, zum Bei- 
spiel steht die Zaht 65 (dezimal) fur x den Buchstaben A, 66 fur 
B, 67 fur C, etc.. Diese Codierung tragt die Bezeichnung 
»ASCII« (»American Standard Code for Information Inter- 
change* oder deutsch »Amerikanische Standard-Codierung 
furdenlnformationsaustausch«). Man sagt also zum Beispiel: 
»Der ASCII-Code von A ist 65«. Soviel zunachst zum ASCII- 
Code; dazu kdnnen Sie sich auch im Handbuch zu ihrem 
Computer informieren. 

Naturlich ist ein einziges Byte zu wenig. Von einem Compu- 
ter erwartet man, daB er viele Zeichen aufnehmen kann. 
Unser Computer hat zum Beispiei uber 16000 Byte Spei- 
cherkapazitat, wenn es sich urn einen C16 oder C116 
handelt. Der Plus/4 verfugt sogar uber ganze 65536 Byte 
Speicher. 

Damit der Computer »weiB«, welche Speicherstelle ange- 
wahlt (zum Lesen Oder zum Schreiben) werden soil, erhalt 
jede Speicherzelle eine ihr zugewiesene Nummer, die soge- 
nannte »Speicheradresse« Oder einfach nur »Adresse«. Mit 
der Nummer 1024 wird also beispielsweise die 1025. Spei- 
cherstelle im Computer angesprochen. 1025 deshalb, weil 
die Zahlung im Computer immer mit Null beginnt. Die erste 
Speicherstelle tragt also die Adresse 0. 

Eine Einheit von 2 10 = 1024 Byte nennt man »Kilo-Byte« 
oder kurz »KByte«. Die Mertgeneinheit »Kilo« steht also nicht 
fur 1000, sondern fur 1.024 Byte. Das ist ubrigens'eine hau- 
fige Fehlerquelle. Wenn man von einem Computer mit 
64 KByte Speicher spricht, dann handelt es sich nicht urn 
64000 Byte, sondern urn 64 * 1024 - 65536 Byte Spei- 
cherplatz. Da der Computer intern binar arbeitet, also keine 
1000 als gerade Potenz (im Dezimalsystem 10 3 ) kennt, ist 
diese Einteilung zweckmaBig. 

Da unser C16 in der Grundausfuhrung 16., KByte soge- 
nanntes »RAM« zur Verfugung hat, sind das also 16 * 1024 
= 16384 Byte. 

Was ist »RAM«? 



Wir sprachen eben von »RAM«. Das bedarf einer kurzen 
Erklarung. RAM (vom englischen »Random Access Memory« 
Oder auf deutsch etwa »Speicher mit wahlfreiem Zugriff«) ist 
der Speicher, dessen Inhait man im Computer verandern 
kann. Ein Basic-Programm oder ihre Daten werden beispiels- 
weise im RAM abgelegt beziehungsweise gespeichert. 

Die andere Sorte von Speicher ist das ROM (»Read Only 
Memory«), der Nur-Lese-Speicher. Im ROM stehen be- 
stimmte Daten fest eingespeichert (die elementaren Steuer- 
programme des Computers, die so etwas wie Bildschirmaus- 
gabe oder Basic- Programmierung erst ermoglichen) und 
konnen zwar gelesen, aber nicht geandert werden. Der Vor- 
teil des ROM gegenuber des RAM ist, daB die dort enthalte- 
nen Werte auch nach dem Ausschalten der Stromzufuhr 
erhaiten bleiben. Der Vorteil des RAM ist, daB man freien 



Zugriff (sowohl Lesen als auch Schreiben von Speicherinhal- 
ten) auf den Speicher hat. 

Im Computer werden dabei in der Regel beide Mdglichkei- 
ten realisiert. Das RAM steht dem Anwender fur seine Arbeii 
zur Verfugung (bis auf wenige Ausnahmen), und das ROM 
enthalt das Steuerprogramm, das den Computer nach dem 
Einschalten in einen kontroliierten Zustand bringt. Dieses 
Steuerprogramm nennt man auch Betriebssystem, wobei 
dieses Betriebssystem fur die elementaren Vorgange, wie 
Schreiben auf den Bildschirm, Eingabe von der Tastatur, 
Laden und Speichern von Programmen, zustandig ist. 

Das Hexadezimalsystem 



Wir wissen nun, daB der Computer intern binar rechnet, auch 
wenn er in Basic uns gegenuber so tut, als ob er dezimal 
arbeitet. Fur diesen Komfort sind extra Rechenprogramme 
verantwortlich, die im ROM des Computers gespeichert sind. 

Der Monitor fuhrt uns aber naher an die Maschinenebene 
heran, so daB wir uns, dem Computer ein wenig anpassen 
mussen. Es ware jedoch zuviel verlangt, wenn wir jetzt aul 
einmal in Nullen und Einsen denken sollten (vor wenigen Jah- 
ren war das jedoch noch so!). Andererseits mussen wir aber 
auf den Komfort unter Basic verzichten. 

Der KompromiB ist ein Zahlensystem, das leicht vom Com- 
puter ins Binarsystem umgewandelt, aber auch von uns leichl 
verwendet werden kann. So »erfand« man das Hexadezimal- 
system, ein Zahlensystem mit der Basis 16. Die Vereinfa- 
chung ist dabei, daB je 4 Bit einer hexadezimafen Ziffer ent- 
sprechen. 1 Byte (= 8 Bit) kann also aus maximal 2 Hex- 
Ziffern bestehen (2 8 = 16 2 ). 

Es stehen die vom Dezimalsystem her bekannten Ziffern 
bis 9 weiterhin zur Verfugung; auBerdem brauchen wir nocii 
Ziffern, die den dezimalen Werten 10 bis 15 entsprechen. 
Hierfur stehen die Buchstaben A bis R Es ergibt sich fur 
Hexadezifnal-Ziffern folgende Umrechnungstabelle: 

Hexadezimal Dezimal Hexadezimal Dezimal 









8 


8 


1 


1 


9 


9 


2 


2 


A 


10 


3 


3 


B 


11 


4 


4 


C 


12 


5 


5 


D 


13 


6 


6 


E 


14 


7 


7 


F 


15 



Treffen wir an dieser Stelie eine Vereinbarung: Urn Dezimal- 
zahlen von Hexadezimal-Zahlen (auch: Hex-Zahlen) zu unter- 
scheiden, steilen' wir den Hex-Zahlen immer ein Dollarzei- 
chen »$« voran. $44 ist also hexadezimal, 44 (ohne Dollar 
davor) dezimal. Dieses System kennen Sie aber schon von 
den Binarzahlen her, als wir ein Prozentzeichen »%« zur 
Unterscheidung verwendeten. 

Selbstredend konnen Hex-Zahlen auch aus mehreren Stei- 
len bestehen. 
Im Dezimalsystem ist: 
345 = 5 * 10° + 4 * 10 1 + 3 * 10 2 
Zur Probe: 

5 * 10° + 4 * 10 1 + 3 * 10 2 
= 5*1 + 4 * 10 + 3 * 100 

- 5 + 40 + 300 
= 345 

Ahnlich gehen wir im Hexadezimalsystem vor, allerdings ist 
die Basis jetzt 1 6 und wir mussen die Hex-Ziffern umrechnen: 
$3A4 = $4 * $10° + $A * $10 1 + $3 * $10 2 

- 4 * 16° + 10 * 16 1 + 3 * 16 2 
= 4*1 + 10 * 16 + 3 * 256 
= 4 + 160 + 768 

= 932 



68 



SONDERHEFT BIB6 



C16, C116, Plus/4 



GRUNDLAGEN 



Beim Arbeiten mit dem Monitor wird alles uber das bexade- 
zimale Zahlensystem abgewickelt: Der Monitor gibt Werte 
(Byte, Adressen) hexadezimal aus, wir geben Werte hexade- 
zimal ein. 

Sollte einmal eine Umrechnung anfallen, so greifen wir auf 
Basic zuruck. Den hexadezimalen Wert einer Dezimalzahl 
erhalten wir uber 
PRINT HEX$( Dezimalzahl) 
zum Beispiel 
PRINT HEX$(952) 

Die gegensatzlicne Umrechnung erfolgt uber 
PRINT DEC ( "Hex-Zahl ") 
zum Beispiel 
PRINT DEC ( "5FA3 ") - 

Dabei sind Werte von 0-65535 beziehungsweise 
$0000-$FFFF zugelassen, andere Werte benotigen wir 
auch nicht 

Der Monitor kann auf drei Arten gestartet werden, von denen 
nur zwei fur uns interessant sind: 

1) Ober den Maschinensprachebefehl »BRK«. Diese 
Variante vernachlassigen wir, denn uns interessiert hier nur 
Basic. , 

2) RESET und gleichzeitig RUN/STOP-Taste gedruckt hal- 
ten. Dies bewirkt, daB beim RESET nicht ins Basic, sondern 
in den Monitor gesprungen wird. 

3) Eingabe des Basic-Befehls < MONITOR >. 

Mit welcher der drei genannten Moglichkeiten der Monitor 
auch gestartet wird, er meldet sich mit einer Einschaltmel- 
dung: * 

MONITOR 

PC SR AC XR YR SP 
; 0000 00 00 00 00 F8 

»MONITOR« signalisiert, daB wir uns nun im Monitor befin- 
den. Jetzt haben alle Basic-Kommandos ihre Gultigkeit verlo- 
ren, bis wir den Monitor verlassen. Dafur gelten nun die 
Monitor-Anweisungen. 



Start des Monitors 



Die weiteren Zeilen der Einschaltmeldung konnen wir ver- 
nachlassigen, denn. die sind nur fur Maschinensprache- 
Anwendungen interessant. In diesem Kurs werden wir aber 
nichts besprechen, was nur fur Maschinensprache Bedeu- 
tung hat; wer Maschinensprache kann, findet im 64'er- 
Sonderheft 3/1986 ab Seite 14 und auch in diesem Sonder- 
heft eine ganze Menge Informationen daruber. ■: 

Der Eingabemodus des Monitors ist nicht anders als in 
Basic, Cursortasten und so weiter funktionieren weiterhin. 

Nur die Basic-Anweisungen und Zeilennummern gibt es 
jetzt nicht mehr. 

Was versteht er aber dann fur eine »Sprache«? 

Dazu wollen wir gleich unseren ersten Befehl fernen. Er 
dient zum Verlassen des Monitors (ins Basic) und heiBt ganz 
einfach »X«. Sie wissen schon, wie man dieses Kommando 
ausfuhrt: <X> eingeben und <RETURN> drucken. Das 
vertraute »READY« erscheint und wir sehen daran, daB wir 
uns im Basic befinden. Nun konnen wir wieder Basic-Befehle 
ausfuhren lassen. Ein Neustart des Monitors erfolgt uber 
< MONITOR >. 

Dem Befehl »X« mussen keine weiteren Angaben (soge- 
nannte Parameter) folgen, der Monitor weiB auch so, was er 
zu tun hat. 

In Bild 1 finden Sie eine Kurzubersicht zum X-Befehl. Wir 
werden Ihnen zu jedem neuen Befehl eine solche Kurzuber- 
sicht liefern, damit Sie bei Bedarf schnell nachschlagen kon- 
nen. 

Ubrigens bestehen alle Monitor-Kommandos - wie der X- 



Befehl - nur aus einem einzigen Zeichen. Dieses Zeichen ist 
meist aus einem englischen Wort, das in der Kurzubersicht 
aufgefuhrt ist, abgeleitet 

Der nachste Befehl, den wir kennenlernen, ist nicht so ein- 
fach wie »X« anzuwenden. Dafur eroffnet uns dieses Kom- 
mando aber auch wesentlich mehr Moglichkeiten. Es ist der 
M-Befehl, der »Grundbefehl« eines Monitors. Wenn wir uns 
mit diesem vertraut gemacht haben, sind die restlichen 
Befehie schnell erlernt. Lassen Sie sich beim Verstehen des 
M-Befehls also Zeit, es lohnt sich! 

ZunachstetwasGrundsatzIiches: Mit < RUN/STOP > kon- 
nen fast alle Monitor-Befehle abgebrochen werden. Bei »X« 
ist dies deswegen nicht moglich, weil er augenblicklich aus- 
gefuhrt wird. 
Der Befehl »MEMORY DUMP« 

Die Hauptaufgabe eines Monitorprogramms ist es, Spei- 
cherbereicheanzuzeigen. Dasgeschiehtnaturlich hexadezi- 
mal. | 

Wir geben dem Monitor dazu die erste und die letzte anzu- 
zeigende Adresse an. Geben Sie bitte folgenden Befehl ein 
(gefolgtvon < RETURN >): „.- 
M 8180 81B5 

Sie erhalten die in Bild 2 zu sehende Antwort des Monitors. 
Soliten Sie andere Werte erhalten, geben Sie zunachst 
07F8 00 

und dann wieder 
M 8180 81B5 
ein. 

Die Anzeige bezeichnet man als »Memory Dump«, auf 
deutsch: »Speicherausdruck«. Ohne Erklarung kann man mit 
diesem hexadezimalen Zahlen- und Zeichen-Gewirr beim 
besten Wilien nichts anfangen. Betrachten wir deshalb exem- 
plarisch die erste Zeile (>8180 0A A9 ...). 

Das GroBer-Zeichen (>) am Anfang der Zeile ist erst an 
spaterer Stelle von Bedeutung. 

Die 4steliige Hex-Zahl danach, namlich 8180, ist die soge- 
nannte »Basisadresse« der Dump-Zeile. In dieser Zeile wer- 
den also die Inhalte der Speicherzeilen ab 8180 angezeigt. 

Diese Inhalte der Adressen stehen nach der Adresse in 
Form von 8 zweistelligen Hex-Zahlen. Nun benotigen wir 
besagte Basisadresse, urn sagen zu konnen, welche Zahl der 
Inhalt welcher Speicherzelle ist. Die 8 Byte sind ganz einfach 
die Speicherinhalte ab der Basisadresse; 

$OA ist der Inhalt von $8180, $A9 von $8181, $50 von 
$8182, und so weiter. 

Nach dem Doppelpunkt stehen in der Reihenfolge der 
Bytes die Zeichen, zu denen die Bytes die ASCII-Codes, 
beziehungsweise die Commodore-Codes darstellen. 
Commodore-Codes deshalb, weil sich Commodore mit sei- 
nen vielen Sonderzeichen nur sehr begrenzt an die ASCII- 
Codierung halt Wie wir wissen, hat jedes Zeichen einen 
Code, der aus einer Zahl von $00 bis $FF besteht. ASCII 
kennt aber nur Zeichen-Codes von $00 bis $7F. Bei unse- 
rem Computer benotigen wir deshalb einen eigenen Code, 
was uns aber im weiteren nicht storen soil. 

Da Zeichen im Speiaher als Zahlen abgelegt werden, zeigt 
unser Monitor zu jedem Byte den Code an, damit wir sofort 
sehen konnen, wo Texte stehen. In unserem Beispiel haben 
wir die Codes einiger Basic-Befehle erwischt. 

Sie werden mit " M 8000 FFFF" auch noch andere Texte, 
die der Computer ausgibt, finden. 

Bei derCode-Darstellung muB der Monitor noch ein kleines 
Problem losen. Die Zeichen-Codes gibt es namlich nicht nur 
fur Buchstaben, Ziffern, Grafikzeichen und so weiter, son- 
dern auch fur sogenannte Steuerzeichen. Steuerzeichen 
sind im Gegensatz zu den »druckbaren Zeichen« diejenigen 
Codes, die kein Zeichen am Bildschirm ergeben, sondern 
eine Steuerfunktion hervorrufen. Mit < PRINT CHR$(65)> 
erhalten wir das druckbare Zeichen »A«, mit < PRINT 
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CHR$(147)> jedoch zum Beispiel das Steuerzeichen fur 
»Bildschirm ioschen«. 

Da Steuerzeichen also nicht darsteilbar sind, werden Sie 
vom Monitor in der Zeichen-Darstellung als Punkt ».« ausge- 
geben. 

Es ist alierdings zu beachten, daB es den Punkt auch als 
riehtiges Zeichen gibt. Dieser »echte« Punkt hat den ASCII- 
Code $2E oder dezimal 46 (probieren Sie in Basic PRINT 
CHR$(46)) und ist beim Memory Dump nicht von den Steuer- 
zeichen zu unterscheiden. Im Zweifelsfall muft man also auf 
die Hex-Werte sehen, urn erkennen zu konnen, ob es sich urn 
einen wirklichen Punkt (Wert: $2E) oder ein Steuerzeichen 
(anderer Wert als $2E) handelt. 

Am Anfang ist es schwer einzusehen, weshalb der M- 
Befehl so wichtig ist. Bald werden wir.aber praktische Anwen- 
dungen besprechen, damit Sie einen ersten Eindruck von der 
Machtigkeit dieses Monitor-Kommandds bekommen. 

Zunachst mussen wir jedoch noch die Syntax des M- 
Befehls betrachten:. 

In unserem Beispiel (»M 8180 81B5«) h^ben wir die voile 
Syntax verwendet: 
M Anfangsadresse Endadresse \ 

Wenn wir die Endadresse weglassen, er'gibt sich die Syn- 
tax »M Anfangsadresse«. Dann wird ab der angegebenen 
Anfangsadresse ein Memory Dump von 12 Zeilen bange aus- 
gegeben. Da in jeder Zeile 8 Adresseh gedruckt werden, 
werden beim Weglassen der Endadresse also 12*8 — 
96 Byte ausgegeben. Die Adressen bis 96 des 
C16-Speicbers lassen Sie bitte uber <M 0000 > ausge- 
ben, damit Sie einmal den Effekt gesehen haben. 

Es gibt sogar noch einedritte Syntax: <M> (ohneweitere 
Angaben danach). 

Dann wird ab der letzten angezeigten Adresse 12 Zeilen 
lang gedruckt. Wenn Sie eben wie gefordert <M 0000 > 
eingegeben haben, werden jetzt auf ein nachfolgendes 
<M> htn die Speicherzellen ab $0060 ausgegeben. 

Der Befehl »M« ohne Parameter ist vor allem dann nutzlich, 
wenn man das Dump zuvor durch < RUN/STOP > abgebro- 
chen hatte. 

In Bild 3 finden Sie die Kurzubersicht zum M- Befehl. Wir 
wollen nun zu ersten Anwendungen kommen. 
Anwendung 1: Basic-Anfang und Basic-Ende 

Wenn man ein Basic-Programm im Speicher hat, mochte 
man gerne wissen, wo es beginnt und wo es auf hort Hat man 
diese Grenzen erst einmal ermittelt, kann man das Basic- 
Programm uber »M« ausgeben lassen.- 

In $002B/$002C befindet sich die Anfangsadresse des 
Programms. Diese muB auf zwei Adressen ($002B UND 
$002C) aufgeteilt werden, da eine Adresse hexadezimal 
vierstellig ist, eine Speicherstelle aber nur zweistellige Hex- 
Zahlen aufnehmen kann. Der Computer bedient sich hier 
eines einfachen, aber wirkungsvollen Tricks: Die Speicher- 
zelle mit der niedrigeren Adresse ($002B) erhalt die beiden 
niederwertigen Stellen der vierstelligen Zahl, die andere, 
Adresse ($002C) die beiden hoherwertigen Stellen. Die nie-" 
derwertigen Stellen nennt man »Low-Byte«, die hoherwerti- 
gen »High-Byte«. 

Ein Beispiel: Die Zahi $1 AB5 soil in Low- und High-Byte auf- 
geteilt werden. Das Low-Byte besteht aus den niederwerti- 
gen {wetter rechts stehenden) Stellen und ist also $B5, das 
High-Byte entsprechend $1A. 

In $002B liegt das Low-Byte, in $002C das High-Byte der 
Anfangsadresse des Basic- Programms im Speicher. Wir stel- 
len jetzt diese Anfangsadresse test. 

Geben Sie dazu < M 002B 002C > ein. In 99 Prozent aller 
Falle erhalten wir; 
>002B01 10 ... 

Das Low-Byte ist somit $01, das High-Byte $10. Wie wir 
wissen, besteht das Low-Byte aus den beiden rechts stehen- 



den Stellen, das High-Byte aus den beiden links stehenden. 
Richtig gestellt ist die Adresse also $1001. Wir hatten auch 
so vorgehen konnen, daB wir die Reihenfolge im Speicher 
(»01 10«) einfach umstellen und »1001« erhalten. Mit dem 
Basic-Befehl PRINT DEC ("1001 ") konnen wir unser »For- 
schungsergebnis« ins dezimale Format umwandeln lassen, 
wenn wir wollen. 

Die Endadresse stellen wir auf gleiche Weise test. Wir 
geben <M 002 D 002E> ein und erhalten jetzt Werte, die 
von der Lange des aktuellen Basic-Programms abhangen. 
Jedenfalls nehmen wir die erste zweistellige Zahl und stellen 
dieZiffern der zweiten zweisteliigen Zahl davor; das Ergebnis 
ist die Endadresse. War kein Programm im Speicher (zum Bei- 
spiel direkt nach dem Einschalten oder nach »NEW« der Fall), 
muBten Sie $1003 erhalten. 
Anwendung 2: Basic-Programm ansehen 

Laden Sie nun ein Basic-Programm ein und'ermitteln Sie 
Anfangs- und Endadresse wie j in Anwendung 1. Mit <M 
Anfangsadresse Endadresse > ist es dann moglich, das 
Basic-Programm im Speicher anzusehen. Warum dort wel- 



Befehl: 

Syntax : 
Wirkung: 



"eXit") 



Rucksprung vom Monitor ins Basic 
Bild 1. Kurzubersicht zum Befehl »X« 

>8180 OA A9 50 DO 06 A9 6C DO 
>8188 02 A9 5A 4C 94 04 45 4E 
>8190 C4 46 4F D2 4E 45 58 D4 
>8198 44 41 54 CI 49 4E 50 55 
>81A0 54 A3 49 4E 50 55 D4 44 
>81A8 49 CD 52 45 41 C4 4C 45 
>81B0 D4 47 4F 54 CF 52 55 CE 

Bild 2. Beispiel fur die Anwendung des M-Befehls 

Be f ehl : M ( "Memory dump " ) 

Syntax : M Anf angsadr . End adr . 

oder M Anf angsadr. 

oder M 
Wirkung: Anzeige der Adresse und ihrer 

Speicherinhalte 

Bild 3. Kurziibersicht zum Befehl »M« 

Befehl: > 

Syntax ; > Adresse Bytel Byte2 ByteX 

Wirkung: Die Bytes werden ab der 

Adresse abgelegt 

Bild 4. Kurziibersicht zum > -Befehl 




$4000 - $7FFF: 

hier wird 

$0000 - $3FFF 

eingeblendet. 

$0000 - S3FFF: 



RAM (16K) 




$FFFF 



$80c; 



Grundversion 



$ooo: 



Bild 5. Bank-Switching. Im Bereich $0000 bis S7FFF ist immer 
RAM eingeblendet 
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che Werte stehen, besprechen wir am Ende des Kurses. 
Durch dieses Ansehen konnen Sie aber schon einen ersten 
Vorgeschmack bekommen. 
Anwendung 3: Bildschirmspeicher betrachten 

Diese Anwendung ist zwar unproduktlv, aber eine ganz 
gute Demonstration des M-Befehls. 

Mit <MOCOOOFEO> konnen wir den Bildschirmspeicher 
(das ist der Speicherbereich, in dem der Biidschirminhalt 
untergebracht ist) ausgeben. Wie Sie daraus ersehen kon- 
nen, wird auch der Bildschirm vom Computer wie ein norma- 
les RAM behandelt. Lediglich der Videoprozessor holt sich 
daraus seine Daten fur das Aufbereiten des Bildes. 

Sehen Sie sich das am besten einmal an. 
Speieherzeilen mittels Memory Dump andern 

Es ist interessant, die Speieherzeilen mittels <M> anzu- 
sehen, und es vermitteit das Gefuhl, hinter die Kulissen zu 
blicken. 

Man verspurt aber auch da's Bedurfnis, in das Geschehen 
einzugreifen, indem man dje inhafte der Speieherzeilen 
andert. Auch dafur kann man, das Memory Dump einsetzen. 

Wollen wir die angezeigten Werte andern, mussen wir nur 
mit dem Cursor in die betreffende Dump-Zeile fahren, die 
hexadezimalen Werte mit unseren neuen Werten, die auch 
zweistellig hexadezimal sein mussen, uberschreiben und 

< RETURN > drucken, Damit Sie es gleich ausprobieren 
konnen, geben Sie <M 1000> ein. Sie erkennen dort den 
Anfang des im Speicher befindlichen Basic- Prog ramms 
(gegebenenfalls Monitor verlassen, Programm uber Basic 
laden und dann den Monitor neu starten). 

Gehen Sie mit dem Cursor in die erste Dump-Zeile und dort 
auf das erste Byte (nicht auf die Basisadresse, sondern auf 
diezweistelligeZahldanach!). Das erste Byte ist sicher»00«. 
Uberschreiben Sie diesen Wert mit »5A« und drucken Sie 
dann «fRETURN>. 

Wie Sie sehen, wird die Anderung ubemommen, denn in 
der ASCII-Darstellung verschwindet der Punkt, der das erste 
Byte reprasentiefte, und es erscheint ein »Z« (das liegt am 
Wert $5A, dem ASCII-Code fur »Z«). Verlassen Sie nun uber 
<X> den Monitor und versuchen Sie, das Programm uber 

< RUN > zu starten. Der Computer meldet einen »?SY!MTAX 
ERROR«. Der Grund dafur ist die Anderung der Adresse 
$1000. Wenn wir sie wieder ruckgangig machen (<M 
1000> ; erstes Byte mit »00« uberschreiben; <RETURN > 
drucken), konnen wir das Programm auch wieder starten: 
<RUN> ergibt keinen »?SYNTAX ERROR« mehr. 

Dieses Beispiel sollte nur eine kleine Demonstration sein, 
urn das Prinzip zu verdeutiichen. Sie konnen in einer Zeile 
auch mehrere Bytes (im Extremfall alle) andern; in jedem Fall 
durfen Sie aber nur die Hex-Darstellung andern (die ASCII- 
Darstellung konnen Sie zwar uberschreiben, Ihre Anderung 
wird aber nicht in den Speicher ubemommen). 

Beim Andern der Speicherinhalte wird die ASCII- 
Darstellung vom Computer nicht beachtet. Deshalb steht 
nach den Hex-Bytes der Doppelpunkt, der dem Monitor 
signalisiert, daB alles, was dem Doppelpunkt folgt, ignoriert 
werden soil. 

Es ist also recht einfach, Speicherinhalte zu andern. Man 
muB nur den entsprechenden Bereich ausgeben und dann 
die zu andernden Bytes mit den gewunschten Werten uber- 
schreiben. 

Das GroBer-Zeichen (>) am Anfang einer Dump-Zeile ist 
nichts weiter ais ein eigener Monitor-Befehl. Die Syntax lau- 
tet: 
> Basisadresse Bytes 

Die Basisadresse ist die Adresse, ab der die Speicher- 
inhalte geandert werden sollen. Ab dieser Basisadresse 
werden dann die der Adresse folgenden Bytes abgelegt. Wir 
konnen nur ein Byte, aber auch mehrere Byte schreiben 
lassen. 



Der Befehl >0C00 36 34 27 45 52 schreibt $36 in 
Adresse $0C00, $34 in Adresse $0C01 und so weiter. 

Da diese Adressen der Anfang des Bildschirmspeichers 
sind, sehen Sie links oben am Bildschirm den Text »64'ER«. 

Eine andere Anwendung ware > FF19 00 (farbt den Rah- 
men schwarz). 

Bild 4 ist die Kurzubersicht zum Befehl {>). 

Den > -Befehl konnen wir auch zum sogenannten Bank- 
Switching einsetzen. Dazu mussen wir erst einmal klaren, 
was Bank-Switching eigentlich ist. 

Der Prozessor unseres C 16/116 und des Plus/4 kann nur 
2 16 = 65536 Adressen anwahien. In der Grundversion (von 
C 16/1 16) reichtdas: 

RAM 1 6 KByte 

ROM 32 KByte 

insgesamt 48 KByte 

in Bytes (48*1024) = 49152 j 

Der Speicher ist dann wie folgt aufgebaut: Von $0000 bis 
$4000 stehen die 16 : KByte RAM, im Bereich $8000 bis 
$FFFF die 32 KByte ROM. Der Bereich $4000 bis $8000 
ist genaugenommen ungenutzt, denn dort wird nur der RAM- 
Bereich $0000 bis $4000 eingeblendet. $4005 ist also 
nichts anderes ais $0005. Diese Angaben gelten jedoch nur 
fur die Grundversion von C16 und C116. 

In dlesem Fall kann man sagen, daB der Computer mit der 
Verwaitung des Speichers unteriordert ist, denn er konnte 
noch weitere 16 KByte adressieren. 

Bei einer 64-KByte-Speichererweiterung sind jedoch 
64 KByte RAM und 32 KByte ROM, also 96 KByte Speicher, 
zu adressieren (zum Beispiel im Plus/4). 

Hier hat der Computer die Losung des Bank-Switching 
parat. Es wird dabei zwischen zwei AdreBkonfigurationen 
umgeschaltet, in denen jeweils 64 KByte »stchtbar« sind: 
Version 1 (ROM-L6sung) 

$0000-$7FFF RAM 
$8000-$PFFF ROM 

In dieser Version wird nur ein Teil vom RAM (nur 32 KByte 
stattder gesamten 64 KByte) verf ugbar gemacht; dafur aber 
ist das komplette ROM ab $8000 eingeblendet. 
Version 2 (RAM-L6sung) 

$0000~$FFFF RAM 

Das ROM wird ausgebiendet, dafur sind die gesamten 
64 KByte RAM verfugbar. 

Wir konnen jeweiis nur eine Konfiguration einschalten. Ver- 
antwortlich hierfur ist die Adresse $07F8, die in beiden Ver- 
sionen ais RAM verfugbar ist. 

Steht in $07F8 der Wert $00, haben wir Version 1 einge- 
schaltet, steht der Wert $80, so ist Version 2 gultig. So kon- 
nen wir mittels Umscbalten auf jede Adresse im Speicher 
durch den Monitor zugreifen. 

Version 1 ist ubrigens der Einschaltzustand; wollen wir nur 
mit Version 1 arbeiten, mussen wir nie umschaiten. Dies ist 
zum Beispiel dann der Fall, wenn Sie die Grundversion des 
C 16/1 16 haben, in der ja ein Bank-Switching nicht notig ist. 

Die Monitor-Befehle zum Umschaiten sind: 
>07F8 00: schaltet Version 1 ein 
>07F8 80: schaltet Version 2 ein 

In Bild 5 finden Sie noch eine grafische Darstellung des 
Bank-Switching. 

Gezielte Suche nach Bytes 

Wenn man den Speicher bearbeitet, mocnte man vielleicht 
manchmal bestimmte Werte suchen. Dafur gibt es einen 
Suchbefehl. 

Mit<H 8000 FFFF 49 4e DO > suchenwirim Bereich von 
$8000 bis $FFFF (naturlich in der aktuellen Spetcherkonn- 
guration) nach der Bytefolge $49 $4E $D0. 

Wir erhalten vom Monitor die Antwort: 
8159 8165 
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Das bedeutet, daB die von uns gesuchte Bytefolge ab 
$8159 und ab $8165 im Speicher steht. 

Wenn wir nach Zeichen suchen wollen, geht dies auch. 
Dazu mussen wir nach Anfangs- und Endadresse des zu 
durcnsuchenden Bereichs ein Apostroph <"> eingeben 
und danach die Suchzeichen. Ein Beispiel: 
H 8000 FFFF 'COMMODORE 

sucht nach dem Text »COMMODORE« im Speicher von 
$8000 bis $FFFR Wir erhaiten ais Antwort: 
80CF E3A7 

Falls Sie bei unseren beiden Beispielen zum H-Befehl nicht 
die genannten Adressen erhaiten haben, haben Sie nicht die 
Speicherkonfiguration von Version 1 eingestellt, was Sie 
uber <>07F8 00 > leicht nachholen konnen. 

Die Kurzubersicht zum H-Befehl ist -in Bild 6 dargestellt. 

An dieser Stelfe soil Ihnen noch ein wichtiger Hinweis zum 
H-Befehl gegeben werden, der dringenderforderlich ist: 

Wenn Sie den zu durcnsuchenden Bereich so wahlen, daB 
auch der Bereich $0200 bis $02FF gepruft wird, sind alle 
Werte von $0200 bis $025D, die der H-Befehl liefert, zu 
ignorieren. Der Grund ist, daB Werte aus diesem Bereich 
keine Aussagekraft haben. 

Bei der C 1 6-Grundversion sind auch Werte von $4200 bis 
$425D zu vernachlassigen, da es'sich nur urn Kopien von 
$200 bis $25D handelt. 

Die ASCil-Codes 

Im Handbuch finden Sie zwar eine Tabelle der ASCII-Codes, 
aber diese fuhrt nur den dezimalen Commodore-ASCII-Code 
auf. 

Mit dem Programm in Listing 1 konnen Sie sich eine hexa- 
dezimale Tabelle ausgeben lassen. Diese Tabelle stellt bei 
den ASCII-Codes $00 bis $1F und $80 bis $9F kein Zeichen 
dar, da es sich hierbei urn Steuerzeichen handelt. 

Bei $20, $A0 und $E0 steht auch kein Zeichen, denn 
diese Codes stehen fur das Leerzeichen (»Space«). 

Wenn Sie bei der Arbeit mit dem Monitor den Commodore- 
ASCII-Code fur ein bestimmtes Zeichen wissen wollen, neh- 
men Sie die Tabelle zur Hand und suchen das Zeichen. Dann 
finden Sie die erste hexadezimale Stelle in der waagrechten 
Spaltennumerierung-von bis F, die zweite Hex-Stelle in der 
senkrechten Numerierung derZeilen (auch von bis F). Neh- 
men wir als Beispiel das Ausrufezeichen »!«: die erste Stelle 
ist 2, die zweite ist 1. Der hexadezimale ASCII-Code ist also 
$21. 

So laBtman die Umrechnung uber Basic ausfuhren: 
PRINT RIGHT$(HEX$(ASC("A")),2) 

ergibtden hexadezimalen ASCII-Code des Buchstabens »A« 
alszweistelligeZahl; andere ASCII-Codes erhaiten Sie, wenn 
Sie statt »A« andere Zeichen einsetzen. 

Bei manchen Zeichen geht die Umrechnung ganz einfach. 
Der ASCII-Code einer Ziffer hat als linke Hex-Ziffer die »3« 
und als rechte Stelle die Ziffer selbst; der ASCII-Code von 5 
ist also $35. 

Ahnlich leicht errechnet sich der ASCII-Code der Zeichen, 
die uber < SHIFT > und eine Zahlentaste erreicht werden 
(zum Beispiel das Ausrufezeichen < SHIFT 1 >, Und-Symbol 
< SHIFT 6 > ); man nimmt die »2« als linke Hex-Ziffer und als 
rechte Stelle verwendet man die Zahlentaste, die man auBer 
<SHIFT> driicken muB, urn das Zeichen zu erhaiten. 

Das raffinierteste Umrechnungsverfahren aber bedient 
sich nur des Monitors. 

Wir rechnen damit den Text »BEISPIEL« in den ASCII-Code 
urn. Dazu geben wir zunachst 
H 'BEISPIEL 

ein. Dieser Suchbefehl bringt keine Adresse auf den Bild- 
schirm, das soil er aber auch gar nicht. Nun steht im Suchpuf- 
fer des Monitors dieser Text im ASCI l-Code. Folgender Befe'hi 



Befehl: 
Syntax: 

Wirkung: 



H ("Hunt") 

H Anfangsadr. Endadr. Bytel 
oder H Anfangsadr. Endadr. 'Text 



ByteX 



Suchen der Bytes oder des Textes im 
dureh Anfangsadr. und Endadr. 
eingegrenzten Bereich 



Bild 6. Kurzubersicht zum H-Befehl 



ASCII-Code 


Wirkung 


$05 


Cursorfarbe weiJ3 


$08 


SHIFT C = verbieten 


$09 


SHIFT C = wieder zulassen 


$0D 


RETURN (Cursor an Anfang 




der nachstenjZeile) 


$0E 


Klein/Groftschrift ein 


$11 


Cursor eine Zeile nach unten 


$12 


Reversschrift ein 


$13 


Cursor in linke obere Ecke 


$14 


letztes Zeichen loschen 


$1B 


ESC 


$1C 


Cursorfarbe rot 


$1D 


Cursor eine Spalte nach rechts 


$1E 


Cursorfarbe griin 


$1F 


Cursorfarbe blau 


$82 


FLASH ON (Blinken ein) 


$83 


FLASH OFF (Blinken aus) 


$8D 


SHIFT RETURN (wie $0D) 


$8E 


GroJ5/Graf ikschrift ein 


$90 


Cursorfarbe schwarz 


$91 


Cursor eine Zeile nach oben 


$92 


Reversschrift aus 


$93 


Bildschirm loschen 


$94 


ein Zeichen einfugen (INST) 


$9C 


Cursorfarbe purpur 


$9D 


Cursor eine Spalte nach links 


$9E 


Cursorfarbe gelb 


$9F 


Cursorfarbe tiirkis 



Bild 7. Die Steuerzeichen und Ihre Hex-Codes 



Befehl: 
Syntax : 

Wirkung : 



Beispiel; 



T ("Transfer") 

T Anfangsadr. Endadr. Zieladr. 

verschiebt den Bereich von 

Anfangsadr. 

bis Endadr. an die Zieladr. 

T 8000 8300 COO verschiebt einen Teil 

des ROMs in den Bildschirmspeicher; 

am Bildschirm erscheint ein 

Zeichengewirr. 



Bild 8. Kurzubersicht zum Befehl »T« 



Befehl: 

Syntax: 
Wirkung: 



Beispiel: 

Bild 9. Kurzubersicht zum C-Befehl 



C ("Compare") 

C Anfangsadr. Endadr. Verg^leichsadr. 

vergleicht den Bereich von 

Anfangsadr. bis Endadr. mit dem 

Bereich ab Vergleichsadr.; 

unterschiedliche Adressen werden 

ausgegeben. 

C 80CF 80D9 E3A7 
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j 100 
I 110 
i 120 

| 130 

| 140 

! 150 

i 160 

170 

180 

190 

200 

210 
220 

230 
240 
250 
260 

270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 



REM ********************* 
REM * * 

REM * ASCII - TABELLE * 
REM * * 

REM ********************* 
REM * * 

REM * FLORIAN MUELLER * 
REM * * 

REM. ********************* 

DO ; INPUT "DRUCKER (D) ODER BILDSCHIRM (B> " 
;A*: LOOP WHILE A*<>"D" AND A*<>"B" 
IF A*="B" THEN 250 

INPUT "GERAETENUMMER'-jG: INPUT "SEKUNDAERADR 

ESSE";S 

OPEN 4,6,S: CMD 4 

LE*=CHR*(32>; REM LEERZEICHEN 

Z*="0123456789ABCDEF": REM ZIFFERN FUER HEX- 

ZAHLEN 

PRINT SPCC2) ; 

FOR J = 1 TO 16 

s PRINT MID* CZ*,J,1);LE*; 

NEXT J 

PRINT 

FOR J = TO 15 

s PRINT MID*(Z* t J+l,l);SPC(5) 

: FOR K = 2 TO 15: IF K>7 AND K<10 THEN 390 

: : PRINT CHR*(J+(K*16> ) }LE«; 

: ; IF K=7 THEN PRINT LE*;LE*;LE$; LE*; 

: NEXT K 

: PRINT 

NEXT J 

IF A*="D" THEN PRINT* 4: CLOSE 4 



Listing 1. Erstellen einer ASCli-Tabelle 



gibt diesen Suchpuffer aus, wo wir die ASCII-Codes des 
Textes dem Memory Dump entnehmen konnen: 
M 25D 

Diese Art von Umrechnung ist immer noch die beste, 
schnellste und komfortabelste, 

Zuruckzuden Basic-Befehlen fur ASCII-Codes. Mitfolgen- 
dem Befehl laBt man das zu einem ASCIi-Code gehorende 
Zeichen ausgeben: 
PRINT CHR$(DEC( "hex. ASCI I -Code") ) 

Mit < PRINT CHR$(DEC("41 "))> erhaften wir zum Bei- 
spiel das Zeichen »A«. 

Probieren Sie aber doch einmal die ASCII-Codes $13, 
$93, $1F, $90 oder $05 aus. Wie Sie sehen, ergeben diese 
kein Zeichen, sondern positionieren den Cursor, andern die 
Zeichenfarbe oder ahntiches. Dies sind sogenannte Steuer- 
zeichen. In Bild 7 finden Sie aile C 1 6-Steuerzeichen mit Ihren 
Commodore-ASCII-Codes. 

Ein interessantes Steuerzeichen ijst »ESC« (27); dazu 
lesen Sie bitte im Handbuch nach. 

Wir wolien nun weitere Monitor-Kommandos kennenlernen, 
die einfachzu handhaben sind. Alie wichtigen Informationen 
uber die Syntax und so weiter linden Sie in den Kurzubersich- 
ten. 

Der Befehl <T> dientzum Verschieben von Speicherbe- 
reichen (Bild 8). Dieser Verschiebevorgang wird fortlaufend 
uberpruft und Adressen, an denen das Verschieben nicht 
ordnungsgemaR durchgefuhrt werden konnte, werden aus- 
gegeben. 

Der Vergleich von Speicherbereichen ist mit <C> mog- 
lich (Bild 9), ganze Speicherbereiche mit einem Wert anfulien 
kann man uber <F> (Bild 10). 

Urn Speicherbereiche zu laden, speichern oder zu verifi- 
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H. Haberl 

Mini-CAD mit Hi-Eddi plus 
auf dem C64 

Januar 1986, 230 Saiten inki. Disk 

Das Zeichenprogramm »Hi-Eddi« aus 
der Zeitschrift 64'er fand so grol3en 
Anklang bei den Lesern, da8 sich sein 
Schrjpfer H. Haberl angespornt sari, 
dieses erfolgreiche Programm zu einem 
umfangreichen und leistungsfSfiigen 
CAD-Programm fur den C64 auszu- 
bauen. Auf der beiiiegenden Diskette 
findet der Leser das voilstandige Pro- 
gramm, mit dem das komfortable Erstel- 
len von technischen Zeichnungan, Pla- 
nen oder Diagrammen ebenso mdgiich 
ist wie das Maien von farbigen Bildern, 
Entwurf und Ausdruck von Gluck- 
wunschkarten, Schildern, ja sogar von 
bewegten Sequenzen (kleine Trickf ilme, 
Schaufenster-Werbung). 
• Wer sagt, da8 CAD auf dem C64 
nicht moglich ist?! 

Best.-Nr. MT 90136 _.. _ 

ISBN 3-89090-136-0 UNI 4B,~ 
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Alles fur den C 64/128 



WELTNEUHEIT 

1 MEGABYTE ji.ooo.2«i,ooerr6)SPBOMKA!ns 

Die GOLIATH-KARTE fur C 64/128 



!»■ 



Steckbrief: 

* miteingebautemSleuefepiom * 16Steckpltitzefurje 2764/129' 
256-'S12 * wahlweise uber eigene Directory oder FTasrsnsteue. 
rung * l(ir Erwetterurtg wie Prologigdos Oder anniich * Intepn'erter 
Modvlmanager * vollatandig gebuilcrter Bus * Maid- und Sot*!- 
waie-rtifiGig schaltbar * umsehallbar von 103 auf 102 * Expan- 
slonsport durcnaufufirt * oingebourer ReseHaslerurKjStutzJtJBe * 
ansonstan sind dio baton wio dio 2S6-K-Epron»k-3rto. wclctie ietzt 
zumSondoipreisvon 109.— DM verkault wird. S'ehe Best- Mr. 9613 

* Alle Programme, die mit dem Medelmenager der 2G6-K-K«jte er- 
stellt wurden. taufen ebenfalLs ajf der 1-MB-KarIe! 



Best.-Nr. 9600 Fertiggerat 



149,50 



Der Epromer 32 K 

Dieser Spitzenromer im GeriSuse ist eine weitere Best- 
teistung aus unserem Kause. Er brennt alle Eproms 
2716 bis 27256 sowie die CMOS-Eproms. welche 
pinkompatibel sind. Die Pro gram micrspannungon 
von 1 2,5/2 1/25 Volt sind softwaregesteuert. 
Der AnschluB ertolgt direkt ohne jedert Zusatz am 
Userport! 

Technischer Steckbrief; 

• Editor/Monitor 
» umschaltbar: Hexa- und Dezimal 

• Auslesen/Leertest/Brertnen 

• standiger Speichsrvergleicfi 

• Einzelbyte-/Schnellprogrammierung 

• Standardprogramrnierung/Wi6derrio!6n . 

• .Autostartgenerator fur Masch.-Basicptg. 
» eingebauter Modulgenerator 

• komfortable deutsche Menufurtnjng 

Lielemmfang: 

• Komfortable Software auf Diskette 

• auf Wunsch die Software auf Eprom 

• lOseitige deutsche Bsschreibung 

• Datenblatt von Eproms 

• ein Leereprom zum Testen 

9S26 Bausat2 0hne Textoolsockel 

9534 Bausatz mit Textoolsockel 

9511 FertlggertitorineTextoolsockelohne Gehause 

9555 Fertiggerat mit Textoolsockel mit GehSuse 

9556 Auf Wunsch liefern wir die Soltw, auf Eprom 

9557 Ebenfalls liefern wir das Leergehauseelnzeln 



DER GOUATH-EPROMER 
64-K-EPROMER mit PFIFF 

* brennt »fast« ailes, was ihm in den 
Textooi kommt. 

* brennt 1 KB in 1 Sekunde 

+ 3 prg. Algorhythmen zur Auswahl 
+ Einsteckieiste fiir Steckmodule zum 

direkten Einlesen! 
FOr folgende Eproms: 

* 2508/16/'32r'64 * 271 S/58/32/64/1 28/256/ 
512/613 * 87o56/5133/5143/27916/x12816a/ 
x.12664a'>:148c64 * Nest : 2332/2364 (ROMs) * 
und noch vieles mehr. 

Nr. 9610 Fertiggerat 298,— 



256-K-Epromkarte der Superlative 

Der absolute REN NE R unter den Hardwareangeboten. Seine 
Speicherkapazitat Obertrilft die einar Diskette. Echte 256 K 
>2S6.000« Bytes I 
Dazu kon 



fade 




i MerkmaJe v;ie 
. Laden mehr 
rird genutzt 
shenkt 

• eingebauter Modulmanager 

• Erstellen eigener Directory 

DerMODULMANAGER ermoglicht es. lackenlos Basic- odor 
Maschin en programme brennlertlg und lauffahlg zu machen. 

Beispiel: Sie kftnnen 256 Piopramma mit 1 K. auf die Karte 
•packenc, oder aber auch 1 Programm mit 250 KM! 
Technischer Steckbrief: 8 frele SteckplaMze fOr je 5/16 Oder 
32 K oder besser gesegt lllr 2764/27128 oder 27256. 
Naturlich kann auch gemischt v.'erden. 

Der Anschluli erfolgt direkt am Modulport. Die deutsche 

Menufuhrung ist SuSerst komfortabel. Eln Eingrifl in den 

Rechner ist nicht erforderlich. Dadurch bleibt ein evtl. Gatan- 

tiean5pruch erhalten. 

Die Karte hat efwa guroDafoririot (inkl Steoker). also ca. 100 

x 160 mm. FuGe zum Abstutzen der Karte werden mitgelie- 

fert. 

9S74 Komplottbausalz 
8513 Fertiggerat 

Eine gute Sache ist der Winkeladapter. Dieses kleine, doch 
»ott sehrwichtiget Zubehor emiogiicht tf en Betneb der oben 
genannten Karte urn 96' versetzt, also filr den Senkrectit- 
belrieb. FOr alte. die h inter dem Rechner nicht viel Plats 
heben. Der Adapterwirdtertig mitFuBengelieferl. AuUerdem 
ist der Modulport nach hinten hln noch lllr weitere Anschlvis- 
se fret. 



Geschaf Isbedl ngu ngen: 

Liererung sehnallstens per Nachnahme oder \Airita9ae. Ab 200— 

Warenwert trachttrel. Vereicherung 1,—. Metst sriotgt die Liete- 

nttiQ em gleictiBn Tag. wjiin der Auftrag bie 13 Utir eingsht 

Vierfaib-Katatoa gagen —.60 DM In Briefroarkon. Bei Bostoltun- 

flen wird der Katafog kostenJOS beigelogt 

Handlerantraaen « 
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zieren, gibt es die Befehle <S>,<L> und <V> (BilderU 
bis 13), die den Basic- Befehlen »LOAD«, »SAVE« und »VE- 
RIFY« entsprechen, sich aber nicht auf das im Speicher 
befindliche Basic- Prog ram m, sondern auf einen Tei! des 
Speichers, den Sie selbst bestimmen, beziehen. 

Bei <S> wird der Inhalt der Endadresse nicht mitgespei- 
chert; »S "NAME",1000,2000« speichert also von $1000 
bis $1 FFF, nicht bis $2000. Gegebenehfails mussen Sie also 
die Endadresse um 1 erhohen. 

Bearbeiten Sie ein Basic- Programm, ist es besser, die ent- 
sprechenden Basic-Befehle (»LOAD«, »SAVE«, »VERIFY«) 
heranzuziehen. Sie konnen aber auch die Monitor- 
Kommandos verwenden, wenn Sie Anfangs- und End- 
adresse des Baslc-Programms kennen. Die Monitor-Befehle 
sind iedigiich dann unausweichiich, wenn Sie nur bestimmte 
Teile des Speichers speiehem oder laden wollen. 

Wir wollen uns noch ein wenig mit der Ein-/Ausgabe des 
TEDMON befassen. Zunaehst, klaren wir die beiden unter- 
schiedlichen Ladevorgange. Wenn Sie ein Programm uber 
< L "NAME", G'erat> laden, wird es an die Adresse, ab der 
es gespeichert wurde, geladen.! 

Wenn ein Programm gespeichert wird, kommen auf das 
Speichermedium nicht nur die paten des Programms, son- 
dern auch die Anfangsadresse. Auf Diskette geben die ersten 
zwei Bytes des Programms die Anfangsadresse an (1. Byte: 
Low-Byte; 2. Byte: High-Byte). 

Listing 2 {»FILE~INFO«) ermoglicht ihnen, Anfangs- und 
Endadresse eines Programms zu ermitteln, das auf einer Dis- 
kette gespeichert ist. * 

Nach Eingabe des Fiienamens (<$> bewirkt Ausgabe 
des Disk-lnhaltsverzeichnisses) stellt das Programm die 
Anfangsadresse und die Anzahi der Diskettenbiocke fest. 
Daraus laBt sich (aus der Kapazitat eines Diskettenblocks) 
die maximale Endadresse des untersuchten Programms 
ermitteln. Die genaue Endadresse wird in einem etwas lange- 
ren Vorgang festgestellt; diese konnen Sie dann direkt als 
Parameter fur den S-Befehl einsetzen. Am besten erstellen 
Sie sich einen Katalog aller Programme, die Sie mit dem Moni- 
tor bearbeiten wollen, wobei die optionale Druckerausgabe 
sicher eine Hiife ist. 

Insbesondere, wenn, Sie spater mit Maschinenprogram- 
men arbeiten wollen, werden Sie auf Listing 2, das »FILE- 
lNFO«, nicht verzichten wollen. 

TEDMON und hochauflosende Grafilc 



Eine Anwendung des S-Befehls ist das Speiehem der hoch- 
auflosenden Grafik. 

Mit 
S "GRAFIK", Gerat, 2000, 4000 
konnen Sie die hochauflosende Grafik speichern. 

Mit 
L "GRAFIK", Gerat 
wird sie wieder geiaden. 
Druckerausgabe mit dem TEDMON 

Leider bietet der TEDMON keinen Befehi, um die Ausgabe 
vom Bildschirm auf den Drucker umzulenken. Mit einem 
Basic-Befeh! ist das aber moglich. Geben Sie in Basic 
OPEN 4,4:CMD 4: MONITOR 

ein, wird vor dem Start des Monitors die Ausgabe auf den 
Drucker umgelenkt. Dies geht soweit, daS sogar die Ein- 
schaltmeldung des TEDMON auf den Drucker geleitet wird. 
Sie geben aber ungeachtet dessen die Monitor-Kommandos 
wie ublich ein. Alle Ausgaben des Monitors (Memory Dumps 
etc.) kommen nun auf den Drucker. 

Wenn Sie fertig sind, genugt es nicht, beide Gerate Ginfach 
auszuschalten, sondern Sie mussen den Monitor uber <X> 
verlassen und in Basic dann 



Befehi: F("Fill") 

Syntax: F Anfangsadr. Endadr. Fiillbyte 

Wirkung: fullt den Bereich von Anfangsadr. bis 

Endadr. mit dem Fiillbyte 
Beispiel: F COO F00 01 

fullt den Bildschirm( speicher) mit 

"A" 
Biid 10. Kurziibersicht zum Befehi »F« 

Befehi: S("Save") 

Syntax: S "Filename ",Gera.tenummer, 

Anfangsadr. Endadr. 

Wirkung: unter dem Filenamen in Anfuhrungs- 

zeichen wird der Bereich von Anfangs- 
adr. bis Endadr. auf das Gerat, das 
durch "Geratenummer " angewahlt wird, 
abgespeiehert. 

Bild 11. Kurziibersicht zum Befehi »S« 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



*******-iyi-********************** 

* * 

* ANFANGSADRESSE * 

* * 

* UND ENDADRESSE * 

* * 

* EINES DISKETTENPROGRAMMS * 

* * 

* ERMITTELN. * 

* * 
***********************#****#*# 

* * 

* 1985/86 BY FLORIAN MUELLER * 

* * 
************************»-**♦*** 



SCNCLR J W$= "#####" 

PRINT CHR*<27>"0": PRINT "BESTIMMUNG VON ANF 

ANGS- UND ENDADRESSE" CHR*(13> 

INPUT "FILENAME" ;N*: IF N*="4" THEN PRINT 5 

DIRECTORY : PRINT : GOTO 270 

OPEN 15,8, 15, "10" 

IF DS<>e THEN 330 

OPEN 1,8,3,N*+",P,R" 

IF DS=0 THEN 400 

PRINT : PRINT CHR* ( 15> "DISKFEHLER: ";DS*s PR 

INT 

CLOSE 1: CLOSE 15: GOTO 280 

REM -a*********-*****-**-********* 
REM * INFORMATIONEN AUSGEBEN * 
REM ************************** 

SCNCLR s PRINT : PRINT "INFORMATIONEN FUER " 
CHR*(34) ;N*;CHR*(34) 

PRINT 

REM ****************** 
REM * ANFANGSADRESSE * 
REM ****************** 

PRINT : PRINT "ANFANGSADRESSE: " , 

GET #1,A*: GET #i,B* 

IF A*="" THEN A*=CHR*(0) 

IF B*="" THEN B$=CHR$(0> 

A=ASC ( A* ) +256*ASC ( B* ) 

PRINT USING W*;A;: PRINT " = *";HEX*<A) 

CLOSE 1 

REM ********************** 
REM * ANZAHL DER BLOECKE * 
REM ********************** ' 

PRINT : PRINT "DISKBLOECKE: " , 
OPEN 1,B,0,"$:"+N* 
GET #1,A*,B* 
GET #1,A*,B* 
GET #1,A*,B* 

GET #1,B*: IF STO0 THEN 830 
IF B*OCHR*C34) THEN 640 

DO : GET #1,B»: LOOP WHILE B*OCHR*<34> 
DO : GET #1,B4: LOOP WHILE B*=CHR$(32) 
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Befehl: L("Load") 

Syntax: L "Filename "jGerat, Ladeadresse 
oder L "Filename ",Gerat 
Oder L "Filename" 

Virkung: Das Programm »Filename« wird vom Gerat 
an die Ladeadresse geladen. Fallt die 
Ladeadresse weg, wird das Programm in 
den Bereich geladen, aus dem es auch 
abgespeiehert wurde. Gibt man das 
Gerat nieht an, wird $01 (Datasette) 
angenornmen . 

Durch die Angabe einer Ladeadresse 
kann man das Programm beim Laden in 
einen anderen Speicherbereieh 
schreiben als den, in dem es vor dem 
Speieherrrstand . 

Bild 12. Kurztibersicht zum L-Befehl 



680 DO : GET #l,B*s LOOP WHILE B*<>"" 

69© GET #1,A*,B*,A*,B* 

760 IF A*="" THEN At=CHR*(0) 

710 IF B*="" THEN B*=CHR4<0) 

720 B=ASC<A*)+256*ASC(B*> 

730 PRINT USING W*;B;s PRINT " = *";HEX*(B) 

740 CLOSE 1 

750 s 

760 REM *****##**#****»»******* 

770 REM * MAXIMALE ENDADRESSE * 

780 REM ************************'' 

790 s 

B00 PRINT s PRINT "MAX, ENDADRESSE: " , 

810 E=A+254*B-2 

820 PRINT USING W*;Ejj PRINT " = *";HEX*(E) 

830 CLOSE Is CLOSE 15 

840 PRINT : PRINT CHR4 ( 18) "TASTE DRUECKEN" 

850 PRINT s PRINT " (G = GENAUE ENDADR. / D = DRUG 

KERAUSGABE) "; 
860 GET KEY GK*: IF GK*^"D" THEN EE=Es M=ls GOTO 

10708 ELSE IF GK*<>"6" THEN RUN 
870 s 

880 REM ********************* 
890 REM * GENAUE ENDADRESSE * 
900 REM ********************* 
910 : 
920 M=0 
930 PRINT CHR$<27) "D";CHR* < 145) CHR* ( 145) "ENDADR 

ESSE FUER ' S ' : " ; 
940 EE=A: OPEN l t B,0,N* 
950 DO UNTIL ST AND 64 
960 s GET #1,A«: EE=EE+1 
970 LOOP. : EE=EE~1 

980 PRINT USING W*;EE;s PRINT " = *";HEX*(EE) 
990 CLOSE 1 

1000 PRINT : PRINT CHRS < 18) "TASTE DRUECKEN (D ' = 
DRUCKERAUSGABE) ";CHR*(146> j 

1010 GET KEY GK*: IF GK*<>"D" THEN RUN 

1020 : 

1030 REM ****************** 

1040 REM * DRUCKERAUSGABE * 

1050 REM ****************** 

1060 s 

1070 V*== "##############################": REM 30 
* tt 

1080 PRINT CHR*<27)"D" 

1090 OPEN 4,3 

1100 PRINT#4, USING V* ; "FILENAME:";-- PRINT#4 t N* 

1110 PRINT#4, USING V*; "ANFANGSADRESSE: " ; s PRINT* 
4, USING W*;A; 

1120 PRINT#4," - *";HEX*(A) 

1130 PRINT#4, USING V*; "ENDADRESSE: "; : PRINT#4,US 
INS W*;E;: PRINT#4," = *";HEX*(EE) ; 

1140 IF M=l THEN PRINT#4," (MAXIMAL)": ELSE PRIN 
T#4," (FUER 'S' -BEFEHL)" 

1150 PRINT#4, USING V*; "LAENGE IN DISK-BLOECKEN: " 
;; PRINT#4, USING W*;B; 

1160 PRINT#4 t " = *";HEX*(B) 

1170 CLOSE 4 

1180 IF M-l THEN 840: ELSE GOTO 1000 

Listing 2. »File-lnfo« fiir C16, C116 und Plus/4 



PRINT#4:CL0SE4 

eingeben. Wenn Sie das unterlassen. ist es gut mdglich, daB 
der Drucker eine auszugebende Zeiie nicht aufs Papier 
bringt, sondern »verschluckt«. 

Jetzt haben wir aile Befehle, die zum Bearbeiten von Basic- 
Programmen mitdem Monitor ertorderlich sind, besprochen. 
Manche Betehle werden wir fur unsere Anwendungen auf 
Basic-Programme, zu denen wir nun kommen, noch gar nicht 
benotigen. Ich habe diese Kommandos dennoch vorgestellt, 
denn Sie konnten durchaus in die Lage kommen, auf diese 
zuruckgreifen zu mussen. 

Basic-Programme durchleuchten 

Als eine der ersten Anwendungen des M-Befehls haben wir 
uns ein Basic- Programm angesehen. Dabei blieben noch 
viele Fragen often (zum Beispiel warunj man kein Befehlswort 
wie »PRINT« oder »GOTO« sehen konnte), die nun nach und 
nach beantwortet werden konnen. Dazu analysieren wir das 
Memory Dump eines Beispiel-Programms, an dem wir spater 
auch Manipulationen durchfOhren wollen. Dieses Beispiel- 
Programm ist Listing 3. Das Memory Dump lassen Sie nun 
wie beim M-Befehl besprochen ausgeben (Anwendung 2 
des M-Befehls). 

Sie erhaiten dann den Ausdruck, den Sie auch in Bild 14 
sehen konnen. 

Listing 3 mussen Sie ubrigens exakt so eintippen, wie es 
ausgedruckt ist; sie durfen (auBer direkt nach der Zeilennum- 
mer) kein Leerzeichen auslassen! 



100 REM "PROGRAMM VERSUCHSKANINCHEN" 

110 BCNCLR : PRINT "CO 64'ER" 

120 REM **************************** 

130 COLOR '4,1 

140 END 

Listing 3. Kleines »Versuchskaninchen« 



Wir besprechen nun anhand des »Versuchskaninchen«- 
Programms den Aufbau eines Basic-Programms im Speicher. 
Die Linkpointer 

Die ersten Bytes des Programms enthalten den sogenann- 
ten »Linkpointer« der ersten Programmzeile. Der Begriff 
»Linkpointer« heiBt auf deutsch etwa »Verbindungszeiger«. 
Der Computer benotigt den Linkpointer, urn zu wissen, wo im 
Speicher die nachste Programmzeile steht. Am Anfang jeder 
Zeile steht im Speicher der Linkpointer auf die nachste. in 
unserem Fall - der Linkpointer ist immer im Low-High- Format 
abgelegt - beginnt also die nachste Zeile bei $1024, denn 
am Anfang steht »24 10«. 
Die Zeilennummer 

Der Computer muB sich auch die Zeilennummer merken. 
Diese legt er ebenfalis im Low-High- Format ab. Die Zeilen- 
nummer steht unmitteibar nach dem Linkpointer, also im 3. 
und 4. Byte jeder Zeile. In unserem Fall ist die Zeilennummer 
durch die Bytes »64 00« bestimmt ($0064 = 100). 
Die Token 

Nach der Zeilennummer finden wir im Listing des Pro- 
gramms ein Leerzeichen. Das nachste Byte im Speicher 
(»8F«, siehe Memory Dump) ist aber kein Leerzeichen. 

Beim LISTen eines Programms fugt der Computer automa- 
tisch nach der Zeilennummer genau ein Leerzeichen ein; bei. 
der Eingabe aber ignoriert er alle Leerzeichen zwischen Zei- 
lennummer und Befehl. Es ist also voliig egal, ob Sie 
100 REM "PROGRAMM VERSUCHSKANINCHEN" 
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Oder 

100REM "PROGRAMM VERSUCHSKANINCHEN " 
eingeben. 

Spater gibt er der Obersichtiichkeit halber von sich aus 
eines nach der Zeilennummer aus. 

Im Speicher ist also das nachste Byte nicht das Leerzei- 
chen, sondern der REM-Befehl. 

Nun finden wir aber nach der Zeilennummer nicht die 
ASCII-Codes des Textes »REM«, sondern nach der Zeilen- 
nummer (»64 00«) nur das Byte »8F«). 

Der Grund ist, daB Befehlsworter nicht im ASCII-Format 
gespeichert werden, sondern schon bei der Eingabe eine 
Codierung in Token erfolgt. Jedes Befehlswort wird durch ein 
Byte (im Beispiel »8F« fur REM) reprasentiert. Dies spart 
Speicherplatz und erhohtdie Verarbeitungsgeschwindigkeit, 
weil jetzt anstatt mehrerer Bytes nur 1 Byte ($8F) vom Com- 
puter bearbeitet werden mu8. \ 

Token erkennt der Computer daran, daBsie groBerals $80 
sind. 

Es ist noch anzumerken, daB der Computer nur Befehls- 
worter auBerhalb von Anfuhrungszeichen in Token umwan- 
delt. ' 

Die Endmarkierung einer Zeile 

Nach dem REM-Token (»8F«) finden wir die ASCII-Codes 
des Textes nach REM. Im ASCII-Code merktsich der Compu- 
ter einen GroBteil des Programrhs, namlich: 

- Texte in Anfuhrungszeichen. 

- Texte nach einem REM-Befehl 

- Texte, die nicht Befehlswortor (also zum Beispiel Variablen) 
sind 



Befehl: V( "Verify") 

Syntax und Wirkung siehe L-Befehl (Bild 12) ; bei V wird 
das Programra nicht geladen, sondern wie beim Befehl 
"VERIFY" in Basic verglichen. 



Bild 13. Kurztibersicht zum V-Befehl 



>1001 24 10 64 


00 


8F 


20 


22 


14 


>1009 0D 93 12 


4b 4f 


50 


46 


5A 


>1011 45 49 4C 45 


92 


20 


2A 


2A 


>1019 2A 2A 0D 


0D 


IB 


54 


2A 


2A 


>1021 2 A 8D 00 


37 


10 


6E 


00 


E8 


>1029 3A 99 22 


28 43 


29 20 36 


>1031 34 27 45 52 


22 


00 


5A 


10 


>1039 78 00 8F 


20 


IB 44 45 


53 


>104l A3 2D 44 


20 


40 4F 45 


53 


> 1049 43 j& 54 20 44 49 45 


20 


>1051 5A 45 49 4C 45 


2E 


2E 


2E 


>1059 00 63 10 


82 


00 


E7 34 2C 


>1061 31 00 69 


10 


8C 


00 


80 


00 


>1069 00 00 00 


00 


00 


00 


00 


00 



Bild 14. Memory Dump des Programms »Versuchskaninchen« 




In der Dump-Zeile mit der Basisadresse $1021 steht am 
Anfang »4E 22«. Das sind die ASCII-Codes fur »N« und das 
Anfuhrungszeichen »"«, also der SchluB des Textes nach 
dem REM-Befehl in Zeile 100. Da an dieser Stelie die Zeile 
100 aufhort, folgt eine Endmarkierung in Form eines 
$00-Bytes. Am Endejeder Zeile steht $00. Darauf folgt dann 
die nachste Zeile in der gewohnten Reihenfolge »l_inkpointer 
-Zeilennummer- Befehl- Endmarkierung«. Nach derletzten 
Zeile steht dann ein $00-Byte als Endmarkierung der Zeile 
($1068). 

Dann folgen aber noch zwei weitere $00- Bytes 
($1069/$1070), die als Endmarkierung des gesamten Pro- 
gramms dienen. Im Memory Dump stehen nach $1070 zwar 



>1001 24 10 64 


00 


8F 


20 


22 


50 


>1009 52 4F 47 


52 


41 4D 4D 20 


>1011 56 45 52 53 55 43 48 53 


>1019 4B 41 4E 49 4E 43 48 45 


>1021 4E 22 00 


37 


10 


6E 


00 


E8 


>1029 3A 99 22 28 43 29 20 36 


>1031 34 27 45 


52 


22 


00 


5A 


10 


>1039 78 00 8F 


20 


2A 


2A 


2A 


2A 


>104l 2A 2A 2A 


2A 


2A 


2A 


2A 


2A 


>1049 2A 2A 2A 


2A 


2A 


2A 


2A 


2A 


>1051 2A 2A 2A 


2A 


2A 


2A 


2A 


2A 


>1059 00 63 10 


82 


00 


E7 34 2C 


>106l 31 00 69 


10 


8C 


00 


80 


00 


>1069 00 00 00 


00 


00 


00 


00 


00 



Bild 15, »Versuchskaninchen« mit Steuercodes 



>1001 24 10 64 00 8F 0D 12 50 : 


> 1009 52 4F 47 52 4l 4D 4D .20 




>1011 56 45 52 53 55 43 48 53 




>1019 4B 41 4E 49 4E 43 48 45 




>1021 4E 0D 00 37 10 6E 00 E8 




>1029 3A 99 22 28 43 29 20 36 




>1031 34 27 45 52 22 00 5A 10 




>1039 78 00 8F 20 IF 42 4C 41 


/ 


>104l 55 13 55 4E 44 20 57 49 




>1049 45 44 45 52 20 4C 49 4E 




>1051 4B 53 20 4F 42 45 4E 2E 




>1059 00 63 10 82 00 E7 34 2C 




>1061 31 00 69 10 8C 00 80 00 




>1069 00 00 00 00 00 00 00 00 


" 


Bild 16. Programm mit Codes, die groBer als $7F sind und mit 


ESC-Befehlen 
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noch mehrere Nullen, diese gehoren aber nicht mehr zum 
Programm, sondern stehen nur zufallig dort. 

Nachdem wir nun den Aufbau besprochen haben, soliten 
Sie in der Lage sein, jedes einzelne Byte im Memory Dump 
des Beispielprogramms zu erklaren; die Token mussen Sie 
naturlicb nicht auswendig wissen. 

Wir wenden uns den ersten Manipulationen an unserem 
>Versuchskaninchen« zu. Speichern Sie bitte spatestens 
jetzt dieses Programm. 
Linkpointer-Manipulationen 

Die Linkpointer werden vom Computer nach jedem Laden 
eines Programms neu berechnet; deshalb kann man zwar die 
Linkpointer trickreich manipulieren und das Programm 
abspeichern, nach dem Neuladen aber ist die ganze Miihe 
umsonst. Aus diesem Grund.sind die Effekte, die wir nun her- 
vorrufen werden, lediglich eine Demonstration, von einem 
echten LIST-Schutz kann man nicht sprechen. 

Als erstes wolien wir den Linkpointer von Zeile 1 00 auf sich 
selbst stellen, so daB beim LISTen nur immer Zeile 100 ge- 
iistet wird, der Rest des' Programms aber nicht. 

Der erste Linkpointer stent bei $1001 und zeigt noch auf 
$1024. Geben Sie <M 1001 > ein und andern Sie die bei- 
den ersten Bytes auf <01 10> ($01: Low-Byte von $1001, 
$10: High-Byte), oder geben Sie einfach < > 1001 01 10 > 
ein. 

»Vermurkste« Basic-Programme 



Zugegeben:Ein wenig f rustrierend ist es schon, wenn man 
so raffinierte Sachen mit den Linkpointern anstellt und dann 
durch Speichern und Neuladen, beziehungsweise <SYS 
DEC("8818")> alles wieder weg ist. 

Die Manipulationen, die wir nun durchfuhren werden, sind 
aber wesentlich »wetterfester«, denn man kann sie der Nach- 
welt durch Speichern erhalten. 



Manipulationen an Zeilennummer 



Urn das Zerstorungswerk anzusehen, verlassen wir den 
Monitor und geben < LIST> ein. Die Zeile 100 wird ununter- 
brochen gelistet, bis wir < RUN/STOP > drucken. 

Sicherlich ist dies eine nette LISTschutz-Variante, doch 
konnen wir sie nicht einsetzen, da beim Neuladen eines Pro- 
gramms von Diskette oder Datasette derartige LISTschutz- 
Vorrichtungen entfernt werden. Der Computer bedient sich 
dabei einer Routine, die Sie uber 
SYS DEC ("8818") 

aufrufen konnen. Nach diesem Befehl ist das Programm wie- 
der »repariert«, da die Linkpointer neu berechnet wurden. 

Das soli uns aber nicht davon abhalten, weiter mit den Link- 
pointern zu experimentieren. Als nachstes wolien wir die 
Endmarkierung des Programms so andern, daB nach dem 
LISTen der letzten Zeile wieder die erste Zeile geLISTet wird. 

Der Linkpointer der letzten Zeile steht bei $1063 und zeigt 
auf die Endmarkierung ($1069). Wir andern.also das »69 10« 
in »01 10«, und schon haben wir ein weiteres Endlos-Listing, 
bei dem allerdings jede Programmzeile gelistet wird. Auch 
hier hilft < RUN/STOP > und dann ein 
SYS DEC ("8818") 

weiter. 

Der letzte Linkpointer-Trick ist, daB wir die Linkpointer so 
stellen, daB bestimmte Zeilen fur den LiST-Befeh! nicht vor- 
handen sind. Solche Zeilen durfen aber auch nicht ange- 
sprungen werden. 

FolgendermaBen sind die Linkpointer in »Versuchskanin- 

chen« gestellt: 

$1001 (Zeile 100) zeigt auf $1024, 

$1 024 (Zeile 1 1 0) zeigt auf $1 037, 

$1 037 (Zeile 1 20) zeigt auf $1 05 A, 

$1 05A (Zeile 1 30) zeigt auf $1 063, 

$1 063 (Zeile 1 40) zeigt auf $1 069, 

bei $1069 stehen Nullbytes als Endmarkierung. 

Wir richten den ersten Linkpointer auf den letzten: 
>1001 63 10 

Damit wird auf $1063 (Zeile 140) gestellt. 

Die Eingabe von <LIST> zeigt, daB die Zeilen 110,120 
und 130 beim LISTen verschluckt werden, obwohl sie noch 
vorhanden sind, wie <SYS DEC("8818")> beweist 



Wie wir wissen, kann man mit zwei Byte alle (ganzen) Zahlen 
von bis 65535 darstellen. Dennoch laBt der Computer, der 
Basic-Zeilennummern ja in diesem Low-High- Format spei- 
chert, nur Zeilennummern bis 63999 zu. Mit dem Monitor 
sind wir aber nicht auf den normalen.Basic-Eingabe-Modus 
angewiesen und konnen bestehende Zeilennummern so 
andern, daB wir auch Zeilennummern von 64000 bis 65535 
verwenden konnen. 

Geben Sie folgende Monito'r-Anweisungen ein (selbstver- 
standlich ohne die dahinterstehenden Kommentare in Klam- 
mern), und schon hat unser »Versuchskaninchen« die Zeilen- 
nummern 64000 bis 64040 anstelle von 100 bis 140: 
>1003 00 FA (64000 statt 100) 

>1026 OA FA (64010 statt 110) 

>1039 14 FA (64020 statt 120) 

>105C IE FA (64030 statt 130) 

>1065 28 FA (64040 statt 140) 

Lassen Sie das Programm jetzt LISTen, Sie werden erstaunt 
sein! 
Zwei Anmerkungen. 

Erstens: Das Programm lauft nur dann korrekt, wenn Zeilen 
mit unerlaubt groBer Zeilennummer nicht angesprungen wer- 
den, denn den, Befehlen <GOTO>, <GOSUB> oder 
<RUN> konnen wir die Zeilennummern uber 64000 nicht 
beibringen. 

Zweitens: Mit einem einfachen RENUMBER-Befehl kon- 
nen wir auch diese Manipulation ruckgangig machen; 
< RENUMBER 100,10 > stellt den ursprunglichen Zustand 
wieder her. 

Wir konnen auch alien Zeilen die Zeilennummer 100 »ver- 
passenc 
>1003 64 00 
>1026 64 00 
>1039 64 00 
>105C 64 00 
>1065 64 00 

Es gelten die gieichen Hinweise wie bei den »uberdimen- 
sionaten« Zeilennummern. 

Unsere nachste Anwendung ist eine echte Hilfe beim Pro- 
grammieren. 

Das Basic 3.5 unseres C 16/1 16 ist zwar wirklich umfang- 
reich, aber der FIND-Befehl zum Suchen von Texten inner- 
halb von Programmen fehlt leider. Mit dem Monitor konnen 
wir einen solchen unter einigermaBen vertretbarem Auf wand 
ersetzen. 

Wir suchen jetzt als Beispiel nach dem Text »64« im Pro- 
gramm »Versuchskanincben«. 

I. Bestimmung von Anfangs- und Endadresse des Basic- 
Prog ram ms 

Diesen Schritt kennen wir seit dem M-Befehl. Bei »Ver- 
suchskaninchen« ist $1001 die Anfangsadresse und $106B 
die Endadresse. 

II. Suchen nach dem Text im Speicher 
H 1001 106B '64 

sucht nun nach dem Text »64«. Wir erhalten die Adresse 

$1030 als Ergebnis. 
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Befehl 


Syntax 


Wirkung 


eXit 


X 




Ruckkehr in Basic 


Memory dump 


M 


Start Ende 


Anzeige von 

Speicherinhalten 


> 


> 


AdresseByte. . , 


Andern von 

Speicherinhalten 


Hunt 


H 


Start Ende Byte 


Suchen von Bytefolgen 


Transfer 


T 


Start Ende Ziel 


Verschieben von 
Speicherbereichen 


Copy . 


C 


Start Ende Ziel 


Vergieichen von 
Speicherbereichen 


Fill 


F 


Start Ende Byte 


Fullen von 
Speicherbereichen 


Save 


S 


"name", Gerat, 


Speichern eines 






Start, Ende+1 


Bereichs 


Verify 


V 


"name", Gerat 


Vergieichen eines 








Speicherbereichs 
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Bild 17. Tabelle der wichtigstert Befehle des TEDMON 



III. Dumpen vom Anfang des Basic-Speichers bis zur ange- 
gebenen Adresse ! 

M 1001 1030 

Wir sehen uns dann von $1030 ruckwarts mit ein wenig 
Gespur das Memory Dump an und suchen die letzte Endmar- 
kierung. Diese istdas Null-Byte bei $1023. Bei $1026 stent 
dann die Zeilennummer; »6E Q0«. 

In Basic rechnen wir $006E mit < PRINT DEC 
("006E")> urn und erhaltenJIO. 

In Zeiie 110 stent demzufoige der gesuchte Text. 

Hat der H-Befehl in Scbritt II mehrere Adressen genannt, ist 
Schritt III fur jede Adresse durchzufuhren. 
LISTschutz durch ASCII-Codes von Steuerzeichen 

Es gibt nicht nurfur die druckendenZeichen,sondernaueh 
fur die Steuerzeichen ASCII-Codes. In Bild 8 konnen Sie 
noch einmal nachsehen, wenn Sie Ihr Wissen auffrischen 
wolfen. 

Wir werden besonders wirkungsvolle Steuercodes in 
REM-Zeilen einbauen, da sie dort keinen Schaden anrichten 



(Texte nach REM werden nicht ausgefuhrt). Das Prinzip ist 
klar: Bei der Eingabe einer REM-Zeile werden zunachst Kom- 
mentare eingegeben, die spater mit Steuercodes uber- 
schrieben werden. Beim LISTen der Zeile werden diese Steu- 
ercodes dann ausgefuhrt. 

In Bild 15 sehen Sie ein Memory Dump einer manipulierten 
Form von »Versuchskaninchen«. Bitte geben Sie einmal die- 
sesMemory Dump ein und lassen Sie dann den Basic-Befehl 
< LIST > ausf uhren, urn alle Effekte zu sehen. Warum dies so 
ist, konnen Sie sich mit Hilfe der Steuerzeichentabelle selbst 
erklaren. 

Die verwendeten Steuercodes haben nur Werte bis $7F. 
Codes ab $80 wurde der Computer als Token interpretieren 
und anstelle eines Steuerzeichens einen Basic-Befehl aus- 
geben. Dies umgeht man, indem man vor einem Steuerzei- 
chen, das groBer als $7F ist, foigende Bytes setzt: 

»22 14 0D« 

Pro REM-Zeiie sollte man diejs nur einmal machen. Dann 
sind alle Steuerzeichen eriaubt.'Die genaue Funktionsweise 
dieser drei Byte wollen wir hier nicht ausbreiten, nur soviel: 
Der Computer wird dazu-gebracnt, jedes Zeichen, daB dieser 
Sequenz folgt, auszugeben, ohne es vorher zu decodieren. 

Als Bild 1 6 f inden Sie eine Version von Versuchskaninchen, 
in der dieser Trick angewendet wurde. AuBerdem wird von 
den ESC-Sequenzen (siehe Handbuch) Gebrauch gemacht. 

Wir sind nun am Ende des Kurses angelangt. Wir hoffen, es 
hat ihnen SpaB gemacht, Ihren Computer an einigen Stellen 
zu durchschauen und »auszutricksen«. 

In Bild 17 sehen Sie noch eine Tabeiie mit alien Befehlen 
des TEDMON. DerC 128enthaltubrigensimGegensatzzum 
C 64 auch einen eingebauten Maschinensprache-Monitor. 
Die Befehie fast aller Monitore sind von der Syntax fast iden- 
tisch, so daB keine Probleme mit anderen Produkten auftre- 
ten durftenl 

Sicherlich werden Sie noch Zeit brauchen, bis Sie mit dem 
Monitor so„selbstverstandlich wie mit Basic umgehen kon- 
nen, aber dann sind Sie bereits so weit, daB Sie mit Maschi- 
nensprache beginnen konnen. 

(F. Muller/ks) 
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Doteiverwnltung mit 
dem C 16 in Maschinensprache 



Um Ihre Basic-Programme zu beschleunigen, 
sind unterstiitzende Maschinenroutinen sehr 
hilfreich. Am Beispiel »Dateiverwaltung« zeigen 
wir Ihnen, wie man so etwas macht. 

Dieser Artike! behandelt die Datenein- und -ausgabe in 
Maschinensprache mit Milfe der im Betriebssystem des 
C16 vorhandenen Routinen. Eine dieser Routinen 
kennt wohl jeder Assemblerprogrammierer: Die Routine 
BSOUT ($FFD2), die haufig zur Ausgabe von Zeichen auf 
dem Bildschirm verwendet wird. Eine weitere bekannte Rou- 
tine ist GETIN ($FFE4), die ein Zeichen von der Tastatur ein- 
liest. 

Wenn Sie sich in ihren Assemblerprogrammen auf Tastatur 
und Bildschirm als Peripheriegerate beschranken, genugen 
Ihnen die genannten Routinen. Soliten Sie jedoch beabsichti- 
gen, komplette Anwenderprogramme in Assembler zu 
schreiben, zum Beispiel eine Dateiverwattung oder Textver- 
arbeitung, mussen Sie zuvor folgende Probieme losen: 

1. Wie kann ich Daten statt auf den Bildschirm an beliebige 
Peripheriegerate senden oder von diesen einlesen? 

2. Wie erkenne ich bei Disketten- oder Datasettendateien 
das Dateiende, das in Basic mit der Statusvariablen STabge- 
fragt werden kann? 

3. Woran erkenne ich, ob wahrend der Datenubertragung 
Fehler auftraten? 

Dieser Artikel wird - hoffentlich - aile derartigen Fragen 
beantworten. Zuvor will ich jedoch noch klaren, warum es 
vorteilhaft ist, eine Dateiverwaltung in Maschinensprache zu 
programmieren, selbst wenn Sie vieileicht nie ein kompiettes 
Anwenderprogramm in Maschinensprache schreiben wer- 
den. 

Die meisten groBeren Programme fur den C 1 6 werden Sie 
wahrscheinlich in Basic schreiben, daesauBerordentlich auf- 
wendig - und fehierbehaftet - ist, ein groBeres Programm 
vollstandig in Maschinensprache zu erstellen. Am haufigsten 
wird Maschinensprache fur kleinere Unterprogramme ver- 
wendet, um zeitkritische Basic-Programmteile zu ersetzen. 
Paradebeispiel fur dieses Einsatzgebiet sind Sortierroutinen, 
die - in Basic programmiert - bei groBen Datenmengen oft- 
mals recht einschiafemd sein konnen. 

Ein weiteres Einsatzgebiet sind Assembierroutinen, die 
Mangel des eingebauten Basic-interpreters beheben solien, 
zum Beispiel eigene INPUT-Routinen. 

Vieie nutzliche Assembierroutinen konnen jedoch nur dann 
erstellt werden, wenn Sie die Datenein- und ausgabe auf der 
Maschinenspracheebene beherrschen. Vorstellbar ware 
zum Beispiel ein sogenannter Drucker-Spooler, ein Assem- 
blerprogramm, das in den Systeminterrupt eingebunden ist, 
der jede sechzigstei Sekunde erfoigt. Bei jedem Interrupt 
wird ein Zeichen des auszudruckenden Programmlistings 
Oder Textes an den Drucker geschickt. Wahrend der Text 
durch diese »im Hintergrund laufende« Interruptroutine aus- 
gedruckt wird, konnen Sie ungehindert mit ihrem C 1 6 arbei- 
ten, zum Beispiel ein Basic- Programm ablaufen lassen oder 
editieren. 

Ein weiteres Beispiel ware eine INPUT #-Routine, die einen 
String von Kassette oder Diskette einliest. Wozu, werden Sie 
sich fragen, da doch das C16-Basic den Befehl INPUT # 



bereits besitzt? Nun, jeder der sich bereits intensiver mit 
Dateiverwaltung beschaftigt hat, weiB, daB INPUT # den Pro- 
grammierern des Basic-interpreters gewiB keinen Ruhm ein- 
brachte. Dieser Befehl arbeitet ebenso katastrophal wie der 
Befehl INPUT: Soil ein String eingelesen werden, der ianger 
ist als 80 Zeichen ist, erscheint die Fehlermeldung »String 
too long error«. Enthalt der String ein Komma oder ein Semi- 
kolon, geht das Einlesen schief, da beide Zeichen ebenso 
wie ein Return (chr$(13)) als Strinhendemarke aufgefaBt 

werden. 

Im fofgenden Artikel werde ich die wichtigsten Betriebssy- 
stemroutinen des C16/C11j6 zur Datenein- beziehungs- 
weise Datenausgabe vorsteHen. Bei der Besehreibung die- 
ser Routinen werden die Funktionen erlautert, was bei Ver- 
wendung der jeweiligen Routine zu beachten ist (Start- 
adresse; Ubergabeparameter), und welche Parameter - die 
vor aliem zur Erkennung eventuell aufgetretener Fehler die- 
nen - nach dem Aufruf der Routinen zuriickubergeben wer- 
den. 

Alle Beispielprogramme konnen problemlos mit dem Moni- 
tor des C 1 6 eingegeben werden. Sowohl der Aufruf als auch 
die Startadressen der verwendeten Betriebssystemroutinen 
sind ohne jede Anderung auch auf den C 64 und den C 1 28 
Qbertragbar, im Gegensatz zu den im letzten Teil des Artikels 
erlauterten Routinen des Basic-Interpreters, deren Ein- 
sprungadressen - und teilweise auch' deren Funktion - leider 
von Computer zu Computer unterschiedlich ist. 

Den AbschluB dieses Kapitels bildet die Programmierung 
einer INPUT #-Routine, die Sie in all Ihren Programmen als 
Ersatz fur den ziemtich mangelhaften Basic-Befehl INPUT # 
einsetzen konnen, und die in der Lage ist, Strings bis zu einer 
Maximallange von 255 Zeichen einzulesen, wobei der String 
im Gegensatz zum INPUT # des Basic-Interpreters beliebige 
Zeichen enthalten kann. 

Offnen einer Datei 



Sie alle kennen den Basic-Befehl OPEN, mit dem eine Datei 
fur Lese- oder Schreibzugriffe geoffnet werden kann. Erst 
nach dem Offnen einer Datei kann die eigentliche Datenein- 
oder -ausgabe mit PRINT # oder INPUT # erfolgen. Die Pro- 
grammierung auf der Maschinenspracheebene verlauft ana- 
log. Zuerst muB eine Datei geoffnet werden, wobei die glei- 
chen Dateiparameter angegeben werden wie im OPEN- 
Befehl, dessen genaue Syntax bekanntlich lautet: 

OPEN (LF), (GA), (SA), "DATEINAME, TYP, MODUS" 
LF = Logische Filenummer 
GA = Gerateadresse 
SA = Sekundaradresse 

Dieser fur die Dateibehandlung grundlegende Basic- 
Befehl kann leider nur mit groBem Aufwand in die entspre- 
chenden Maschinenbefehle umgesetzt werden. Soliten Sie 
annehmen, daB hierzu der Aufruf einer einzigen Betriebssy- 
stemroutine ausreicht, muB ich Sie leider enttauschen. Im 
Betriebssystem existiert zwar eine Routine mit dem Namen 
OPEN. Bevor diese Routine aufgerufen werden kann, mus- 
sen zuvor zwei Vorbereitungsroutinen aufgerufen werden, 
mit denen die benotigten Dateiparameter ubergeben wer- 
den. 
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Mit der zuerst aufzurufenden Routine SETFLS ($FFBA) 
werden die Parameter logische Filenummer, Gerateadresse 
und Sekundaradresse ubergeben. AnschlieBend wird die 
Routine SETNAM ($FFBD) aufgerufen, die fur die Ubergabe 
des Dateinamens zustandig ist (inklusive der Zusatze Typ und 
Modus). Erst nach dieser Vorbereitung kann die OPEN- 
Routine ($FFCO) aufgerufen werden. 
SETFLS ($FFBA): Fileparameter setzen 

Der erste Schritt zum Offnen einer Datei - gieich ob zum 
Lesen Oder Schreiben von Daten - ist die Ubergabe der Para- 
meter logische Filenummer, Gerateadresse und Sekundar- 
adresse mit der Routine SETFLS. 

Afs logische Filenummer kann eine beliebige Zahl zwi- 
schen 1 und 255 angegeben werden. 

Die Gerateadresse liegt ublicherweise zwischen Null und 
Acht(0=Tastatur; 1 = Datasette; 3 = Bildschirm; 4 = Drucker; 
8 — Floppy). In den folgendenProgrammbeispielen werde ich 
immer (!) die Gerateadresse. Eins verwenden, da die Data- 
sette wohl das am haufigsten ih Verbindung mit dem C 1 6 ver- 
wendete Peripheriegerat ist. 

Die Bedeutung der Sekundaradresse ist je nach verwende- 
tem Peripheriegerat vollig unterschiedlich. Soil eine Disket- 
tendatei geoffnet werden, kann eine beliebige Sekundar- 
adresse zwischen 2 und 14 angegeben werden. 

Bei Druckern bestimmt die angegebene Sekundaradresse 
haufig den Druckmodus, ob zum Beispiel im Gro3-/Grafik- 
oderim Klein-/Gro6modusgedruckt werden soil. Mitwelcher 
Sekundaradresse welcher Druckmodus angesprochen wird, 
ist von Drucker zu Drucker untej-schiedlich und muB daher im 
zugehorigen DruckerhandbudVnachgelesen werden. 

Beim Offnen einer Datasetten datei kann eine Sekundar- 
adresse zwischen Null und Zwei angegeben werden. Null 
bedeutet, daB anschlieBend Daten vom Band gelesen wer- 
den sollen, 1 geben Sie an, wenn Schreibzugriffe erfolgen 
sollen. Die Angabe einer 2 bedeutet ebenfalls, daB anschlie- 
Bend Schreibzugriffe erfolgen. Zusatzlich wird eine soge- 
nannte »EOT«-Markierung auf das Band geschrieben, eine 
Markierung, die angibt, daB sich die Datei am Bandende 
befindet und keine weitere Datei folgt. Sinn und Zweck dieser 
Markierung blieb mir personlich jedoch etwas schleierhaft, 
da ich sie in meinen Programmen noch nie benotigt habe. 
Auch in den folgenden Beispielprogrammen werde ich daher 
ausschlieBlich die Sekundaradressen Null und Eins verwen- 
den. 

Sie wissen nun, welche Parameter der Routine SETFLS 
ubergeben werden mussen, nicht jedoch wie. Alle drei Para- 
meter werden mit Hilfe der Prozessorregister ubergeben: 
Akku = logische Filenummer (1 bis 255) 

X-Register = Gerateadresse (0, 1, 3, 4 Oder 8) 
Y-Register = Sekundaradresse (Datasette: und 1; 
Floppy: 2 bis 14) 
Wenn wir zum Beispiel Daten in eine Datasettendatei 
schreiben wollen, ubergeben wir der Routine SETFLS fol- 
gende Parameter: 

LDA #$01 ; LOGISCHE FILENUMMER 1 
LDX #$01 5 GERATEADRESSE 1 = DATASETTE 

LDY #$01 ; SEKUNDARADRESSE 1 = DATEN AUF BAND 

SCHREIBEN 
JSR $FFBA ; SETFLS AUFRUFEN 

Wenn wir Daten vom Band lesen woilen, genugt es, den 
Befehl LDY #$01 abzuandern in LDY #$00. 
SETNAM <$FFBD): Dateinamen (+Zusatze) ubergeben 

Der Dateiname darf aus maximal 16 Zeichen bestehen. 
Unter »Zusatz« sind die Angaben »Typ« und »Modus« zu ver- 
stehen. Beide Angaben werden nur bei Diskettendateien 
benotigt, um zum Beispiel mit dem Befehl 
OPEN 2,8,2, "TEST, S,W" 
die sequentielle Datei »test« zum Schreiben zu offnen. 



Typ = S (Sequentielle Datei), R (Relative Datei), 

P (Programmdatei) oder U (Userdatei). 
Modus = R (»Read«= Daten lesen), W (»Write«= Daten 
schreiben) oder A (»Append«= Daten an 
bestehende Datei anhangen) 

Die Angabe des Dateityps wird bei Datasettendateien nicht 
benotigt, da die Datasette nur eine einzige Form der Datenda- 
tei kennt, den sequentiellen Typ. 

Die Angabe der Zugriffsart, des Modus, ist bei Verwendung 
der Datasette ebenfalls Oberflussig, da diese Angabe bereits 
beim Aufruf von SETFLS erfolgte (Sekundaradresse bis 2). 
Da wir im folgenden nur mit der Datasette arbeiten werden, 
konnen wir uns auf die Angabe des Dateinamens beschran- 
ken. 

Bei Verwendung der Datasette muB ubrigens nicht unbe- 
dingtein Dateiname angegeben werden. Die angelegte Datei 
erhalt dann naturlich keinen Namen. In den folgenden Bei- 
spielen werde ich dennoch imnjier Dateinamen verwenden. 
Sollten Sie jemals von der Datasette auf eine Floppy umstei- 
gen, bleibt Ihnen dadurch die Umgewohnung an Dateinamen 
erspart. 

Die Parameter fiir SETNAM werden teilweise ebenfalls mit 
Hilfe der Prozessorregister ubergeben. Zusatzlich muB 
jedoch in einem beliebigen Speicherbereich, im Programm 
selbst, in der Zeropage, oder an einem beliebigen anderen 
Ort der Dateiname in ASCII-Form abgelegt sein. Wenn Sie die 
RS232-Schnittstel!e nicht benutzen (um zum Beispiel ein 
Modem zu betreiben), bietet sich der Bereich $03F7 bis 
$0436 (dezimal: 1015 bis 1078) an, der ausschlieBlich von 
dieser Schnittstelle verwendet wird. Wenn der Dateiname in 
diesem Bereich abgelegt wurde, wird der Akku mit der Lange 
des Namens geladen. Das X- beziehungsweise Y-Register 
enthalt einen Zeiger auf die Adresse, an der sich der Name 
befindet (X-Register = Low-Byte der Adresse; Y-Register= 
High-Byte): 

LDA #$04. ; LANGE DES NAMENS: 4 ZEICHEN 

LDX #$F7 ; LOW-BYTE DER ADRESSE $03 F7 

LDY #$03 ; HIGH-BYTE DER ADRESSE $03 F7 

JSR $FFBD ; SETNAM AUFRUFEN 

Diese Routine ist nur dann lauffahig, wenn zuvor ein Datei- 
name mit einer Lange von vier Zeichen in ASCII-Form ab 
$03F7 abgelegt wurde. 
OPEN ($FFC0): Datei offnen 

Nach diesen langwierigen Vorbereitungen kann endlich die 
OPEN-Routine des Betriebssystems aufgerufen werden. Der : 
Aufruf mit JSR $FFC0 genugt, daausnahmsweise keine wei- 
teren Parameter ubergeben werden mussen. Die iogische 
Datei wird nun geoffnet. Dabei ist es jedoch moglich, daB ein 
Fehler auftritt, zum Beispiel wenn auf Band geschrieben wer- 
den soil und die Datasette noch im Schrank liegt. In diesem 
Fall tritt ein »device not present error« auf. 

Wenn Sie wirklich professionell programmieren wollen, 
durfen Sie eventuell auftretende Fehler selbstverstandiich 
nicht einfach ignorieren, sondern benotigen eine soge- 
nannte »Fehlerbehandlungsroutine«, zu der Ihr Programm in 
einem solchen Fall verzweigt (zum Beispiel, um den Benutzer 
aufzufordem, endlich die Floppy einzuschalten oder eine 
Diskette einzulegen). Ubrigens: Da ich nicht von mir 
behaupte, professionell zu programmieren, habe ich es mir 
erlaubt, in der noch vorzustellenden INPUT #-Routine auf 
eine solche Fehlerbehandlung zu verzichten. Sollten Sie 
weniger bequem veranlagt sein, durfen Sie das Programm 
jedoch gem entsprechend erweitem (und mir naturlich die 
erweiterte Version zuschicken). 

Ob beim Offnen einer Datei ein Fehler autrat, erkennen Sie 
am Carry-Fiag. Bei fehlerfreiem Offnen der Datei ist es nacl, 
der Ruckkehraus der OPEN-Routine geloscht. Tratein Fehler 
auf, ist das Carry- Flag gesetzt und im Akku wird die Nummer 
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des Fehlers ubergeben. Bei gesetztem Carry-Flag sollte Ihr 
Programm daher zu einer Fehierbehandlungsroutine ver- 
zweigen: 

JSR $FFC0 J OPEN AUFRUFEN 

BCS $???? ;ADRESSE DER FEHLERBEHANDLUNGSROUTINE 

Die Fehlernummem haben folgende Bedeutung: 

= STOP-Taste gedruckt 

1 = too many files 

2 — file open 

3 = file not open 

4 = file not found 

5 = device not present 

6 = not input file 
7= not output file 

8 = missing filename 

9 = illegal device number 

Die Fehler 3, 6 und 7 sind beim Offnen einer Datei bedeu- 
tungslos. Sie konnen nur nach Lese- Oder Schreibversuchen 
auftreten. Ein Fehler wie zum Beispiel »missing filename« ist 
dagegen geratespezifisch. Bei Vervyendung der Datasette 
mussen Sie nicht unbedingt einen ; Dateinamen angeben, 
daher kann auch dieser Fehler nicht auftreten. 
CHKIN ($FFC6) und CKOUT ($FFC9): Ein-/Ausgaben 
umleiten 

Ich habe behauptet, daB das Maschinensprache- 
aquivalent zum Basic-Befehl OPEN die Routinen SETFLS, 
SETNAM und der anschlieBende Aufruf der OPEN-Routine 
sei. Leider mussen wir noch zwei weitere Routinen bespre- 
chen, bevor wir zur eigentlichen Datenein- beziehungsweise 
-ausgabe kommen, die Routinen CHKIN und CKOUT. 

Wie Sie wissen, ist die Tastatur beim C 1 6 das Standardein- 
gabegerat und der Bildschirm das Standardausgabegerat. 
Urn nach dem Offnen einer Datei in diese Daten zu schreiben 
oder Daten daraus zu lesen, mu3 die Ein- beziehungsweise 
Ausgabe auf die geoffnete logische Datei umgelenkt werden, 
da sonst die Standardgerate angesprochen werden. 

Das Umlenken der Eingabe von der Tastatur auf die mit der 
OPEN-Routine geoffnete Datei erfolgt mit der Routine 
CHKIN, der im X-Register die beim Aufruf von SETFLS ver- 
wendete logische Filenummer ubergeben wird, zum Beispiel 
die 1: 

LDX #$01 ; LOGISCHE FILENUMMER 

JSR $FFC6 ; AUFRUF VON CHKIN 

Urn in eine geoffnete Datei Daten zu schreiben, muB die 
Ausgabe vom Standardgerat Bildschirm zuvor auf die geoff- 
nete logische Datei umgeleitet werden. Der zustandigen 
Routine CKOUT wird ebenfallsjm X-Register die verwendete 
logische Filenummer ubergeben: 
LDX #$01 ; LOGISCHE FILENUMMER 

JSR $FFC9 ; AUFRUF VON CKOUT 

Beide Routinen zeigen auftretende Fehler ebenso wie die 
OPEN-Routine durch ein gesetztes Carry-Flag an. Trat ein 



Fehler auf, wird die Fehlernummer ebenfalls im Akku uberge- 
ben. 
Demoprogramm 1: Datei in Maschinensprache offnen 

Wir sind nun endlich soweit, das theoretisch erworbene 
Wissen in ein Programm umzusetzen. Mit den besprochenen 
Routinen konnen wir ein Demonstrationsprogramm schrei- 
ben, das in Maschinensprache eine logische Datei zum 
Schreiben von Daten auf Band offnet. Als Dateinamen ver- 
wenden wir »test«, als logische Filenummer eine Eins. Da 
eine Datasettendatei zum Schreiben geoffnet werden soil, 
mussen wir die Gerateadresse Eins (— Datasette) und die 
Sekundaradresse Eins (-Schreiben) verwenden. 

Zum Schreiben der Daten verwenden wir ein kfeines Basic- 
Programm, das zusatzlich die Aufgabe ubernehmen soil, den 
Dateinamen »test« in ASCII-Form in den RS232-Puffer zu 
POKEn, bevor es unsere »Dateioffnungsroutine« aufruft und 
anschlieBend Daten in die - durch die Maschinenroutine 
geoffnete - Datei schreibt: .j 

100 REM *** DATEN SCHREIBEN *** ! 
110 DN$= "TEST": REM DATEINAME 
120 FOR 1=1 TO LEN(DN$) 
130 : POKE 1014+1, ASC(MID$(DN$, 1,1)) 
140 NEXT 

150 SYS 1630: REM MAS CHI NENROUT. AUFRUFEN 
160 PRINT #1, "DIES IST" 
170 PRINT #1, "EIN TEST" 
180 CLOSE 1 
190 : 
200 : 

210 REM *** DATEN LESEN *** 
220 PRINT "BAND BITTE ZURUECKSPULEN " 
230 PRINT "DANACH 'RETURN' DRUECKEN" 
240 GET A$:IF A$<>CHR$(13) THEN 240 
250 SCNCLR: 
260 : 

270 OPEN 1,1,0, "TEST": REM DATEI 0EFFNEN 
280 INPUT #1,A*$: PRINT A$ 
290 INPUT #1,B$: PRINT B$ 
300 CLOSE 1 

Die Maschinenroutine geben Sie bitte mit dem im C 1 6 inte- 
grierten Monitor ab $065E (dezimal 1630) ein: 



065e LDA #$01 

0660 LDX #$01 

0662 LDY #$01 

0664 JSR $FFBA 

0667 LDA #$04 

0669 LDX #$F7 
066b LDY #$03 
066d JSR $FFBD 

0670 JSR $FFC0 



LOGISCHE FILENUMMER 1 
GERAETEADRESSE 1 = DATASETTE 
SEKUNDAERADRESSE 1 = 
DATEN SCHREIBEN 
SETFLS AUFRUFEN 
LAENGE DES NAMENS: 4 ZEICHEN 
LOW-BYTE DER ADRESSE $03 F7 
HIGH-BYTE DER ADRESSE $03 f 7 
SETNAM AUFRUFEN 
OPEN AUFRUFEN 



Tabelle der verwendeten Betriebssystem- und Interpreterroutinen 



Name 


Funktion 


Parameter hin 


Parameter zuruck 


Adresse 


SETFLS 

SETNAM 

OPEN 

CHKIN 

CKOUT 

READST 

BASIN 

BSOUT 

CHKKOM 

GETBYT 

STRPOS 

STRRES 


Fileparameter setzen 
Dateiname iibertragen 
Log. Datei offnen 
Eingabe von Log. Datei 
Ausgabe auf Log. Datei 
l/O-Status abfragen 
Zeichen einlesen 
Zeichen ausgeben 
Komma lesen 
Ein-Byte-Wert lesen 
Variablenadresse holen 
Stringpiatz reservieren 


AKKU=LF;X=GA;Y=SA 
AKKU=Lange; X/Y= Point, auf Name 
Vorbereitung: SETFLS, SETNAM 
X=Log. Filenummer 
X=Log. Filenummer 

Zeichen im AKKU 
AKKU=Stringlange 


Fehler: SEC, Fehlernr, im AKKU 
Fehler: SEC, Fehiernr. im AKKU 
Fehler: SEC, Fehlernr. im AKKU 
Status im AKKU (BIT 6 = Dateiende) 
Zeichen im AKKU 

X=iibergebenesByte 
$47/$48=Point. auf Langendescr. 


$FFBA 
SFFBD 
$FFC0 
$FFC6 
$FFC9 
$FFB7 
$FFCF 
$FFD2 
$9491 
$9D84 
$96A5 
$A906 



tf&J? 



SONDERHEFT 8/86 



81 



GRUNDLAGEN 



C16,C116, Plus/4 



0673 LDX #$01 
0675 JSR $FFC9 
0678 RTS 



; LOGISCHE FILENUMMER 
; AUFRUF VON CKOUT 
;ZURUECK ZUM BASIC 



Das Maschinenprogramm besteht im Grunde nur aus einer 
Zusammenfassung der bereits beschriebenen Teile, das 
heiBt aus dem Aufruf von SETFLS, SETNAM, OPEN und 
CKOUT. Beachten Sie bitte, daB eventuell auftretende Fehler 
ignoriert werden (Carry-Rag nach OPEN und CKOUT abfra- 
gen). 

Geben Sie dieses Programm bitte mitdem Monitor ein (las- 
sen Sie dieKom men tare jedoch weg und versuchen Sie 
nicht, die einzelnen Programmteiie wie abgebildet durch 
Leerzeilen optisch zu uhterteilen!), geben Sie anschlieBend 
das BasioProgramm ein und starten Sie es mit 
RUN 

Zum Prog ram mablauf: fn den Zeilen 11 bis 1 40 werden mit 
einer Schieife die ASCII-Codes',der einzelnen Zeichen des 
Dateinamens »test« nach 1015 bis 1018 gePOKEt. Anschlie- 
Bend wird unsere Maschinenroutine aufgerufen, die eine 
Datasettendatei fur Schreibzugriffe mit der logischen File- 
nummer 1 offnet (Zeile 150). Unter Angabe dieser Filenum- 
mer schreibt das Basic -Programm nun zwei Strings in die 
Datei, bevor sie wieder geschlossen wird (Zeilen 160 bis 
180). 

Vor dem Wiedereinlesen der Daten fordert Sie das Basic- 
Programm auf, zum Dateianfang zuruckzuspulen und 
anschlieBend 

RETURN „ 

zu drucken. Nach RETURN wird die Warteschleife in Zeile 
240 verlassen und der Bildschirm geloscht, bevor die Datei 
»test«zum Lesen geoffnet wird (Zeilen 240 bis 270). Die bei- 
den Strings, werden eingelesen, auf dem Bildschirm ausge- 
geben und die Datei geschlossen. 

Wie Sie sehen, ist es zweifellos bequemer, einen Basic- 
Befehi zum Offnen einer Datei zu verwenden, als ein Maschi- 
nenprogramm, das an mehrere Routinen die verschieden- 
sten Parameter Qbergeben muB, urn die gleiche Funktion 
zu erfullen. Die im Laufe dieses Kapitels vorgestellte 
IN PUT #- Routine entschadigt Sie jedoch fur diesen Auf- 
wand. In Basic konnte diese Routine nur mit einerti kleinen 
Unterprogramm unter Verwendung von GET# erstellt wer- 
den und ware weitaus langsamer ais die entsprechende 
Maschinenroutine. (Versuchen Sie einmal, 20 Strings mit 
einer Lange von jeweils 100 Zeichen mit GET# nach und 
nach einzulesen. Sie werden staunen, wie langsam Ihre Data- 
sette plotzlich wird.) 
BSOUT ($FFD2): Datenausgabe auf logische Datei 

Wir konnen nun zwar in Maschinensprache belie bige 
Dateien offnen, bisher jedoch weder Daten ausgeben noch 
einlesen. Sie alle wissen sicherlich, da6 mit der Routine 
BSOUT Daten auf dem Bildschirm ausgegeben werden kon- 
nen. BSOUT gibt ein im Akku ubergebenes Zeichen (ASCII- 
Code!) auf dem Bildschirm aus, und zwar an der aktuellen 
Cursorposition. 

BSOUT ist jedoch keineswegs eine speziell zur Ausgabe 
auf dem Bildschirm gedachte Routine, sondern erfullt die . 
weitaus allgemeinere Funktion, Daten in eine beliebige logi- 
sche Datei zu schreiben. Diese Datei ist normalerweise der 
Bildschirm, wir konnen mit BSOUT jedoch auch Zeichen in 
eine Datasetten-, Disketten- oder Druckerdatei schreiben. 

Die benotigten Vorbereitungsroutinen kennen wir bereits. 
Zuerst wird eine logische Datei geoffnet, anschlieBend die 
Datenausgabe mit CKOUT auf diese Datei umgeleitet. Wenn 
nun BSOUT aufgerufen wird, werden die im Akku ubergebe- 
nen Zeichen dank der Umleifung nicht auf dem Bildschirm 
ausgegeben, sondern in die angegebene Datei geschrieben. 
; DATASETTENDATEI ZUM 
; SCHREIBEN 0EFFNEN 



;EINGABE AUF DIE DATEI LEGEN 
LDA #$4l 5 ASCII-CODE VON »A« 
JSR $FFD2 ; »A« IN DIE DATEI SCHREIBEN 



BASIN <$FFCF): Dateneingabe von logischer Datei 

BASIN erfullt die entgegengesetzte Funktion, das Einlesen 
von Daten aus einer beliebigen logischen Datei. Wenn die 
Zeichen nicht vom Standardgerat Tastatur gelesen werden 
soilen, muB ebenfalls eine logische Datei zum Lesen geoffnet 
und die Eingabe mit CHKIN auf diese Datei umgelenkt wer- 
den. Nun kann mit BAS|N Zeichen fur Zeichen aus dieser 
Datei gelesen werden. Die eingelesenen Zeichen werden im 
Akku Qbergeben. 

; DATASETTENDATEI ZUM 

; LESEN 0EFFNEN 

; EINGABE AUF DIEJDATEI LEGEN 
JSR $FFCF ;EIN ZEICHEN AUS DER DATEI LESEN 
STA $xxxl ; ZEICHEN SPEICHERN 
JSR $FFCF ; NAECHSTES. ZEICHEN LESEN 
STA $xxx2 ; EBENFALLS' SPEICHERN 



CLRCH ($FFCC): Standardein-/-ausgabegerate setzen 

Nach beendeter Ein- beziehungsweise Ausgabe von Daten 
sollte die Routine CLRCH aufgerufen werden, die die Ein- 
gabe wieder auf das Standardgerat Tastatur und die Ausgabe 
auf den Bildschirm umleitet. Es werden keinerlei Vorberei- 
tungsroutinen oder Obergabeparameter benotigt 

; LOGISCHE DATEI 0EFFNEN 

;EIN- ODER AUSGABE UMLENKEN 

; DATEN LESEN ODER SCHREIBEN 
JSR $FFCC ; STANDARDEIN-/-AUSGABEGERAETE SETZEN 

; (TASTATUR/BILDSCHIRM) 



CLOSE ($FFC3): Logische Datei schlieften 

CLRCH feitet weitere Ein- oder Ausgaben zwar wieder auf 
die Tastatur beziehungsweise den Bildschirm urn, die zuvor 
geoffnete logische Datei wird jedoch nicht automatisch 
geschlossen! Zum AbschluBjederSchreib- oder Leseroutine 
sollte daher die Routine CLOSE aufgerufen werden, die die 
angegebene logische Datei schlieBt, wobei die Fiienummer 
im Akku Qbergeben werden muB. 

DATEI MIT LOGISCHER FILENUMMER 1 OEFFNEN 

EIN-/AUSGABE UMLEITEN 
.DATEN LESEN ODER SCHREIBEN 
JSR $FFCC ; EIN-/AUSGABE AUF STANDARDGERAETE 
LDA #$01 ; LOGISCHE FILENUMMER 
JSR $FFC3 J LOGISCHE DATEI SCHLIESSEN 



READST (SFFB7): Status abfragen 

Ein Problem mussen wir noch losen, bevor wir ausschlieB- 
lich in Maschinensprache Dateiverwaltung betreiben kon- 
nen, und zwar die Abfrage des Dateiendes. Das Einlesen 
einer Datei muB beendet werden, wenn das Dateiende 
erreicht wurde. In Basic konnen wir dazu die Statusvariable 
ST abfragen, die den Wert 64 annimmt, wenn das Dateiende 
erreicht wurde. 

In Maschinensprache verwenden wir die Routine READST, 
die die gleiche Funktion erfullt {der Basic-Interpreter verwen- 
det diese Routine selbst, urn der Variablen ST den jeweiligen 
Status mitzuteilen). 

Nach dem Aufruf von READST wird der aktuelle Status im 
Akku Qbergeben. Bei Erreichen des Dateiendes wird Bit 6 
gesetzt (da dieses Bit den dezimalen Wert 64 besitzt, wird 
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die Analogie zur Basic-Variablen ST deutlich). 



LABEL JSR $FFCF ; DATEN LESEN 

JSR $FFB7 ;READST AUFRUFEN 

AND #$40 ;ALLEBITSAUSSERBIT6 

AUSMASKIEREN 
BEQ LABEL ;WEITERLESEN, WENN NICHT DATEIENDE 



. 065b 


a9 FF 




Ida *SFF 




. OBSO 


BO 06 


aS 


jsr SaSl06 




. 0BB3 


20 91 


94 


jsr S9491 




. 0S6B 


50 84 


9d 


jsr $9dB4 




. 0669 


20 C6 


FF 


jsr SFFc6 




. 066c 


aO 00 




"Idy #500 




. 066b 


20 cf 


FF 


jsr SFFcF 




. 0671 


c9 Od 




cmp #$0d 




. 0673 


FO 05 




baq S067a 




. 0675 


91 33 




st a C$33), 


y 


. 0677 


cB 




iny 




. 0676 


dO F4 




brrfa $066e 




. 067a 


S4 dO 




sty SdO 




. 067c 


20 CC 


FF 


jsr SFFcc 




. 067f 


a5 34 




Ida S34 




. 06B1 


85 d2 




sta Sd2 




. 06B3 


a9 FF 




Ida #SFF * 


. 06B5 


38 




SBC 




. 0686 


a5 dO 




sbc SdO 




. OBBB 


IB 




clc 




. 0689 


65 33 




adc S33 




. OBBb 


B5 dl 




sta Sdl 




, OBBd 


90 02 




bcc $0691 




. 06Bf 


s6 dH 




inc $dS 




. 0691 


a4 dO 




ldy SdO 




. 0693 


B8 




day 




. 0694 


bl 33 




Ida C$33), 


y 


. 0696 


91 dl 




sta CSdl), 


y 


. 069B 


BB 




day 




. 0B99 


cO FF 




cpy #SFF 




. 069b 


dO F7 




brtB 20694 




. 069d 


20 91 


94 


jsr $9491 




. 06a0 


20 aS 


96 


jsr $96a5 




. 06a3 


aO 02 




ldy- #$02 




. 06a5 


bl 47 




Ida C$473 


y 


. 06a7 


93 d3 


00 


sta $00d3 


y 


. 06aa 


BB 




day 




. OBab 


10 FB 




bpl $06aS 




. 06ad 


a5 d3 




Ida Sd3 




. 06af 


FO 08 




baq $06b9 




. 06bl 


aB 




tay 




. 05b2 


91 d4 




sta C$d4) 


y 


. 06b4 


cB 




i"U 




. 06b5 


a9 FF 




Ida tfSFF 




. 06b7 


91 d4 




Sta C$d4) 


y 


. 0Sb9 


a4 dO 




ldy $dO 




. 06bb 


a5 47 




Ida $47 




. QSbd 


91 dl 




sta C$dl3 


y 


. OBbf 


c8 




iny 




, OScO 


a5 4B 




Ida $4B 




. 06c2 


91 dl 




sta C$dl) 


u 


. 06c4 


aO 00 




ldy #$00 




. 06c6 


aS dO 




Ida $dO 




. OBcB 


31 47 




sta C$47) 


,y 


, 06ca 


cB 




iny 




. 06cb 


a5 dl 




Ida $dl 




. 06cd 


91 47 




sta C$47) 


,y 


. 06cf 


B5 33 




sta $33 




. 06dl 


cB 




iny 




. 06de 


a5 d2 




Ida $d2 




. 06d4 


31 47 




sta C$47) 


.y 


. 06d6 


B5 34 




sta $34 




. 06dB 


60 




rts 





Listing 1. 

»lnput-Routine« 
in Maschinensprache. 
Bitte mit dem 
eingebauten Monitor 
eingeben. 



Demoprogramm 2: Daten in 
Maschinensprache schreiben und lesen 



Die Zeiten, in denen wir uns zum Schreiben und Lesen von 
Daten mit Basic behelfen muGten, sind nun endgultig vorbei. 
In diesem zweiten Programmbeispiel werden wir die Strings 
»DIES IST« und »EIN TEST« in Maschinensprache auf Band 
schreiben und wieder lesen. 

Aus reiner Bequemlichkeit wird zusatziich ein kleines 
Basic^Programm verwendet, das den Dateinamen >TEST« ab 
1015 und die zu schreibenden Strings ab 1019 in den 
Speicher POKEt, die Routine zum Schreiben der Strings 
aufruft, danach die Meldung »ZURUECKSPULEN...«ausgibt, 
auf die Taste RETURN wartet und zuletzt die Leseroutine 
aufruft, die beide Strings aus der Datei einliest und auf dem 
Bildschirm ausgibt , 

100 REM *** STRINGS VORBEREITEN f* ** 
110 FOR 1=1 TO 4: POKE 1014+1, ASC(MID$( "TEST ",I,1)) 

:NEXT 
120 A$="DIES IST"+CHR$(13.) + "EIN TEST "+CHR$ ( 13 ) 

+CHR$(0) 
130 FOR 1=1 TO LEN(A$):P0KE 1018+1, ASC 
(MID$(A$, 1,1)): NEXT 

140 : 

150 REM *** STRINGS SCHREIBEN/LESEN *** 

160 SYS 1630: REM STRINGS SCHREIBEN 

170 PRINT "ZURUECKSPULEN + 'RETURN' DRUECKEN" 

180 GET A$:IF A$OCHR$(l3) THEN 180 

190 SYS 1678: REM STRINGS LESEN/AUSGEBEN 

Beachten Sie bitte, daB bei der zeichenweisen Ausgabe mit 
BSOUT im Gegensatz zur Basic-Ausgabe mit PRINT # nicht 
automatisch nach jedem String das Zeichen CHR$(13) (Car- 
riage Return Oder auch Zeilenvorschub) auf das Band 
geschrieben wird. Die Basic-Routine fugt dieses Zeichen 
daher an das Ende beider Zeichenketten an (Zeile 120). Als 
letztes Zeichen wird ein CHR$(0) als Endemarke angehangt, 
an dem unsere Maschinen routine das Ende des auszuge- 
benden Strings erkennen soil. 
Teil 1: Daten schreiben 



065e LDA #$01 
0660 LDX #$01 
0662 LDY #$01 
0664 JSR $ffBA 

0667 LDA #$04 

0669 LDX #$f7 
066b LDY #$03 
066d JSR $FFBD 

0670 JSR $FFC0 
0673 LDX #$01 
0675 JSR $FFC9 

0678 LDX #$00 
067A IDA $03FB,X 
-067D BEQ $0685 
067f JSR $FFD2 

0682 INX 

0683 BNE $067A 

0685 JSR $FFCC 
0688 LDA #$01 
068a JSR $FFC3 
068d RTS 



LOG IS CHE FILENUMMER 
GERAETEADRESSE 
SEKUNDAERADRESSE (l=WRITE) 
SETLFS AUFRUFEN 

LAENGE DES DATEINAMENS 
LOW-BYTE ADRESSE DATEINAME 
HIGH-BYTE ADRESSE DATEINAME 
SETNAM AUFRUFEN 

OPEN AUFRUFEN 
LOGISCHE FILENUMMER 
CKOUT AUFRUFEN 

ZEIGER INITIALISIEREN 
ERSTES ZEICHEN HOLEN 
FERTIG, WENN ENDEMARKE 
ZEICHEN IN DATEI SCHREIBEN 
ZEIGER AUF NAECHSTES ZEICHEN 
ZUM SCHLEIFENANFANG (IMMER!) 

STANDARDGERAETE SETZEN 
LOGISCHE FILENUMMER 
LOGISCHE DATEI SCHLIESSEN 
RUECKKEHR ZUM BASIC 



Teil 2: Daten lesen/ausgeben 

. 068e LDA #$01 ; LOGISCHE FILENUMMER 
..0690 LDX #$01 ; GERAETEADRESSE 
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0692 LDY #$00 
0694 JSR $FFBA 

0697 LDA #$04 
0699 LDX #$F7 
069b LDY #$03 
069D JSR $FFBD 

06A0 JSR $FFC0 
06A3 LDX #$01 
06A5 JSR $FFC6 

06A8 JSR $FFCF 
06AB JSR $FFD2 
06AE JSR $FFB7 
06B1 AND # $40 
06B3 BEQ $06A8 



jSEKUNDAERADRESSE (0=READ) 
;SETLFS AUFRUFEN 

jLAENGE DES DATEINAMENS 
5 LOW-BYTE ADRESSE DATEINAME 
; HIGH-BYTE ADRESSE DATEINAME 
;SETNAM AUFRUFEN 

jOPEN AUFRUFEN 
;L0GISCHE FILENUMMER 
;CHKIN AUFRUFEN 

j BASIN AUFRUFEN 

; ZEICHEN AUSGEBEN 

; RE ADST" AUFRUFEN 

;ALLE AUSSER BIT 6 AUSMASKIEREN 

;WEITER, WENN NICHT DATEIENDE 



. 06B5 JSR $FFCC j STANDARDGERAETE SETZEN 
. 06B8 LDA # -$01 ;LOGISCHE FILENUMMER 
. 06BA JSR $FFC3 ;LOGISCHE DATEI SCHLIESSEN 
. 06BD RTS ;RUECKKEHR ZUM BASIC 

Dieses Programm durfte gut verstandiich sein, da es unter 
Verzichtauf Programm kurze in alter Ausfuhrlichkeit program- 
miert wurda Mit dem Offnen und SchlieGen der Dateien im 
ersten und zweiten Prograrrfmteil sollten Sie nun vertraut 
sein. 

Wichtig an diesem Programm ist, daB im ersten Teil Zeichen 
fur Zeichen in die Datei geschrjeben werden, bis das nachste 
Zeichen eine Null ist, jene Endemarke, die das Basic- 
Programm am Ende des Strings in den Speicher POKEte. 

Beim Lesen der Zeichen konnte ebenfalte eine solche 
Endemarke ben utzt werden, urn das Dateiendefestzustellen. 
Statt dessen wird die erlauterte Routine READST verwendet. 
Zeichen fur Zeichen werden aus der Datei gelesen und auf 
dem Biidschirm ausgegeben, wobei nach jedem Lesevor- 
gang READST aufgerufen und das sechste Bit des im Akku 
ubergebenen Status-Bytes uberpruft wird (AND #$40). Ist 
dieses Bit gesetzt, wurde das Dateiende erreicht und das 
Programm kehrt zum Basic zuruck (zuvor werden noch 
CLRCH und CLOSE aufgerufen). 

Die Inferpreterroutinen 
CHKK0M, GETBYT, STRPOS und STRRES 



Wie ich es Ihnen versprochen habe, wili ich im letzten Teil die- 
ses Artikels unserefrisch erworbenen Kentnisse dazu benut- 
zen, eine verbesserte Version der INPUT #-Routine vorzu- 
stellen. 

Vorher muB Ich jedoch kurz auf verschiedene Routinen des 
Basic- Interpreters eingehen, die fur unsere Routine unbe- 
dingt benotigt werden. Da der Aufruf dem normalen 
INPUT #-Befeh! entsprechen soil (INPUT#(logische File- 
nummer), (Ubergabestring)), muB unser Programm in der 
Lage sein, die Filenummer aus dem Basic-Text zu lesen und 
auf den angegebenen String zuzugreifen, in dem die eingele- 
senen Daten gespeichert werden solfen. 

Unsere Routine wird im RAM-Bereich $065E bis $06EB 
(dezimal 1630 bis 1771) liegen und wie folgt aufgerufen: 
SYS 1630,(L0GISCHE FILENUMMER) , (UBERGABESTRING) 
zum Beispiel: 
SYS 1630,1, a$ 
oder 
SYS 1630,2,X$(7) 

Da die einzelnen Parameter durch Kommata getrennt sind, 
benotigen wirzuerst eine Routine, die in der Lage ist, Komma- 
tasaus dem Basic-Programm einzulesen. Diese Routine wird 
CHKKOM ($9491) genannt. Der Basic-Interpreter fuhrtstan- 



10 DATA A9, FF, 20, 06, A9 , 20, 91, 94,20,84 
20 DATA 9D,20,C6,FF,A0,00,20,CF,FF,C9 
30 DATA 0D,F0,05,91,33,CB,D0,F4,84,D0 
40 DATA 20,CC,FF,A5,34,B5,D2,A9,FF,3B 
50 DATA E5, 00,18,65, 33, 85, D 1,90, 02, E6 
60 DATA D2,A4,D0,88,Bl,33,9i,Dl,88,C0 
70 DATA FF,D0,F7.,20,91,94,20,A5,96,A0 
80 DATA 02,B1,47,99,D3,00,BS,10,F8,A5 
90 DATA D3,F0,08,A8,91,D4,C8,A9,FF,91 
100 DATA D4,A4,D0,A5,47,91,D1,C8,A5,48 
110 DATA 91,D1,A0,00,A5,D0,91,47,C8,A5 
120 DATA D1,91,47,85,33,C8,A5,D2,91,47 
130 DATA B5,34,60 
140 FORI =1630TO1 752 
150 RE ADA* 
160 A=DEC(A*> 
170 S=S+A , 

180 POKE I, A j 

190 NEXT 

200 IFS< >177B7THENPRINT"FEHLER ! " : END 
210 PR INT "OK. V 

READY. 



Listing 2. DATA-Lader zur »lnput-Routine« 

dig einen Zeiger auf die momentan bearbeitete Textstelle mit 
sich. Nach dem SYS-Aufruf weist dieser Zeiger auf das erste 
Zeichen hinter der angegebenen Adresse, das heiBt auf das 
Komma. 

Der Aufruf von CHKKOM liest dieses Zeichen ein, setzt 
den »Textpointer« auf das nachste Zeichen im Basic- 
Programm und uberpruft, ob tatsachlich ein Komma gelesen 
wurde. Wenn ja, endet CHKKOM mit einem RTS-Befehl, 
sonst wird^ein »Syntax error in ...« ausgegeben. 

Wenn mit CHKKOM das erste Trennzeichen eingelesen 
wurde, muB anschfieBend die angegebene Filenummer von 
unserem Programm gelesen werden. Die Routine GETBYT 
($9D84) liest einen beliebigen Ein-Byte-Wert aus dem Basic- 
Text und ubergibt ihn im X-Register. Der Wert muB ubrigens 
nicht direkt als Zahl angegeben werden, da GETBYT auch 
Variable verarbeitet, so daB zum Beispiei folgender Aufruf 
moglich ist: 
LF=1:SYS 1630,LF,A$ 

Bevor wir an die eigentliche Programmerstellung gehen 
konnen, muB ein weiteres Problem gelost werden: Wo spei- 
chern wir die eingeiesenen Zeichen? In weicher Form sollen 
die eingeiesenen Daten im Speicher abgelegt werden? Am 
komfortabelsten ist die Benutzung unserer Routine, wenn sie 
die eingeiesenen Zeichen als String anlegt, auf den das auf- 
rufende Basic-Programm direkt zugreifen kann. Der Name 
des Ubergabestrings soilte ebenso wie beim INPUT#-Befehl 
beim Aufruf angegeben werden konnen. 

Ein Standardprobtem bei der Verbindung von Basic und 
Maschinenroutinen ist der Zugriff auf Basic-Strings von 
Maschinensprache aus, das Lesen Oder gar Anlegen von 
Strings. Beides ermoglicht uns die Routine STRPOS 
($96A5). Diese Routine liest den beim Aufruf angegebenen 
Stringnamen aus dem Basic-Text und ubergibt in $47 und 
$48 einen Pointer auf die sogenannten»Stringdescriptoren«. 

Wie Sie vielleicht wissen, werden Strings vom Ende des 
verfugbaren Speichers aus abwarts angeiegt und befinden 
sich im Gegensatz zu numerischen Variabien nicht direkt in 
der sogenannten »Variabientabeile«, die im Speicher immer 
unmittelbar dem Basic-Programm folgt. In der Variablenta- 
beile befinden sich jedoch alle Daten, die zum Zugriff auf den 
eigentlichen String notwendig sind, der Stringname, die 
Stringlange und die Adresse, an der sich der String sefbst 
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befindet (Name: 2 Byte; Lange: 1 Byte; Adresse: 2 Byte in 
der Form Low/High). 

STRPOS ubergibt einen Zeiger auf diese Descriptoren des 
angegebenen Strings (und zwar nicht auf das erste 
Descriptoren-Byte (das erste Namens-Byte), sondern auf 
das Langen-Byte) und legt ihn an, wenn er bisher noch nicht 
existiert. Wenn der Aufruf zum Beispiel lautet: 
SYS 1630, A$( 7) 

und unsere Routine zuerst CHKKOM und anschlie!3end 
STRPOS aufruft, erhatten wir in $47 und $48 einen Pointer, 
der auf den Langendescriptor des Strings A$(7) zeigt. 

Die letzte benotigte Routine heiBt STRRES ($ A906). Diese 
Routine reserviert Speicherplatz fur den anzulegenden 
String. Ein Beispiel: Wir woilen einen String mit einer Lange 
von 10 Zeichen anlegen. Zuerst muB'der Akku mit der String- 
lange geladen werden, anschlieBend wird STRRES aufgeru- 
fen: 

IDA #$0A ; STRINGLAENGE: 10 ZEICHEN 
JSR $A906 ; AUFRUF VON STRRES 

In $33 und $34 befindet sich ein Pointenauf den Anfang 
des sogenannten »Stringstacks«, das heiBt auf das erste Zei- 
chen d es zuletzt angelegten Strings. Nach 'dem Aufruf von 
STRRES mit der Stringlange Zehn im Akku wird dieser Pointer 
urn den Wert Zehn (+2, wie wir noch sehen werden!) ernie- 
drigt. Der dazukommende String kann nun v'or (I) dem zuletzt 
angelegten gespeichert werden (denken Sie bitte daran, daB 
die Strings vom Speicherende ausgehend abwarts (!) ange- 
legt werden). 

Bevor STRRES den Pointer auf den Anfang der Strings urn 
die ubergebene Stringlange ( + 2) vermindert, wird jedoch 
uberpruft, ob uberhaupt ausreichend Piatz vorhanden ist, 
oder ob der nach unten wachsende Stringstack mit dem 
Basic-Programm kollidieren und dieses uberschreiben 
wurde. Wenn nicht ausreichend Platz vorhanden ist, wird eine 
Garbage Collection durchgef uhrt, das heiBt nicht mehr bend- 
tigter Stringmull beseitigt. 1st auch anschlieBend noch nicht 
ausreichend Platz fur den anzulegenden String vorhanden, 
gibt STRRES die Fehlermeldung »out of memory error« aus. 
Endlich: Die INPUT #-Routine 

Nun konnen wir uns endlich an die eigentliche Programmie- 
rung wagen. Im Gegensatz zu.den bisher verwendeten Moni- 
torlistings werde ich die Entwicklung der INPUT #-Routine 
anhand von Assemblerlistingsdemonstrieren, da die Routine 
dochetwaskomplexeralsdie bisherigen Programmbeispiele 
ist und Assemblerlistings einfacher zu durchschauen sind. 
Da Sie jedoch kaum uber einen Assembler .fur den C 16 ver- 
fugen, finden Sie am Ende dieses Artikeis wieder das 
gewohnte Monitoriisting, das Sie problemlos mit dem inte- 
grierten Monitor eingeben konnen. 

;* INPUT # FUER C16/C116 * 
j* (C) SAID BALOUI, 1986 * 

.BA $065E ;PROGRAMMSTART 

.OS ;0BJECTC0DE GENERIEREN 



LENGTH 

POINTR 

DESCR 

DESPOI 

CHKKOM 

GETBYT 

CHKIN 

CLRCH 

BASIN 

STREND 

STRPOS 

STRRES 



.DE $D0 
.DE $D1 
.DE $D3 
.DE $47 
.DE $9491 
.DE $9D84 
.DE $FFC6 
.DE $FFCC 
.DE $FFCF 
.DE $33 
.DE $96A5 
.DE $A906 



STRINGLAENGE 
HILFSPOINTER 
STRINGDESCRIPTOREN 
POINTER AUF DESCRIPTOREN 
KOMMA EINLESEN 
BYTEWERT LESEN 
INPUT AUF LOGISCHE DATEI 
STANDARDGERAETE SETZEN 
ZEICHEN AUS LOG. DATEI LESEN 
POINTER AUF STRINGSTACK 
STRINGVARIABLE LESEN 
STRINGPLATZ RESERVIEREN 



*** PLATZ RESERVIEREN *** 

LDA #255 5 255 BYTE 

JSR STRRES ; RESERVIEREN 
Diese beiden Befehle reservieren Platz fur den einzulesen- 
den String mit einer Maximallange von 255 Zeichen. Dank 
der Verwendung von STRRES wird sich das Programm kei- 
nesfalls »aufhangen«. Sollte das Basic-Programm, in dem Sie 
die INPUT #-Routine verwenden, zu umfangreich und daher 
nicht ausreichend Platz vorhanden sein, wird es sich mit »out 
of memory error« verabschieden. 
*** STRING EINLESEN *** 

; LOGISCHE FILENUMMER 
iEINLESEN (X-REGISTER) 
lEINGABE AUF LOGISCHE DATEI 



INPUT 



LIESEND 



JSR CHKKOM 
JSR GETBYT 
JSR CHKIN 
LDI #0 
JSR BASIN 
CMP #13 
BEQ LIESEND 
ST A ( STREND ),Y 
INY 

BNE INPUT 
STY LENGTH 
JSR CLRCH 



LESEN BIS >> RETURN << 
UND AB 'BTREND/STREND+1 
IM STRINGSTACK ABLEGEN 

fUNBEDINGTER SPRUNG (!) 
; STRINGLAENGE MERKEN 

; STANDARDGERAETE SETZEN 



Der Programmteil zum Einlesen des Strings liest zuerst das 
als Trennzeichen verwendete Komma und die angegebene 
Filenummer aus dem Basic-Text ein. GETBYT ubergibt wie 
erwahnt die Filenummer im X-Register, in dem sich die File- 
nummer auch beim Aufruf von CHKIN befinden muB, so daB 
diese Routine ohne weitere Vorbereitung aufgerufen und die 
Eingabe auf die gedffnete Datei umgelenkt werden kann. 

INPUT verbesserf 



Das Y-Register wird nun mit Null initialisiert und Zeichen fur 
Zeichen aus der Datei eingelesen und ab dem neuen Anfang 
des Stringstacks gespeichert, bis das Zeichen RETURN 
gelesen wird, das das Stringende kennzeichnet. Die in Y ent- 
haltene Stringlange wird in LENGTH zur spateren Verwen- 
dung zwischengespeichert. Durch Aufruf von CLRCH wer- 
den wieder die Standardgerate (Tastatur, Bildschirm) 
gesetzt. 

*** POINTER AUF STRINGANFANG *** 
LDA STREND+1 ;P0INTR(+1)= 

5ECHTER STRINGANFANG, 
;D.H. MOMENTANER 
; ANFANG (STREND) 
;+ DIE DIFFERENZ 
;ZWISCHEN DER 
;RESERVIERTEN LAENGE 
;255 ZEICHEN UND 
;DER TATS AECHLI CHEN 
; LAENGE DES STRINGS 



STA POINTR+1 

LDA #255 

SEC 

SBC LENGTH 

CLC 

ADC STREND 

STA POINTR 

BCC NOINC 

INC POINTR+1 



Die eingelesenen Zeichen wurden ab der Adresse gespei- 
chert, auf die STREND weist. STREND weist durch die String- 
reservierung 255 Zeichen (4-2) vor den Beginn des nach- 
sten Strings im Stringstack. Urn die unglaubliche Platzver- 
schwendung zu vermeiden, wenn zwar 255 Zeichen reser- 
viert wurden, der eingelesene String tatsachlich jedoch zum 
Beispiel nur 20 oder 30 Zeichen lang ist, wird nach beende- 
tem Einlesen der String nach oben verschoben, urn den Leer- 
raum zwischen dem eingelesenen und dem nachsten String 
im Stringstack wiederzugewinnen. Dazu wird zuerst anhand 
der tatsachlichen Stringlange LENGTH und der daraus resul- 
tierenden Differenz zum reservierten Speicherplatz ein Poin- 
ter POINTR errechnet, der auf die korrekte Adresse weist, an 
die der String verschoben werden muB. 



assta? 
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;*** STRING VERSCHIEBEN *** 

NOINC LDY LENGTH j STRING VON: 

DEY ; STREND BIS STREND+LENGTH 

COPY LDA ( STREND), Y ;NACH: 

STA (POINTR),Y jPOINTR BIS POINTR+LENGTH 

DEY ;KOPIEREN 

CPY #255 

BNE COPY 

Das zeichenweise Kopieren des Strings diirfte problemlos 
zu verstehen sein. Der String befindet sich an der korrekten 
Adresse und unsere Routine ware beendet, doch leider kann 
das Basic- Programm noch nicht auf den angeiegten String 
zugreifen. Zuvor mussen noch mehrere Pointer korrigiert 
werden. 

;*** STRINGDESCRIPTOREN HOLEN *** 

JSR CHKKOM 

JSR STRPOS 

LDY #2 
DESGOPY LDA ( DESPOT. ),Y 

STA DESCR, Y 

DEY 

BPL DESCOPY 



POINTER AUF DIE 
DESCRIPTOREN DES '■ 
BEIM AUFRUF ANGEGEBENEN 
STRINGS HOLEN ($4'7 UND $48) 
UND DIE DESCRIPTOREN 
(LAENGE/ADRESSE (.LOW/HIGH) ) 
NACH DESCR BIS JDESCR+2 

Mit CHKKOM wird das der Filenummer folgende Komma 
gelesen und STRPOS ubergibt in DESPOI ($47 und $48) 
einen Pointer auf den beim Aufruf angegebenen String. Die 
Descriptoren dieses Strings werden in einer Schleife nach 
DESCR (Lange), DESCR+1 (Adresse Low) und DESCR+2 
(Adresse high) kopiert. *> 

;*** RUECKPOINTER BEHANDELN *** 



LDA DESCR 

BEQ ANLEG 

TAY 

STA (DESCR+1) ,Y 

INY 

LDA #$FF 

STA ( DESCR+1), Y 
') 
ANLEG LDY LENGTH 



;WENN ALTER STRING 

EXISTIERT 

;(DAS HEISST WENN LAENGE 

<>0), 

;WIRD ER UNGUELTIG GEMACHT 

; (RUECKPOINTER=LAENGE, 

; RUECKP0INTER+1=$FF) 



; RUECKPOINTER/RUECKPOINTER 

+1 

;WIRD DIE ADRESSE 

;DES LAENGENDESCRIPTORS 

;ZUGEWIESEN 



LDA DESPOI ' 

STA (POINTR),Y 

INY 

LDA DESPOI+1 

STA (POINTR),Y" 

Diesen Programmteil konnen Sie nicht verstehen, ohne zu 
wissen, daB der Basic-Interpreter des C16 am Ende jedes 
Strings einen Pointer anlegt, der auf den zugehorigen String- 
descriptor, genauer: auf den Langendescriptor des Strings, 
»zuruckweist«. Das heiBt, daB nicht nur ein Pointer in der 
Variablentabelle (die beiden Bytes des Adresse n descriptors) 
auf den String im Stringstack weist, sondern ein weiterer 
Pointer von diesem String auf die Descriptoren dieses Strings 
zuruckweist. Dieser zusatzliche Pointer hat nur fur die Gar- 
bage Collection eine Bedeutung, die dadurch erheblich 
beschleunigt wird. 

Entscheidend fur uns ist jedoch, daB unsere Routine auBer 
dem eigentlichen String ebenfalls diesen »Ruckdescriptor« 
aniegen muB. Platz dafur ist am Stringende vorhanden, da 
STRRES den Pointer STREND nicht nur urn die angegebene 
Stringlange vermindert, sondern - wie bereits von mir ange- 
deutet wurde - urn zusatzliche zwei Byte fur den ebenfalls 
anzulegenden Ruckdescriptor. 

Die Routine »Ruckpointer behandeln« pruft zuerst, ob 
bereits ein String unter dem angegebenen Namen existierte, 
das heiBt ob der Langendescriptor nicht gleich Null ist. Ist 



dies der Fall, muB der alte String ungultig gemacht werden, 
da der Basic-Interpreter sonst bei der nachsten Garbage Col- 
lection durcheinanderkommt, weil das Low-Byte des Ruck- 
pointers die alte Stringlange und das High-Byte den Wert $FF 
als Kennzeichen fur einen ungultigen String enthalt. 

AnschlieBend enthalt der neu anzulegende Ruckpointer 
die Adresse der zugehorigen Descriptoren. Er muB auf den 
Langendescriptor weisen. 

;*** DESCRIPTOREN/STREND BEHANDELN *** 



LDY #0 

LDA LENGTH 

STA (DESPOI), Y 

INY 

LDA POINTR 

STA ( DESPOI ),Y 

STA STREND 

INY 

LDA P0INTR+1 

STA ( DESPOI ),Y 

STA STREND+1 

RTS 



DESCRIPTOREN AKTUALISIEREN 
(LAENGENDESCRIPTOR MIT DER 
STRINGLAENGE UND ADRESSEN- 
DESCRIPTOREN MIT DER STRING- 
ADRESSE VERSEHEN 
AUSSERDEM STREND/STREND+1 
ENTSPRECHEND DER GEAENDERTEN 
;STRINGAlj)RESSE KORRIGIEREN 



jZURUECK ZUM BASIC 



Dem Langendescriptor des Strings wird nun die Lange 
LENGTH und den beiden Adressendescriptoren (Low/High) 
die geanderte Startadresse POINTR/POINTR+1 zugewie- 
sen. Da der von den reservierten 255 Zeichen unbenutzte 
Bereich durch das Verschieben des Strings wieder freigege- 
ben wurde, muB naturlich auch STREND/STREND + 1 ent- 
sprechend derendgultigen Stringadresse korrigiert werden. 

Aile Pointer und Descriptoren sind nun vollig korrekt 
gesetzt und das Basic-Programm kann auf den angeiegten 
String zugreifen, wie das folgende Demoprogramm zeigt: 

100 REM *** STRING ERZEUGEN *** 

110 X$= "123456789," 

120 FOR 1=1 TO 25:Y$=Y$+X$:NEXT 

130 Y$=Y$+ "12345" 

140 : 

150 REM *** STRING SCHREIBEN *** 

160 OPEN 1,1,1, "TEST" 

170 PRINT#2,Y$ 

180 CLOSE 2 

190 : 

200 REM *** STRING LESEN *** 

210 OPEN 1,1,0, "TEST" 

220 SYS 1630, 1,A$ 

230 CLOSE 2 

240 PRINT A$ 

Dieses Demoprogramm schreibt einen String mit einer 
Maximaliange von 255 Zeichen inkiusive dem mit INPUT # 
keinesfalls einlesbaren Zeichen »,« auf Band und liest inn mit 
der vorgestellten Routine in der vollen Lange mit Kommata 
wieder ein, was fur den INPUT#-Befehl vollig unmogiich 
ware. Das Basic-Programm kann auf den eingelesenen String 
wie auf jeden anderen String mit PRINT A$ zugreifen. 

Wir sind nun am Ende dieses Artikels angelangt. Nachfol- 
gend finden Sie das Monitorlisting (Listing 1) der Routine, den 
entsprechenden Datalader (Listing 2) und eine Tabelle, in der 
aile verwendeten Routinen des Betriebssystems und des 
Basic-Interpreters aufgefuhrt sind. 

Verzeihen Sie mir bitte, daB die Erlauterungen der Routinen 
zum Aniegen des Strings, zur Behandlung der Descriptoren 
und des Ruckdescriptors ziemlich knapp ausfielen, aber der 
Schwerpunkt dieses Artikels war nun einmal nicht der Basic- 
Interpreter des C 16 und dessen Variablenbehandlung, son- 
dern es sollte gezeigt werden, wie Sie auch in Maschinen- 
sprache Daten an beliebige Peripheriegeraten senden Oder 
von diesen empfangen konnen. (S. Baloui/ah) 
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Wuhlereien 
im Betriebssystem 



Fur alle Assembler-Programmierer zeigt der fol- 
gende Artikel die Verwendung der wichtigsten 
ROM-Routihen im C16. 

Bevor wir anfangen konnen, mtisserr wir noch ein paar 
Dinge klaren. i 

1 ) Dieser Artikel geht davon aus, daB Sie Maschinenspra- 
chekenntnisse haben. 

2) Die vorgestellten Listings werden mi't dem integrierten 
Monitor TEDMON eingegeben. Sie beginnen im Speicher bei 
$1001, dem Anfang des Basic-Speichers. Damit unsere Pro- 
gramme dort einigermaBen sicher sind, geben Sie bitte im 
Monitor folgende Befehle ein: 

>002B 01 11 (setzt Basic-Start; 'herauf) 
>1100 00 

3) Die Programme werden. von Basic aus gestartet: 
SYS DEC ("1001") 

Kernel-Einspriinge 

Ab $FF81 stehen im Speicher dfe sogenannten Kernel- 
Einsprunge. Diese sind in der Wirkung bei alien Commodore- 
Computern gleich, was ein eventueli anfallendes Umschrei- 
ben (zum Beispiei auf den C 64 oder den Plus/4) erleichtert. 
Wir besprechen hier in Kurzform die wichtigsten; einige 
davon kennen Sie schon aus besagtem Artikel im 
C16-Sonderheft 3, 1986. 
ViRES ($FF81) 

»VIRES« initialisiert den Video-Chip und den Bildschirm- 
Editor. Diese Routine wird einfach uber »JSR $FF81« aufge- 
rufen und benotigt keinerlei Parameter. 
IORES ($FF84) 

»IORES« initialisiert die Ein-/Ausgabe-Bausteine des C 16. 
Auch hier sind keine Parameter notwendig. 
STMSG ($FF90) 

Mit dieser Routine konnen Sie die Ausgabe von System- 
meldungen (Fehlermeldungen etc.) teilweise oder ganz 
unterdrucken. 

Fehlermeldungen sind Meldungen wie »l/0 ERROR #«, 
Systemmeldungen sind »LOADlNG« und so weiter. Entschei- 
dend ist der Inhait des Akkus vor dem Aufruf von »STMSG«: 



Akku 



Fehlermeldungen? Systemmeldungen? 



$00 


ja 


ja 


$40 


nem 


ja 


$80 


ja 


nem 


$C0 


nem 


nem 



So kann man also alle Meldungen ausschalten: 
LDA #$C0 
JSR $FF90 
SETLFS <$FFBA) 

Diese Routine muB man vor »OPEN«, »LOAD« oder »SAVE« 
zur Angabe der Fileparameter aufrufen. Sie wurde bereits im 
Sonderheft 3, 1986 vorgestellt. 
SETNAM ($FFBD) 

Es gilt das gleiche wie fur »SETLFS«. 
OPEN ($FFC0) 

Diese Routine dient dem Offnen cines Files, das vorher 
durch »SETLFS« und »SETNAM« (wie vor »LOAD«) bestimmt 
wurde. In den Registern Ubergibt man keine Parameter. 



CLOSE ($FFC3) 

Gegenstuck zu »OPEN«. Damit schlieBt man ein File wie- 
der. Im Akku muB beim Aufruf die logische Filenummer 
stehen. 
CHKIN ($FFC6) 

Mit dieser Routine kann man alle Eingaben von »BASIN« 
oder »GETIN« statt von der Tastatur von einem vorher geoff- 
neten File erfolgen lassen. Im X-Register ubergibt man der 
»CHKiN«-Routine die logische Filentjimmer dieses neuen 
Eingabe- Files. 
CKOUT ($FFC9) 

Wie »CHKfN«, nur daB das Ausgabegerat fur »BSOUT« 
gesetzt wird. im X-Register ubergibt man die Filenummer der 
Ausgabedatei. 
CLRCH ($FFCC) 

Wenn »CHKIN« oder »CKOUT«verwendet wurde, kann man 
uber »CLRCH« wieder die normalen Ein-/Ausgabegerate 
(Eingabe: Tastatur; Ausgabe: Bildschirm) einstellen lassen. 
BASIN ($FFCF) 

Wurde schon im Sonderheft 3, 1 986 vorgestellt. Es erfolgt 
die Eingabe uber Tastatur oder dem uber »CHKIN«angewahl- 
ten Gerat. 
BSOUT ($FFD2) 

Wurde auch schon vorgestellt. Ein Zeichen, das im Akku 
ubergeben wird, wird auf dem Bildschirm oder dem uber 
»CKOUT« eingestellten Gerat ausgegeben. Listing 1 und 2 
zeigen Beispiele*mit den Ausgabe- Routinen. 
LOAD ($FFD5) 

Auch nichts Neues. Zu dieser Load-Routine soil an dieser 
Stelle aber noch ein Hinweis gegeben werden. 

Wenn man ein Basic-Programm laden will, muB man: 

a) dessen Endadresse dem Computer mitteilen und 

b) die Linkpointer (siehe Artikel »Durchblick mit dem Monitor* 
in diesem Heft) neu berechnen lassen. 

Urn beides zu bewerkstelligen, laBt man dem Aufruf der 



. 1001 


20 E7 


FF 


JSR 


$FFE7 


. 1004 


A9 01 




LDA 


a$oi 


. 1006 


A2 04 




LDX 


#$04 


. 1008 


A0 00 




LDY 


#$00 


. 100 A 


20 BA 


FF 


JSR 


$FFBA 


. 100D 


A9 00 




LDA 


#$00 


. 100F 


20. BD 


FF 


JSR 


$FFBD 


. 1012 


20, CO 


FF 


JSR 


$FFC0 


■-. 1015 


A2"01 




LDX 


#$01 


. 1017 


20 C9 


FF 


JSR 


$FFC9 


. 101A 


A2 00 




LDX 


#$00 


. 101C 


BD 2F 


10 


LDA 


$102F,X 


. 101F 


20 D2 


FF 


JSR 


$FFD2 


. 1022 


E8 




INX 




. 1023 


EO 08 




CPX 


#$08 


. 1025 


DO F5 




BNE 


$101C 


. 1027 


2 CC 


FF 


JSR 


$FFCC 


. 102A 


A9 01 




LDA 


#$01 


. 102C 


4C C3 


FF 


JMP 


$FFC3 


>102F 44 52 55 43 4B 


4 5 52 OD :]«SlSa,Kas&iSH 


Listing 1. Beispieitext auf Drucker ausgeben 



(iJ^H* 



SONDERHEFT 8A86 



87 



GRUNDLAGEN 



C16, C116, Plus/4 



Load-Routine unmittelbar folgende Befehle folgen: 
STX $2D jLo-Byte der Endadresse setzen 
STY $2E j Hi-Byte der Endadresse setzen 
JSR $8818 ;Linkpo inter berechnen lassen 

Beim Laden von Maschinenprogrammen ist dies naturlich 
nicht erforderlich. 
SAVE($FFD8) 

Siehe Sonderheft 3, 1986. 
STOP ($FFE1) 

Mit »JSR $FFE1« fragt man die Stop-Taste ab. Wurde sie 
gedruckt, ist das Zero- Flag im Prozessor-Statusregister 
gesetzt, das heiBt ein BEQ-Befehl wurde ausgefiihrt werden. 
Das Programm in Listing 3 wartet, bis die Stop-Taste gedruckt 
wird. 
GETIN ($FFE4) 

Siehe Sonderheft 3, 1986. 
CLALL($FFE7) 

Diese Routine schlieBtalJe offenen Kanale. Oabei istjedoch 
zu beachten, da6 dies nicht wie bei »CLOSE«'geschieht. Die 
entsprechenden Gerate werden von »CLAL'L« nicht ange- 
sprochen, das heiBt die Kanale werden nur Innerhalb des 
Computers geschiossen, wahrend ein File auf Diskette/Kas- 
sette fur das entsprechende Gerat nach wie vor offenbleibt. 

Diese Routine kann man am Anfang^ines Programms ver- 
wenden, nicht aber als Ersatz fur. iCLOSE« ($FFC3) be- 
trachten. 
PLOT ($FFF0) 

Siehe Sonderheft 3, 1986. 

Die bisherige Aufzahlung sollte nur eine grobe Zusammen- 
fassung sein. Auf einige Routinen gehen wir nun naher ein. 

Eine Anwendung der Routinen »CLALL«, »SETPAR«, »SET- 
NAM«, »OPEN«, »CKOUT«, »BSOUT«, »CLRCH« und 
»CLOSE« ist Listing 1. Zunachst werden alle noeh offenen 
Kanale geschiossen ($1001). Dann werden 1 als Fiienum- 
mer, 4 (Drucker) als Geratenummer und als Sekundar- 
adresse gesetzt ($1004-$100A). Bet $100D/$100F wird 
dem Computer mitgeteilt, daB wir keinen Filenamen wollen 
(Lange des Filenamens = 0). 

Das File kann geoffnet ($1012) und die Ausgabe des Com- 
puters darauf umgeleitet werden ($1015/$1017). Eine kleine 
Schleife gibt den Text ab $102F uber »BSOUT« aus 
($101A-$1025). »CLRCH« ($1027) setzt wieder den Bild- 
schirm als Ausgabegerat. SchlieBlich wird das File geschios- 
sen ($102A/$102C) und das Programm beendet (»JMP 
$FFC3« entspricht »JSR $FFC3« und »RTS«). 

Wie die anderen Beispielprogramme,.wird Listing 1 mit SYS- 
DEC("1001") gestartet. 
Erleichterte Bildschirmausgabe 

Wie wir wissen, gibt »BSOUT« das im Akku ubermittelte Zei- 
chen auf das aktuelle Ausgabegerat aus; dieses ist der Bild- 
schirm, solange nicht uber »CKOUT« ein anderes Ausgabe- 
gerat gesetzt ist. Will man gleichzeitig Texte aus dem Bild- 
schirm und das uber »CKOUT« eingesetzte Gerat ausgeben, 
hilft die Routine 
BSOUTSCREEN ($DC49) 

Diese Routine arbeitet wie »BSOUT«, aber die Ausgabe 
erfolgt hier in jedem Fall auf dem Bildschirm. 

Die Bildschirmausgabe kann auch noch durch weitere Rou- 
tinen erleichtert werden; 
CLEAR ($D88B) 

ist eine Abkurzung fur 
LDA #$93 ;$93 = 147 = Code fur »Clear Home«) 
JSR $FFD2 

und ist - wie »BSOUTSCREEN« - von »CKOUT« unabhangig 
HOME ($D89A) 

ist eine Abkurzung fur 
LDA #$13 ; $13 = 19 = Code fur »Home«) 
JSR $FFD2 
und ist wie »CLEAR« von »CKOUT« unabhangig. 



SETCR ($D83B) 

ist eine Abkurzung fur 
CLC 

JSR PLOT 

und setzt somit den Cursor an die in X und Y angegebene 
Position. 
GETCR($D849) 

ist eine Abkurzung fur 
SEC 
JSR PLOT 

und holt die Cursorposition nach X und Y. 

Diese neuen Routinen zur Bildschirmausgabe werden in 
Listing 2 angewendet, urn den Text »(C)64'ER« in die Mitte 
des Bildschirms zu schreiben. 

Ich mochte ausdriicklich darauf hinweisen, daB die Routi- 
nen »CLEAR«, »HOME«, »SETCR« und »GETCR« keine 
Standard-Vektoren sind und somit nur fur den C16 gelten. 

Jetzt haben Sie die wichtigsjten Betriebssystemroutinen 
kennengelernt. Nicht so bekanrit sind vier recht interessante 
Routinen desTEDMON. Diese Routinen kann man zur hexa- 
dezimalen Ausgabe von Zahlen verwenden. 
PUTHEX ($FB10) 

Im Akku ubergeben wir einen Byte-Wert, der dann uber 
JSR $FB10 zweistellig hexadezimal ausgegeben wird. 



- 1001 


20 


8B 


08 JSR 


$D88B 


. 1004 


A2 


OA 


LDX 


#$0A 


. 1006 


AO 


OF 


LDY 


#$0F 


. 1008 


20 


3B 


D8 JSR 


$D83B 


. 100B 


A2 


00 


LDX 


#$00 


. 100D 


BD 


1C 


10 LDA 


$101C,X 


. 1010 


20 


49 


DC JSR 


$DC49 


. 1013 


E8 




I NX 




. 1014 


EO 


08 


CPX 


#$08 


* 1016 


DO 


F5 


BNE 


$100D 


. 1018 


20 


9A 


D8 JSR 


$D89A 


. 101B ' 


60 




RTS 




>101C 28 42 


2S 


36 34 


27 45 52 it&msg&smms% 




Listing 2 


. Bildschirmausgabe mit den 






neuen ROM-Routinen 



. 1001 


20 


El 


FF 


JSR 


$FFE1 


. 1004 


DO 


FB 




BNE 


$1001 


. 1006 


60 






RTS 




Listing 3. Abfragen 


der Run/Stop-Taste 



• 1001 


A9 


3 4 




LDA 


#$34 


• 1003 


A2 


12 




LDX 


#$12 


. 1005 


20 


FF 


FA 


JSR 


$FAFF 


. 1008 


A9 


AO 




LDA 


#$A0 


• 100A 


20 


05 


FB 


JSR 


$FB05 


• 100D 


A9 


Al 




LDA 


#$A1 


. 100F 


20 


10 


FB 


JSR 


$FB10 


. 1012 


A9 


2E 




LDA 


#$2E 


. 1014 


4C 


D2 


FF 


JMP 


$FFD2 


Listing 4. 


Bei spiel 


zur Anwendung der Routinen 




des TEDMON 
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Beispiel: 

—A #$D5 

:sr $FB10 

Auf dem Bildschirm erscheint »D5«. 

PUTHXS ($FB05) 

Diese Routine entspricht »PUTHEX«, ailerdings wird nach 
der Hex-Darstellung des Bytes noch ein Leerzeichen ausge- 
geben. 

MAKHEX ($FB20) 
Die Routinen »PUTHEX« und »PUTHXS« bedienen sich die- 

ser Routine. 

Im Akku Obergibt man »MAKHEX« den umzurechnenden 
Wert. Man erhalt dann im Akku den ASCIi-Gode der ersten 
Stelle der zweistelligen Hex-Zahl, im X-Register die zweite 
Stelie als ASCII-Code zuruck. 
Beispiel: 
IDA #$A5 
■JSR $FB20 , . 

Im Akku steht dann $41 (ASCII-Code von A), im X-Register 
$35 (ASCII-Code von 5). 

PUTWRD ($FAFF) 

Mit dieser Routine ist auch die Ausgabe von 2-Byte-Werten 
kein Problem. Im Akku wird das Low-Byte, im X-Register das 
High-Byte der Zahl, die viersteHig hexadezimal ausgegeben 
werden soli, ubergeben. 

Listing 4 wendet die aufgezeigten TEDMON-Routinen an. 

Der letzte ROfyl-Einsprung, mit £iem wir uns genauer 
beschaftigen wo'llen, ist 

RESET ($FFF9) 

»JMP $FFF9« hat die gleiche Wirkung wie das Drucken der 
Reset-Taste. Es erfolgt ein Sprung zum Reset-Vektor, 
wodurch der Einschaltzustand hergestellt wird. 

Die Tabelle in Bild 1 zeigt Ihnen noch einmal alie ROM- 
Routinen zusammengefa&t. Viei SpaB und vie! Erfolg bei 
deren Anwendung. (Florian Muller/ks) 



Adresse 


Label 


Funktion 


$8818 


LPUPDT 


LinkPointer aktualisieren 


$D83B 


SETCR 


Cursor setzen 


$D849 


GETCR 


Cursor holen 


$D88B 


CLEAR 


Bildschirm ioschen 


$D89A 


HOME 


Cursor in HOME-Position 


$DC49 


BSOUTSCREEN 


Zeichen auf Bildschirm ausgeben 


$FAFF 


PUTWRD 


2-Byte-Zahl hexadezimal ausgeben 


$FB05 


PUTHXS 


Bytewert hexadezimal mit Space ausgeben 


$FB10 


PUTHEX 


Bytewert hexadezimal zweistellig ausgeben 


$FB20 


MAKHEX 


ASCII-Code der Hex-Darstellung berechnen 


$FF81 


VIRES 


Video-Chip und Editor initialisieren 


$FF84 


IORES 


l/O-Bausteine initialisieren 


$FF90 


. STMSQ 


Flag fur System-/Fehlermeidungen setzen 


$FFBA 


SETLFS 


File- Parameter setzen 


$FFBD 


SETNAM 


File-Namen setzen 


$FFC0 


OPEN 


File offnen 


$FFC3 


CLOSE 


File schlieBen 


$FFC6 


CHKIN 


Eingabegerat setzen 


$FFC9 


CKOUT 


Ausgabegerat setzen 


$FFCC 


CLRCH 


Tastatureingabe und Bildschirmausgabe setzen 


$FFCF 


BASIN 


Zeichen von Eingabegerat holen 


$FFD2 


BSOUT 


Zeichen auf Ausgabegerat ausgeben 


$FFD5 


LOAD 


Programm laden 


$FFD8 


SAVE 


Programm speichern 


$FFE1 


STOP 


Stop-Taste abfrageri 


$FFE4 


GETIN 


Zeichen eingeben 


. $FFE7 


CLALL 


alie offenen Kanale schlieBen 


$FFF0 


PLOT 


Cursor setzen (C=0) oder holen (C=1) 


$FFF9 


RESET 


Software-Reset auslosen 



Fur den Preis lohnt sich kein Selbstbau! 



WKSis^mam 



erweiterung '^^ 

64K-Byfe auf einem Steckmodul daG nur in den Erweite- 
rungsporteingesteckt werden muG. Kein Loten oder sonsti- 
ge Arbeiten erforderlich. 

Die Erweiterung wird voll von Basic- und Maschinenpro- 
grammen unterslutzf. 

* NUTZLICHES ZUBEHOR: 



Joystickadapter ............. 11.50 



Anpassung fur jedes Joystick 

(oder Maus) an die Cl6-Sfeckemorm 

• JOYSTICKS: 



Quickshot I .................. 

Quickshot II 

Quickshot IX ............. 

(Microschalter) 



.......... 11.90 

.......... 16.90 

.......... 44.90 



^H^N 



Bild 1. Die Routinen und ihre Einsprunge. Die genaue Anwen- 
dung der Routinen entnehmen Sie bitte dem Artikel. 



(Microschalter) 

Rauchglas- ........ ....... 9.90 

abdeckhaube 

Formschone Abdeckung aus rauchfarbenem Plexiglas. 
Passend fur C 1 6/C20/C64. 

Datenrecorder ............... 39.50 

Kompatibel zur COMMODORE-Datasette. 
Direkt on C20/64/128 anschlieGbar. 
' An C16/1 16/+4 ober Cassettenporfadapter. 

Cassetten- 12.50 

portadapter 

AnschluSadapter fur COMMODORE-Datasette 
und Kompaiible an CI 6/1 16/+ 4. 

• DISKETTEN + ZUBEHOR: 



No-Name ID..... . 14.90 

10er Pack 5,25" 

No-Name 2D ........ 18.90 

lOer Pack 5,25" 

Diskettenbox.... ......19.90 

80-100 Disk, mit SchloS und Rauchglasdeckel 

Diskeftenlocher . 6.95 

(Kunststoff) 

Diskeftenlocher.... 9.90 

(Ganzmetail) 

Aufklebetaschen ............. 8.90 

SOger Pack fur DIR-Listings auf Disk-Hulle. 

• EPROMs: 



2764 250ns.... 6.90 

27128 250ns ...................... 8.00 

27256 250ns ................... 1490 

nur 1. Wahl von Markenherstellern! 

AchtungU Wir liefern das komplette Zubehor fur C64/ 
C128, Amiga, Schneider und Atari, sowie elektroni- 
sche Baufeile, Bitte fordern Sie unseren Katatog an!" 

Besuchen Sie unser Ladenlokal in Koln; 



Elektronik 



Maastrichter Str. 23 • 5000 Koln 1 f % 
@ 0221/51 70 81 - fi * 

Offnungszeiten: Mo. -fr, von 10- 18.30, $a.von10-14Uhr £ £ 
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Aus klein 
mach graft 

Fur Hardware-Freaks ist es relativ einfach, den 
Speicher des C16/116 auf 64 KByte aufzurusten. 
Hier die Bauanleitung dafiir. 

Es gibt drei Methoden, aus dem kleinen C 16/116 einen 
groBen zu machen: 

1 . Sie kaufen sich eine Speichererweiterung. Furzirka 130 
bis 200 Mark ist sie im Handel erhaltlich. Sie wird entweder 
in den Expansion- Port oder auf die Platine im Computer 
gesteckt. ' 

2. Die vorhandenen zwei Speicher-ICs (je 8 KByte) bleiben 
an ihren Platzen. Auf einer zusatzlichen Pfatine erweitern Sie 
den Speicher mit sechs weiteren Speicher-ICs, die ebenfalls 
je 8 KByte Speicherplatz haben. 

Beim C 1 1 6 wird dies krittsch, da das Gehause vol! ausge- 
nutzt ist. Der Verdrahtungsaufwand ist auch erheblich, denn 
alle AdreB- und Datenleitungen mussen an die Platine gelegt 
werden,. Aufief dem i wird das ohnehin schwache Netzteil star- 
ker beiastet. * 

3. Die beiden dynamischen^RAMs 4416 werden durch 
dynamische RAMs des Typs 41464 ersetzt. Schaltungsma- 
Big ist der Aufwand gering. 

Diese dritte Mogiichkeit wollen wir hier beschreiben. 
Zunachst mussen wir Sie aber darauf hinweisen, daB beim 
Offnen des Gehauses die Garantie verlorengeht. 

Der Umbau beim C 1 1 6 und beim C 1 6 ist im Prinzip gieich, 
denn die beiden Schaltungen entsprechen einander. Nur die 
Platinen und die Bezeichnung der Bauteile sind unterschied- 
lich, wie Sie in Bild 1 (C 1 1 6) und Bild 2 (C 1 6) sehen konnen. 
Anhand des C 1 1 6 woiien wir den Umbau erklaren. Die Ande- 
rung laBt sich beim C 11 6 auch etwas ieichter ausf uriren, Bei 
Unterschieden beziehen wir uns auf den C16 in der Klam- 
mer. Aber kommen wir nun zur Sache. 

Schrauben Sie den Computer auf und Ziehen Sie die Ver- 
bindungsstecker zur Tastatur und zur LED ab. Nehmen Sie 



die Platine heraus, nachdem Sie auch diese iosgeschraubt 
haben. Nun werden die beiden ICs U5 und U6 ausgelotet. Da 
die Leiterbahnen sehr dunn und die Lotpunkte durchkontak- 
tiert sind, konnen sich dabei Schwierigkeiten ergeben. Wir 
empfehlen, die IC-Beinchen mit einer Zinnpumpefreizulegen 
und das IC vorsichtig herauszuheben. Dies gelingtaber nicht 
immer. Bei manchen Computem sind die Beinchen unten 
umgebogen. Hier empfiehltes sich, miteinem spitzen, schar- 
fen Seitenschneider die IC-Beinchen abzuschneiden und 
dann die noch einzeln stehenden Beinchen mit Pinzette und 
Lotkolben zu entfernen. Die Platinen-Locher konnen Sie 
anschiieBend mit Lotkolben und Saugpumpe (notfalls auch 
Zahnstocher) freimachen. Als nachstes werden hier IC- 
Fassungen eingeiotet. Sie sollten dabei nicht auf den Pfennig 
achten und gedrehte Fassungen verwenden. Achten Sie dar- 
auf, daB die Kerbe der IC-Fassungen am gleichen Ende wie 
Pin 1 iiegt. 

Jetzt mussen die AdreBleitungjen A14 und A15 an die RAMs 
gelegt werden. Da die entsprechenden AnschluB-Pins der- 
zeit auf Plus liegen, mussen diese Verbindungen getrennt 
werden. Die JC-Anschlusse werden spater mit dem AdreBbus 
verbunden. Im einzelnen ist dazu folgendes zu beachten. 

Zwei Unterbrechungen 

C 1 16: Am IC U8 (Bild 1) muB auf der Bauteileseite die Verbin- 
dung zwischen Pin 14 und Pin 16 mit einer scharfen Klinge 
(Skalpell, Teppichmesser) unterbrochen werden. 

C 1 6: Am IC U.8 (Bild 2) muB auf der Lotseite die Verbindung 
von Pin 14 zur dicken Plusleitung unterbrochen werden. 

C116: Am !C U7 (Bild 1) muB auf der Lotseite die Verbin- 
dung zwischen Pin 2 und Pin 16 unterbrochen werden. 

C16: Am IC U7 (Bild 2) muB auf der Bauteileseite unter 
dem IC die Verbindung zwischen Pin 2 und Pin 16 unterbro- 
chen werden. Ein spitzes Skalpell eignet sich gut dafur. Eine 
weitere Mogiichkeit ist, den Pin 2 des ICs mit einem Seiten- 
schneider so weit unten an der Platine wie moglich abzu- 
schneiden und hochzubiegen. 

Auf alle Falle sollten Sie sicherheitshalber mit einem Durch- 
gangsprufer oder einem Ohmmeter uberprufen, ob die Lei- 
tungen wirklich unterbrochen sind. Dabei ist jedoch folgen- 
des zu beachten. Wenn der Pluspol des MeBgerates am Pin 
16 Iiegt, wird ein Widerstand unter 1000 Ohm gemessen. 
Also, den Minuspol des MeBgerates an Pin 1 6, dann muB eine 




Bild 1. Die Bestuckungsseite der C116-Platine. Die notwendigen Unterbrechungen und Verbindungen sind eingetragen. 
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Diese beiden 
Verbindungen 
einloten 




28 
) 




Bild 2. Die Bestiickungsseite der C16-Platine. Auch hier sind die beiden Unterbrechungen und Verbindungen eingetragen. 



eirtdeutige Unterbrechung angezeigt werden {Hinweis: man- 
che MeBgerate haben bei der Widerstandsmessung Plus 
und Minus vertauscht). 

Messung: Am IC U7 zwischen Pin 14 und 16, am IC U8zwi- 
schen Pin 2 und 16. 

C116: Suchen Sie jetzt das IC U2 (Prozessor 8501) und 
dort die Pins 21 und 22. Sie mussen ohne jede Verbindung 
sein. 

C16: Suchen Sie sich das ICU16 und dort die Pins 7 und 
26. Jeweils parallel dazu sind Durchkontaktierungen als Lot- 
punkte (Bild 2). 

Kennzeichnen Sie alle 4 Anscblusse mit Filzschreiber, je 
einen am U7 und U8, zwei am U2 (U16 beim C 1 6). Jetzt mus- 
sen die Anschfusse der RAMs mit kurzen Drahten an die 
AdreBleitungen A14 und A15 gelegt werden. Beim C 116 sind 
die kurzesten Verbindungen auf der Platinenunterseite von 
U7 Pin 2 nach U2 Pin 22 und von U8 Pin 14 nach U2 Pin 21. 
Beim C16 ist die kurzeste Verbindung, wenn Pin 2 von U7 
abgeschnitten wurde, vom Pin 2 seitlich unter dem Sockel 
des IC U1 6 hindurch bis an die Durchkontaktierung (eventuell 
das IC dazu vorsichtig heraushebeln). 

Zwei neue Verbindungen 



Wenn Sie die Leiterbahn unterbrochen haben, konnen Sie 
beide Verbindungen auf der Lotseite machen: von U7 Pin 2 
nach U16 Pin 7 und von U8 Pin 14 nach U16 Pin 26, jeweils 
an der Durchkontaktierung anloten. 

imC16 entsprichtdas IC U16 dem U101 desC116. DaU2 
beim C16 weiter entfernt iiegen ais die Durchkontaktierun- 
gen, sind die vorgeschiagenen Punkte die gunstigsten. 

Die neuen RAM-ICs {siehe Stuckiiste) brauchen Sie nur 
noch in die IC-Sockel stecken und eine Computerplatine mit 
64 KByte RAM liegt vor Ihnen. 

Jetzt bleibt lediglich ubrig, aiies nochmafs -~enau zu uber- 
prufen. 



Hier noch einige Tips fur den Zusammenbau. Der Tastatur- 
stecker kann nichtfalsch aufgesteckt werden, weil der 2. Pin 
von links als Verriegelung dient. ( 

Beim C 11 6 muft aus der Metallabschirmung fur die iCs U5 
und U6 ein Stuck ausgeschnitten werden. Die Funktion wird 
aber dadurch nicht beeinfluBt. Beim C16 gibt es dank der 
Abschirmfolie keine Probleme dieser Art. 

Neue RAMs rein 



Dem Leuchtdiodenstecker macht ein Verdrehen nichts aus, 
weil beide auBeren Pins miteinander verbunden sind. 

Wenn Sie den Computer wieder zusammengeschraubt 
haben, brauchen Sie ihn nur noch anzuschiieBen. Und jetzt 
kommt der spannende Moment: einschalten und - 60671 
Byte free. 

Die Kosten fur den Umbau betragen je nach IC-Typ und 
Handler zwischen 35 und 60 Mark. 

Fur alle, die sich den Umbau nicht selbst zutrauen, haben 
wir im Aktuell-Teil unter »Speichererweiterung einbauen las- 
sen* zwei Adressen angegeben, wo Sie den Umbau fur zirka 
100 Mark in Auftrag geben konnen. (Manfred Velt/kn) 



Stuckiiste 



2 isolierte Drahte je 5 cm 
2 IC-Sockel 18polig, gedreht 
2 IC Nee tipd 41464 C15 

(Erhaitlich bei: Frank Eiektronik GmbH, Postfach 840073, 
MathiasstraBe 3, 8500 Nurnberg 84, Tel. 0911/32 77 32 

Ersatztypen: Fujitsu MB 814 64-15 
TMS 4464 - 15 N 2 

Beide Ersatztypen haben wir jedoch nicht testen 
konnen. 



Tabelle. Die bendtigten Bauteile 
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Der heiBe Draht nach 

drauBen 




Da der C16/116 keinen User-Port besitzt, kommt 
dem Expansion-Port eine besondere Bedeutung 
zu. Hier finden Sie eine Ubersicht zur Kontaktbe- 
legung. 



Spalten nacheinander adressiert wer den. Dies z eitlich zu 

organisieren ist die Aufgabe der Signale RAS, CAS und MUX. 

Ferner verfugen der C 16/1 16 und Pius/4 uber ein soge- 

nanntes Bank-Switching. Dasbedeutet, es k'onnen verschie- 



N 



aturlich ist der Expansion-Port beim C 16/116 und 
Plus/4 einmal wieder vollig anders als beim C 64. Nicht 
nur, daB die AnschluBbuchse eine ganz andere Bau- 
form und damit auch einen anderen Abstand zwischen den 
Kontakten hat, nein, auch die Belegung der einzelnen 
AnschluB-Pins ist teilweise voilkomrnen anders. AuBerdem 
stehen Ihnen beim C64 sechs Anschlusse weniger zur Ver- 
fugung. Einen direkten Vergleich erhalten Sie, wenn Sie die" 
nachstehende Tabelle neben das »64'er Extra« aus der Aus- 
gabe 4/86 legen. Dort ist in ahnlicher Weise der Expansion- 
Port des C64 beschrieben. 

Nun aber zu unseren drei Computern. Zum Gluck sind die 
Expansion- Ports beim C16, C116 und Plus/4 identisch. 
Einige Besonderheiten wollen wir Ihnen auch noch naher 
erlautern. 

Da ist zunachst der Zugriff auf RAM- Baus t eine (loschbare 
Speicher}. Er wird durch die Signale RAS, CAS und MUX 
geregelt. Da die im C 16 verwendeten RAMs nur uber insge- 
samt 16 Anschlusse verfugen, sind sie fur die Adressierung 
in Reihen (row) und Spalten (column) aufgeteilt. In Bild 1 
sehen Sie ein Beispiel mit3 Reihen und 3 Spalten. Aufgrund 
der wenigen Anschlusse mussen bei den RmMs Reihen und 



Spalten 



& 



O O G 
() G 



& 



Bild 1. Adressierung von Speicherzellen uber Reihen und 
Spalten. Die schwarz markierte Speicherzelle ist uber die 
Reihe 1 und Spalte 2 angesprochen. 
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dene Programme uber Spei cherb anke eingeblendet werden. 
liber die Signale CSO und CS1 konnen zwei verschiedene 
Speieherberelche eingeblendet werden, und zwar die Berei- 
che $8000 bis $BFFF {dezimal 32768-49151) und $C00O 
bis $FFFF (dezimal 49152-65535). Welche Speicherbank 
fur die Einblendung angesprochen werden soil, wird durch 
die Signale C1 LOW, C1 HIGH, C2 LOW und C2 HIGH be- 
stimmt Uber die Adressen $FDDO bis $FDDF (dezimal 
64976-64991) konnen Sie die Banke vorgeben. 



AbschlieBend noch zwei Hinweise: Bild 2 zeigt den 
Expansion-Port, wie er von hinten betrachtet am Computer 
zu sehen ist. Die Zahlen gelten also fur die oberen Kontakte 
und die Buchstaben fur die unteren. 

Haufig f inden Sie einen Strich uber der Signalbezeichnung. 
Hier handelt es sich urn sogenannte »Nicht-Anweisungen«, 
die auch als Low-aktiv bezeichnet werden. Das bedeutet, 
wenn diese Leitungen auf Masse (Low) gelegt werden, ist die 
entsprechende Funktion aktiv. (J. Sahlmann/kn) 





25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 
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CC BB AA Z Y X W, VUTSRPNMLKJHFED.CBA 
Bild 2. per Expansion-Port des C16, C116, Plus/4 -von hinten gesehen 





PIN 


Name 


Beschreibung 


* 
Bemerkung 


1 


GND 


Systemmasse 




2 


+5VDC 


Belriebsspannung 




3 


+5VDC 


4 


IRQ 


Interrupt-Anforderung 


Wenn IRQ auf Masse (GND) gelegt wird, arbei- 
tet der Prosessor den momentanen Befehl ab 
und verzweigt in die interrupt-Routine des 
Betriebssystems 


5 


R/W 


Lesen/Schreiben 


Bei jedem Lesezyklus (z.B. LDA,LDX) wird 
diese Leitung auf +5 V gesetzt, bei jedem 
Schreibzyklus (z.B. STA) auf V (= Masse) 


6 


C1 HIGH 


Signal fur Bank-Switching 


Steuerleitungen fur das Bank-Switching (siehe 
auch Pin B und Text) 


7 


C2L0W 


Signal fur Bank-Switching 


8 


C2 HIGH 


Signal for Bank-Switching 


9 


CS1 


Chip-Select-Leitung 


Einblendung exfemer Bausteine (RAM oder 
ROM) in die Speicheradressen $ 8000 - $ 
BFFF (= 16 KByte) ' 


10 


CSO 


Chip-Select-Leitung 


Einblendung extemer Bausteine. (RAM oder 
ROM) in die Speicheradressen $ C000 - $ 
FFFF (= 16 KByte) 


11 


CAS 


Column Address Select 


Speicherzugriff auf das RAM 
(siehe auch im Text) 


12 


MUX 


Multiplex-Signal 


13 


BA 


Buszugriff vom TED 


BA liegt auf +5 V, wenn der TED (Baustein fur 
Ton, Bild und I/O) auf Daten- Oder AdreBbus 
zugreift. Liegt BA auf +5 V liegt , so diirfen 
keine externen Bausteine auf den Bus zugrei- 
fen. 


14 


D7 


Datenbus Bit 7 


Datenbus (ungepuffert) 


15 


D6 


Datenbus Bit 6 


16 


05 


Datenbus Bit 5 


17 


D4 


Datenbus Bit 4 


18 


D3 


Datenbus Bit 3 


19 


D2 


Datenbus Bit 2 


20 


D1 


Datenbus Bit 1 


21 


DO 


Datenbus Bit 


22 


AEC 


Address Enable Control 


Wenn AEC auf Masse liegt, ist der AdreBbus am 
Prozessor hochohmig 


23 


EXT 

AUDIO 


Externe Audioleitung 


An EXT AUDIO liegt dasseibe Tonsignal wie an 
Pin 5 des Videoausgangs 



PIN 


Name 


Beschreibung 


Bemerkung 


24 


$2 


Systemtakt 


Takt von Baustein U3 (1.8432 MHz) 


25 


GND 


Systemmasse 




A 


GND 


Systemmasse 


B 


C1 LOW 




Steuerleitung fur das Bank-Switching (siehe 
auch Pins 6,7,8) 


C 


RESET 


Computer Kaltstart 


Liegt RESET auf der Masse, so lost der Compu- 
ter einen Reset aus 


D 


RAS 


Row Address Select 


Speicherzugriff auf das RAM (siehe Text) 


E 


$0 


Systemtakt 


Bei fallender Flanke sind Daten gilltig 


F 


A15 


AdreBbus Bit 15 


AdreBbus (ungepuffert) 


H 


A14 


AdreBbus Bit 14 


J 


A13 


AdreBbus Bit 13 


K 


A12 


AdreBbus Bit 12 


L 


A11 


AdreBbus Bit 11 


M 


A10 


AdreBbus Bit 10 


N 


A 9 


AdreBbus Bit 9 


P 


A8 


AdreBbus Bit 8 


R 


A7 


AdreBbus Bit 7 


S 


A6 


AdreBbus Bit 6 


T 


A5 


AdreBbus Bit 5 


U 


A4 


AdreBbus Bit 4 


V 


A3 


AdreBbus Bit 3 


w 


A2 


AdreBbus Bit 2 


X 


A1 


AdreBbus Bit 1 


Y 


AO 


AdreBbus Bit 


Z 


- 


nicht angeschlossen 




AA 


- 


nicht angeschlossen 


BB 


- 


nicht angeschlossen . 


CC 


GND 


Systemmasse 
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Briefe sdiieiben leiditgemadit 




Der C 16/116 gewann in letzter Zeit seines niedri- 
gen Preises wegen zunehmend an Beliebtheit. 
Die Nachfrage stieg plotzlich enorm an. Warum 
soil man den C16/116 nicht als intelligente 
Schreibmaschine verwenden? Eine Lbsung bie- 
tet das Programm Text-Manager. 

it einem C16-Boom hatte kein Software- Produzent 

gerechnet. Nur einige Spiele kamen auf den Markt. 

I Viele C 16-Besitzer wollten ihren C 1 6 aber nicht nur 

als Spielcomputer, sondern ebenso fur emsthafte Anwen- 
dungen nutzen. Eines der wichtigsten und begehrtesten 
Anwendungsprogramme fur Heimcomputer ist wohi ein Text- 
verarbeitungssystem. Mit solch einem Programm konnen 
Texte beliebiger Art auf einfache Weise erstellt, editiert und 
in einer schonen Form ausgedruckt werden. 

Der C1 6/1 16-Text- Manager ist ein gelungenes Textverar- 
beitungssystem, bei dem eine gute Kombination aus wentg 
Speicherbedarf und relativ viel Komfort erzielt wurde. 

Das Programm ist sehr speicherplatzsparend aufgebaut 
und nutzt wtrklich jedes verfugbar Byte, urn mdglichst viei 
Textspeicher zur Verfiigung stelien zu konnen. 






Der Text-Manager enthalt die wichtigsten Funktionen eines 
Textprogramms 



Nach dem Start des kurzen {zirka 4,25 KByte) Program- 
mes stehen noch zirka 7900 Byte (7900 Zeichen) fur den 
Text bereit. 
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Obwohl das Programm so kurz ist, bietetes erstaunlich viei 
Bedienungskomfort. Es wurden viele wichtige Funktionen 
und Kommandos integriert. 

Der Editor ist sehr leicht zu bedienen. Der Text wird einfach 
endios eingetippt. Dabei haben die Cursor-Tasten die gleiche 
Funktion wie im Basic-Editor; ebenso die Tasten < HOME> , 
<DEL> und < INST >. Die < CLEAR > -Taste setzt den Cur- 
sor allerdings in die letzte Textzeile. 

Der Editor beherrscht das sogenannte »Wordwrapping«. 
Darunter ist zu verstehen, daB angefangene Worter, die nicht 
mehr in eine Zeile passen, automatisch in die nachste Zeiie 
verschoben werden. Es kann also einfach drauflos geschrie- 
ben werden, ohne sich um das Zeilenende zu kummern. 
Lediglich wenn ein Absatz erzeugt werden soli, ist die 
< RETURN > -Taste zu drucken. 



Komfortabler Editor 



Die Funktionstasten wurden mit nutzlichen Editiertunktionen 
belegt. Insgesamt stehen dem Benutzer 10 wichtige Kom- 
mandos zur VerfCigung. 

Der Befehl »Bytes Free« dient zur Anzeige des fur die Text- 
eingabe verfugbaren Speicherplatzes. Der Text-Manager 
geht sehr sparsam mit dem Speicherplatz um. Wordwrapping 
benotigt keinen zusatzlichen Speicherplatz. Eine ganze Leer- 
zeile wird ebenso wie ein Textzeichen nur als ein einziges 
Byte gespeichert. 

Mit »Width« laBt sich die Textbreite zwischen 35 und 99 
Spalten{Zeichen pro Zeile) variieren. Der Standard wert ist auf 
70 Spalten voreingestellt. Dabei wird der Text aber nicht etwa 
als 40-SpaIten-Text dargestellt, sondern der Text-Manager 
arbeitet mit Scrolling in alle vier Richtungen. Der Bildschirm ist 
quasi ein Fenster, durch das man immer einen Textausschnitt 
sieht. Das Textfenster wird dabei je nach Stellung des Cursors 
iiber den Text verschoben. Bei einer Textbreite von weniger 
als 38 Spalten findet kein horizontales Scrollen mehr statt 

Will man im Text eine bestimmte Zeichenkette suchen, so 
steht dem Benutzer der »Find«-Befehl zur Verfugung. Nach 
dem Aufruf des »Find«-Befehls kann das gesuchte Wort, 
beziehungsweise die Zeichenkette eingegeben werden. 
Nach Betatigung der < RETURN > -Taste sucht der Text- 
Manager im Text ab der Cursorposition nach dem gewunscb- 
ten Ausdruck. Wurde eine Textstelle gefunden, kann durch 
wiederholtes Drucken der < RETURN > -Taste nach, einer 
weiteren Textstelle gesucht werden. 

Die »Replace«-Anweisung arbeitet ahnlich wie »Find«. Mit 
diesem Befehl kann jedoch die gesuchte Textstelle auto- 
matisch durch eine zweite Zeichenkette ersetzt werden. Der 
Benutzer muB allerdings die Veranderung mit der 
< RETURN > -Taste bestatigen. Im Gegensatz zum.»Find«- 
Befehl verlangt »Replace« bei der Eingabe zwei Zeichenket- 
ten, die zu Suchende und die Ersetzende. 

Um eine Zeichenkette global im gesamten Textzu ersetzen 
(ohne Bestatigung durch < RETURN >), gibt es einen spe- 
ziellen Replace- Befehl. Mit dem Befehl »DiscCommand« kon- 
nen alle Diskettenbefehle zur Floppy gesandt werden. Fur 
Datasetten-Benutzer erubrigtsich dieses Kommando. AuBer 
denBefehlenfurFormatieren, Initiaiisieren, LoschenundVali-- 
dieren kann zusatzlich durch Eingabe des »$«-Zeichens das 
Directory der Diskette gelesen werden. 

Das Kommando »Save« dient zum Speichern des Textes auf 
Kassette oder Diskette. Zuvor verlangt das Programm noch 
die Eingabe eines Textnamens. Dieser muB allerdings nur im 
Falle einer Speicherung auf Diskette angegeben werden. 



Um einen Text wieder zu laden, muB'die »Load«-Anweisung 
angewahlt werden. Auch hier kann beim Laden von Kassette 
der Textname weggelassen werden. 

Das Kommando »Print« ist fur ein Textverarbeitungspro- 
gramm mit Sicherheit der wichtigste Befehl. Damit laBt sich 
der eben erstellte Text endlich aufs Papier bringen. Leider 
konnenimDrucker-Menu nur 3 Parameter verandert werden. 

1) Einzelblatt oder Endlospapier 

2) Papieriange 

3) Druckzeilen pro Blatt. 

Das reicht dem durchschnittlichen Anwender in der Regel. 
Wunschenswert ware aber zumindest die Veranderung der 
Startspalte (der linke Rand) beim Ausdrucken. 

Der Text- Manager druckt den Text im Blocksatz aus, das 
heiBt, der durch das Wordwrapping erzeugte Flatterrand wird 
ausgeglichen, indem eine Zeile durch Einfugen von Leerzei- 
chen zwischen den einzelnen Worten aufgefullt wird. Der 
Ausdruck ist sozusagen links- und rechjsbiindig, wie der Text 
in diesem Sonderheft. Es ist noch zu be'merken, daB der Text- 
Manager ausschlieBIich im Blocksatz druckt. Ein gewollter 
Flatterrand ist nicht einstellbar.- 

Schwierigkeiten treten auf, will man Steuercodes an 
Centronics-kompatible-Drucker senden. Diese Moglichkeit 
wurde beim C 16-Text-Manager vollig auBer acht gelassen. 

Wegen des geringen Speicherplatzes des C16 ist man 
eben zu Einschrankungen gezwungen. Mit Textverarbei- 
tungssystemen wie Vizawrite oder Master-Text fur den C64 
laBt sich der Text-Manager nur bedingt vergleichen. 



Fur Diskette und Datasetfe 



Der letzte Befehl »Quit« dient zum Verlassen des Programms. 
Aus Sicherheitsgrunden muB diese Wahl noch mit 
< RETURN > bestatigt werden. Alle Kommandos sind 
bequem uber <CTRL> + Anfangsbuchstabe des Befehls 
zu erreichen. 

Fur den C 16/116 ist die Anschaffung des Text-Managers 
durchaus lohnenswert, wenn man sich bewuBt ist, daB man 
vom C16 nicht die Leistungen erwarten darf ais beispiels- 
weise vom C 64. 

{Christian Quirin Spitzner/hm) 

Info: Markt&Technik-Verlag. Hans-Pinsel-Str. 2, 8013 Haar. 089/4613-0, Preis: 49 Mark (mit Kas- 
sette). 



Neue Programme fur Ihren Computer 

Wir sind standig auf der Suche nach neuen, guten 
Programmen fur den C 1 6, C 1 1 6 oder Plus/4. 

Haben Sie ein interessantes Maschinenprogramm, 
•ein Spiel, ein Grafik- oder ein Anwendungsprogramm 
fur Ihren Computer entwickeit, dann schicken Sie es 
uns doch ein. Auch Utilities oder Tips&Tricks konnen 
Sie auf diese Weise alien Lesern zukommen lassen. 

WirsindfurjedeEinsendungdankbar. Alle guten Bei- 
trage haben die Chance, in einem unserer Stamm- oder 
Sonderhefte veroffentlicht zu werden. Und es lohnt 
sich, denn wir zahlen selbstverstandlich bei Veroffentli- 
chung ein entsprechendes Honorar. 

Schicken Sie Ihren Beitrag bitte mit der Angabe Ihres 
Computers an folgende Adresse; 

Markt&Technik Verlag Aktiengesellschaft, 

Redaktton 64'er, 

Hans-Pinsel-Str. 2, 8013 Haar bei Munchen 
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DerC16 
als Spielcomputer 



Der Erfolg der Heimcomputer in den letzten 
Jahren wurde nicht zuletzt durch eine Flut von 
interessanten Spielen ausgelost. Welche Spiele 
lohnen sich fur den C16? 

Viele unserer Leser gehoren sicherlich zu der Personen- 
gruppe, die, vom preiswerten Angebot einer bekannten 
Supermarktkette uberwaltigt, einen Heimcomputer 
gekauft haben und sich nach der Durcharbeitung des Basic- 
Kurses fragen, was sie nun eigentlich mit der Kiste anfangen 
sollen. Ein betiebtes Anwendungsgebietfur alle Heimcompu- 
ter sind die Videospiele, die inzwischen Tausenden von jun- 
geren und alteren Computerbesitzern uberverregnete Nach- K 
mittage hinweghelfen. Urn Ihnen den Einstieg in die Welt der 
Spiele zu erleichtem, wollen wir ihnen einige gute Pro- 
gramme vorstelien. 

Spiele aus deufsdien Landen. • . 

Doch vorher noch einige ailgemeine Worte. Aiie Spiele, die 
wir getestet haben, wurden fur den C 1 6 und C 1 1 6 program- 
miert und laufen im allgemeinen auch probiemlos auf dem 
Plus/4. Fast alle Spiele lassen sich uber die Tastatur steuern, 
mit einem Joystick hat man jedocn ein »leichteres Spiel«. im 
ubrigen darf man vom C16 keine grafischen Biidschirm- 
Orgien wie beim C 64 erwarten. Aufgrund des geringen Spei- 
cherplatzesundderwenigen Moglichkeiten des Video-Chips 



(so gibt es beispieisweise keine Sprites) ist der C 1 6 nicht der 
ideale Spielecomputer. Ebenso verbalt es sich beim Sound. 
Trotzdem ist es erstaunlich, was manche Programmiereraus 
dem Gerat herauskitzeln konnen. 

In Deutscnland bemuht sich die Firma Kingsoft sehr urn die 
C 1 6-Besitzer. So gibt es auch einen ganzen Stapel Spiel pro- 
gramme der unterschiedlichsten Stilrichtungen. Neben 
Action- und Geschicklichkeitsspielen faflt besonders das 
Schachprogramm »Grandmaster« (siehe oben) auf. Dieses 
recht spieistarke Programm kann auch durch seine anspre- 
chende Grafik beeindrucken. Wer sich nicht extra einen 
Schachcomputer kaufen mochte, kann fur wenig Geld seinen 
C16 zum Schachpartner machen. 

»Grandmaster« wird ubrigens in einer Spielesammlung mit 
drei weiteren Spielen (»Tom«, »Galaxy« und »Ghost Town«) 
verkauft. Die drei anderen Programme sind dabei mehr dem 
Action- und Geschicklichkeitsgenre zuzuordnen. 

Kingsoft bietet aber auch andere interessante Spiele an. 
Eines der komplexesten ist das »Bongo Construction Set« 
(Bild 3). Bongo die Supermaus muB eine Prinzessin befreien, 
Zu diesem Zweck mussen auf einem Gerust verschiedene 
Gegenstande eingesammelt werden. »Bongo« gehort damit 
zur Gruppe der Jump-And-Run-Spiele (Springen und Lau- 
fen). Langweilig wird das Spiel dabei so schnell nicht, da Sie 
eigene Spielfelder herstellen konnen. Damit ist »Bongo 
Construction Set« nicht nur ein Spiel, sondern ein richtiger 
Baukasten fur Spiele, der fur monatelange Unterhaltung sor- 
gen kann. 

Wer lieber knallharte Action mochte, der sollte sich »Legio- 
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Bild 2. Xargon Wars 




Bild 3. Bongo Construction Set 




naire«ansehen. Hier kampftsich ein Bildschirmsoldner durch 
dichten Dschungel und tritt gegen wahre Hundertschaften 
von feindlichen Soldaten an. Das Spiel erinnert an den 
Spieihallen-Knuller »Commando«. Von »Commando« gibt es 
zwar auch eine C 1 6-Version, die aber nicht vie! mit dem Auto- 
matenspiel gemeinsam hat. 

Wieder etwas mehr futuristisch geht es bei »Space Pilot« 
zu, bei dem der Spieler sich wieder gegen fremde Raum- 
schiffe verteidigen muG, ein Thema, das es anscheinend in 
unendlich vielen Variationen fur Computer gibt 

Damit ist das Angebot von Kingsoft noch lange nicht 
erschopft, aber leider reicht hier der Platz nicht, um noch 
mehr Spiele dieser Firma vorzustellen. SchlieBlich gibt es 
auch noch einige englische Firmen, die C 1 6-Software produ- 
zieren. Deren Programme werden zum groBten Teii von der 
Firma Rushware vertrieben. 



...und aus England 



Bitd 4. Berks Trilogie 



Einer der englischen Software'Produzenten ist Gremlin Gra- 
phics, von denen es ebenfalts eine interessante Spielesamm- 
lung namens »C16 Classics« gibt. Auf dieser kann man die 
Spiele »Tycoon Tex«, »Dorks Dilemma«, »Xargon Wars« und 
»Petals ot Doom« finden. Alle vier Spieie sind sehr actionreich 
und bieten tolle grafische Effekte, wie Laufschriften, schnel- 
les Scrolling und Animation der Spielfiguren. »Xargon Wars« 
(Bild 2) ist eine Variante des »Space lnvader«-Themas: Der 
Spieler muB mit seinem Raumschiff die Invasoren aus dem 
Weltall vernichten, die in verschiedenen Formationen angrei- 
fen. »Petaisof Doom« (Bild 1) wiederum erinnert an den Spiel- 
hallenklassiker »Defender«: Ein recht schlagkraftiger Gartner 
muB die Pflanzen eines f uturistischen Gartens bewachen. Zu 
diesem Zweck ist er mit Rucksack-Jet und Ungeziefer-Laser- 
Knarre bewaffnet ,und muB sich gegen zahireiche Insekten 
zur Wehr setzen. Bei Beruhrung veriiert er wertvolle Lebens- 
energie, die er allerdings wieder regenerieren kann, wenn er 
sich hinter Pflanzen versteckt. Bei »Tycoon Tex« muB der 
Spieler eine Olpipeline bauen, wahrend »Petais of Doom« ein 
Labyrinthspiel mit einem Hauch von »Pacman« ist. Alles in 
ailem ist »C 1 6 Classics« eine tolle Sammlung von Spielen fur 
alle Action-Fans. 

Wer es besonders preiswert mag, der sollte einen Blick auf 
die Programme von Mastertronic werfen, die durch die Bank 
nur 10 Mark kosten. Am besten gefailen hat uns dabei »Kik- 
start«, ein pfiffiges Motorrad-Cross-Rennen fur einen Spieler. 

Als letztes stellen wir noch drei Spiele auf einer Kassette 
von CRL vor: Die Berks kommen in >>The Berks-Trilogy« 
(Bild 4)! Berks sind niedlich aussehende, aber ungemein 
gefahrliche Geschopfe, die in drei verschiedenen Spielen 
(»Berks«, »Major Blink: Berks ll« und »Berks Ilk) die Erde ero- 
bern wollen, was der Spieler naturlich verhindem muB. Die 
drei Spiele sind zwar recht ahnlich, aber trotzdem empfeh- 
lenswert, da sehr witzig gemacht. AuBerdem ist es wirklich 
nicht einfach, auch nur eines der drei Spiele zu schaffen. 
Inzwischen gibt es noch einen vierten Teil, der den drei 
ersten aber dann doch zu sehr ahnelt und den man sich nicht 
extra zu der Sammlung der ersten drei kaufen mu(3. 

Damit haben wir unseren kleinen Rundgang durch die 
C16-Spielewelt beendet. Wir hoffen, daB Sie die eine Oder 
andere Anregung fur den nachsten verregneten Nachmittag 
gefunden haben. Und vielleicht finden Sie ja an den Compu- 
terspielen Geschmack und kaufen sich einen anderen Com- 
puter, fur den das Spieleangebot groBer und die Spiele quali- 
tativ noch besser sind. (bs) 

Info: Kingsoft, Schnackebusch 4, 5106 Roetgen 

Mastertronic, Kaiser-Otto-Weg 18, 4770 Soest 

Rushware, An der Gumpgesbrucke 24, 4044 Kaarst 2 

Die Spiele haben unterschiediiche Preise und kosten zwischen 10 und 40 Mark auf Kassette. 
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Sdiaffen Sie sich ein interessantes Ncuhschlagewerk und gleidizeitig t 
werlvolles Archiv! 

Kennen Sie alle Ausgaben von 64'er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versaumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen konnen, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Priiferi Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, Oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs- 
jahr (z.B. 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefiillte Zahlkarte ein- 
fach heraustrennen und Rechnungsbetrag beim nachsten Postamt einzahlen. Ihre Best^llung wird nach Zahlungs- 
eingang umgehend zur Auslieferung gebracht. I 
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lerrninalprogTammderSpifzenklaase 149 

(+ Fehlerteufel 10/85) 

i SMU — Der Maskengenerator (LdM) 50 

o=k Hi-Eddi-Druckerroufinen 69 

C 64 Schreiberling — Drucken wie gemalt 54 

Koalabilder Farbhardcopy auf Epson JX-30 39 

Bier Die lutchsten 14 aus d. Eixtzeilerwettbewerb 157 

== Hypra-Load real 4 (* Fehlerteufel 3/65) 82 

Diskettenmonitor 83 

Disk-Da signer 70 

Herzoperation (Hypra-Load+ Hypra-Ass + DOS5.1 + 104 

Centronics) 

3r Vier PSeudo-VICs mi( 32 Sprites 76 

Hi-Eddi: Zeichen- und Maiproggiamm (LdM) 50 

Elektrotechnisches Zelchnen mit dem VC 20 71 

Mini-CraEk VC 20. Grafikhilte 69 

TrickfiJm mit dem C 64: Bewegte 3D-Grafik (LdM) 51 

< + Fehlerteutel 6/9S) 

Kurvenplolten mil Hardcopy auf dem C 16 68 

Doppelte GrafikauQosung fur C 128 33 

Bilder aus einer anderen Dimension (Apfelmartnchen) 60 
Ispenz VIC — des intelligent© Programm 173 

(Wettbewerbssieger) 
x Sound Machine (+ Fehlerteufel 10/8S) 22 

Sound Master (Basic-Erwciterung) 3) 

* 6510 — Die Suche nach der Processor 70 

Samurai (Snategiespiel) 72 

Schach demC64:Schachprogramm z 

Spielen auf zwei Biidschizmen: 

Zeichensatzscrolling (LdM) 

Pac-Man unter der Lupe 

Block Out 

Seekrieg per Telefon (Schiffe vera 
■w.-alfe Die Scroll Maschme - El Fensier a 

(LdH)(+Fehle«. 11/85) 
ptien Tiny Forth Compiler (LdM) (+ Fehlert 9/85) 

•ne.-arbei- Hypra-lfextffdMH-i-FeMertettfel 11/85) 
■; Drucksache - Hypra-Text, Iteil 2 

IB. I Tricks CroBe Buchstaben I 

Restore filrUrtterprogramme 1 

prL Tricks Parameteriibergabe an Maschineiispracheprogramme I 

Cursoreteuerung leieht gemacht I 

22 Read Error — Theorie und Praxis 

Floppy-lister (+FeWerteufel 4/85) 1 

Longscreen beim VC 20 J 

C 16; Help und Trace verbessert 1 

Ordrtung ist das haibe Leben (Directory-Sorter) ' 

Dokumentationshilfe. Cross-Referenz-Liste C 64 1; 

(Wettbewerb) 

Proat mit dem C 64: Geratesteuerung iiber 

Userport <•»■ Fehlerteufel 9/B5) 

Fenster-Befdhle fur den C 16 1 

Elektronische Merkzettel I 

File-Compactor 1 

REM-Kiltcr ( t Fehlerteufel 9/85) 
. Basic-Start-Generator 

Komfortable Ein-/Ausgaberouune 

Bildschirmmasken leieht crstcllt 

Der Bitmap-Compander (HiRes-Bilder komprimieretO 

Hypra-Save 

'Procedure' — oder der C 64 kann lemen 

Aufgewickelt — Listingscrolling fur VC 20 I 

Programmgenerator fur den C 64 

Cross-Rel oplimiert ! 

Spieletrainer Spritekili ! 

Tipp-Uulity ! 

Dor EPROM-Automat (wie man Module macht) i 

80-Zeichen-Grafik lilr den C 188 

Hyper Screen (Sprites auf dem Btldschirmrand) 
tesfer Der C 64 als PET: PET-Simulator 

■er- Formatierte Eingabe 1! 

■eparnnie 



Rwa*e-Tests 



Macro-Basic: Die Unterprogramm-Bibliothek 

Darf es etvras mehr sent? — Test Business-Basic 

Das Intetiectool 

Formel 64: Das Multitalent 

Terminalprogramme: tfbersicht 

Vergleichste5t — 7 Dateiverwahungen auf einer 

Aufgeraumt mit Maintitc I( 

Malen auf dem Bildschirm (Malprogramme) 

Grafikprogrammo aul eincn Blick: Maxkttibcrsieht 

Vergleichstest: Graftk-Erweiterungen 

Softleaming — die weiche Welle des Lemens 

Yokabeltraining; mit dem Computer 

Marktiibersieht: Lerttsofcwaxe 

Musik fur den C 64: tlbersicht Musiksoltware 

The Music System — Zv/ei auf einen Schlag 

Logo — die Sprachc fur Einstctgcr 

Der Ada Trainingskure auf dem C 64 

Promal — die neue Sprache fiir Profis' 

Forth-warts mit M&T-Forth 64 

Was ieistet Pilot? 

Pascal fiir Pro lis (Pro ii- Pascal) 

Snper-Forth 64 

C — die professionelte Programmiersprache fur 

den C 64 

Basic 7.0 - Das Suoerbasic des C I2B 

Comal 80 — die universelle Programmiersprache 

Turbo-Pascal auf dem C 128 
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03/85 

05/85 

07/85 



03/85 
10/85 
11/85 
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12/85 
01/85 
07/85 
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11 -'85 
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03/85 

07/SS 
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06/85 
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01/85 
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03/85 
11/85 
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01/85 
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03/85 
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05/85 
11/85 
11/85 

05/85 



iO.'SS 
11/85 
1Z/35 



oi'M 
o:/B5 
o:.'S5 

02 ■ 35 

03 its 
03/85 

35:35 



07 ■ 35 
07.35 
108/55 
08/3? 
' 03:35 
05 ■ 35 
C~'8i 
10/ 33 
10 -35 
11/85 
12 'S3 
12/33 
:Z;85 
12/35 
0)/S5 
01/35 



183 


05/35 


153 


12/85 


42 


c-; ■ 35 


Blick 118 


."7/83 


157 


10 5-5 


34 


05/85 


it 36 


08 '35 


3T 


06 '35 


40 


01/85 


33 


03/85 


168 


10/55 


26 


05/33 


164 


12/35 


1/5 


05/85 


129 


05/85 


124 


07/85 


126 


07/85 


121 


08/85 


122 


08/85 


144 


09/85 


140 


03/65 


18 


10/85 


e 151 


10/65 


30 


11/85 



Ttextverarbei- Homeword - Ifextveiarbeilung zu Hause 
tung Tbtt-'Ifext — Flexibilitat ist Trump) 

Piorext — Textpiofi mit 80 Zeichen 
Textomat Plus kontra Vizawhtc 
DetrPreishammerCltest: StarTtexter) 
Papeicltp — ausdriicklich gut 
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So machen's andexs 



SemmeJn Sernmelservice 'mit dem C 64 

Sport Commodore SpDttscrvico: Hcimcompu?t 

Tu r n ierau z we rt 6 tig 
Hilfe Computer fur Behinderte 





kompleHer ' % * v >^^?'- : ,, :/ ' i ' 

Johrgang '^^^ 

(12 Ausgaben) 

pa fit in eine der praktischen 

Sammelboxen! 

Ant besfen glekh 

mifbestellen! 

Fiir alle Leser, die »64'er« regel- 
maBig kaufen, sammeln oder im 
Abonne merit be Ziehen, gibt es 
jetzt ein interessantes Ser- 
vice-Angebot: die 64'er-Sam- 
melbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf- 
fen sich gleichzeitig ein interes- 
santes und attraktives Nach- 
schlagewerk. 

tXbrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe- 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge- 
schenk fur Freunde un.* Be- 
kannte zu vielen Anlassen. 



Au<h die bbher 
ersdiieneneit Sonderhefte 
konnen Sie i^i-r)'-; 
jelif direkf bestellen: 



SOHMRHiFT 01/84: TIPS « TRICKS 

Unentbehrliche Amvendungslistings fiir C 64 und 
VC20. 

SONDERHEFT 02/85: ABENTEUERSPIEIE 1 " 

Fesselnde Adventures mit zahireichen Losungen und 
einem Programmierkuis. 

SONDERHEFT 03/85: SPIELE 

HeiB0 Listings fiir Spiele-Fans und eine grofie 
Marktiibersieht 

SONDERHEFT 04/85: GRAHK & MUCKER 

Von der SD-Daistellung bis zur Hardcopy-Routine. 

SONDERHEFT 05/85: FLOPPV/DATASETTE 

Soft-Tbols zum komfortablen und noch schneileren 
Betrieb von Floppy und Datasette. 

SONDERHEFT 06/85: AUSGEWfiHLTE SUPER-LISTINGS 

Top-Themen aus 64'er bringt eine Auswahl der besten 
64'er Programme. J 

SONDERHEFT 07/85: ANWENDUHGEN/DFU 

Leistungsfahige Programme fiir professioneile 
Anwendungen und Datenferniibertragvng. 

SONDERHEFT 08/86: ASSEMBLES 

Assembler-Know-how fiirAnfanger und Fortgeschrit- 
tene. 

SONDERHEFT 01/86: K 138 

Komplette Beschreibungen von C 128 und C 128D 
und passendem Zubehor. Die Unterschiede zum C 64. 

SONDERHEFT 02/86: TIPS ft TRICKS 

Super-Listings, ausfiihrliche Crundlagen und die 
besten Tips&Tricks und Einzeileraus 64'er. 

! SONDERHEFT 03/86: C16, CI 16, VC20 UND PLUS 4 

Umfassende Crundlagen und aktuelle Informationen 
zu C16, CU6, VC20 und Plus 4. . 

SONDERHEFT 04/86: ABENTEUERSPIEIE 2 

Auf 160 Seiten alles iiber das Programmieren von 
Abenteuerspielen und Super-Listings zum Abtippen. 

SONDERHEFT 05/86: C64-GRUHDWISSEN 

Fiir alle Einsteiger umfassende Grundlagen und Hilfe- 
stellungen tvnd um den C64. 

SONDERHEFT 06/86: GRAFiK 

Grafikprogranuvierung des C64, C128 und C128 im 
C64-Modus. Dreidimensionai konstruieren mit 
»Giga-CAD«. 

SONDERHEFT 07/86: PEEK. UNO POKE f 

Einfiihrungskurs in die wichtigsten Speicherstellen fiir 
C64.C16 und C128. Uber 30 Seiten Tips& Tricks. 



Tragen Sie die Nummer des gewiinschten 
Sonderheftes (z.B. 09/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 



ANWENDUNG 



C16/C116 



Videofilme 
im Griff 



Wer etwas Ordnung in seine Videofilm-Samm- 
iung bringen mdchte, kann auch den Computer 
sinnvoll einsetzen. 

In vielen Haushalten steht heutzutage ein Videorecorder, 
und so gibt es inzwischen eine ganze Reibe von Samm- 
lern, die sich die interessantesten Spielfilme aufzeichnen 
und aufbewahren. Um nun in diese Sammlung etwas Ord- 
nung zu bringen, verwendet man im Zeitaiter des Computers 
naturlich seinen C 1 6. Mitdem folgenden Programm (Listing) 
konnen Sie Ihre Videofilme eingeben und speichern und 
naturlich jederzeit auch wieder laden undandem. Sie konnen 
nach bestimmten Begriffen suchen und eine komplette Liste 
auf einem Drucker ausgeben. Das Speichern der Videodatei 
kann nur auf Datasette erfolgen, fur Diskettenbetrieb muBte 
das Programm extra angepaBt werden. Die Bedienung des 
Programms ist relativ einfach und wird auch vom Programm 
selber erklart. 

* 

Dateiverwaltung 

Das voriiegende Programm ist ein Beispiel fur eine Dateiver- 
waitung. Eine Ansammlung von Daten wird eingegeben und 
gespeichert und kann bei Bedarf wieder geladen und durch- 
gesehen werden. Vergleichbar ist das in etwa mit einem Kar- 
teikasten. Der Unterschied liegt in der Verarbeitungsge- 
schwindigkeit: Wie lange wurden Sie benotigen, um einhun- 
dert Karteikarten zu sortieren? Der Computer benotigt dafur 
meist nur Sekunden! 

Leider hat der C 64 nur eine begrenzte Speicherkapazitat, 
deswegen kann man nur geringe Datenmengen speichem. 
Immerhin erhalten Sie so.aber einen Einblick in die Dateiver- 
waltung und konnen die so gewonnenen Erkenntnisse auch 
verwenden, wenn Sie an einem groBeren Computer arbeiten 
werden. - (Dieter Beer/bs) 



1 REM *********************** 


2 REM * * 


3 REM * COMMODORE 16/116 * 


4 REM * * 


5 REM * DIETER BEER * 


6 REM * * 


7 REM *********************** 


10 REM 


12 PRINT CHR*<27> CHR*<78> 


13 KEY 1, "ACTION": KEY 2, "WESTERN" : KEY 3,"SPASS 


"s KEY 8," SCIENCE-FICTION"! KEY 4, "HORROR" 


14 KEY 5,"MUSIK" 


15 COLOR 0,7 


20 DIM D*<87,7> 


25 GOSUB 50060 


30 F*<1>= 


' TITEL<7SPACEJ" 


31 F*<2>= 


1 FILMARTi5SPACE>" 


32 F*<3)= 


' CASS.-NR. t3SPACE>" 


33 F*(4)= 


• 5EITE-C7SPACE>" 


34 F*<5)= 


1 STARTZEITOSPACEV 


35 F$<6)= 


' SPIELDAUERC2SPACE>" 


36 F*(7>=" BEWERTUNG-C3SPACEJ" 


99 GOTO 1000 


100 REM PROGRAMMKOPF 


130 PRINT "«XR>" 


140 FOR 1=1 TO 40: PRINT "=";s NEXT 


150 PRINT "<:i2SPACE>VIDE0VERWALTUNG" 



160 


FOR 1=1 TO 40: PRINT " = ";: NEXT 




170 


PRINT 




180 


RETURN 




200 


REM FEHLERMELDUNG 




230 


PRINT CHR*(19) ; 




240 


FOR X=l TO 21: PRINT CHR*U7> : : NEXT 




250 


PRINT CHR*U8>;FE*;CHR*(146> ; 




260. 


FOR X=l TO 1000: NEXT 




270 


RETURN 




300 


REM KOEPFE PROGRAMMTEILE 




330 


PT* ( 1 ) ~" 13SPACEJDATEI LADEN {3SPACE>" 




340 


PT*(2)=" DATEI SPEICHERN " 




350 


PT*(3>=" FILMEOSPACE>EINSEBEN" 




360 


PT*<4>=" FILMEC3SPACEJAENDERN " 




370 


PT$ < 5 ) = " F I LME C3SP ACE >LOESCHEN '* 




380 


PT* (6) =" FILME€3SPACE>AUSSEBEN" 




385 


PT*<7)=" TITEL-C3SPACEJLISTING " 




390 


PT* < 8 ) = " £4SP ACE JERKL AERUNG C3SP ACE > " 




395 


PT*<9)="PR0GRAMM BEENDEN " 




400 


PRINT "{CLRJ" 




410 


PRINT CHR*<30>; | 
PRINT " .U.C.C C.C.C.C C C C_C_C_C C C.C.t^C. I " 




420 




430 


PRINT "3";PT*(F>;"2" 




440 


PRINT " J.c b.c.c.c.c.c C c_c.c_c_c_c_ac.c_K." 




450 


RETURN 




500 


REM DATEN IM*RECHNER 




530 


IF Z>0 THEN 560 




540 


FE*="KEINE DATEN IM RECHNER" 




550 


SOSUB 200 




560 


RETURN 




1000 


VOL 8s SOUND 1,900,5s GOSUB 100 




1005 


PR INT CHR* (30> s ".UCC..C..C.C.C..C.C.C.C.CC.C.C.CC.C.C.C.I." 




1010 


PRINT "_§" ; "PROGRAMMFUNKTIQNENr " ; "1" 




1015 


PR I NT " 1 3 r C r C_C„C_C„C_C_C„C r Cj: r t:.C.C.C.C C.C.CX" 




1030 


PRINT 




1035 


PRINT " <RVS0N,27SPACE>" 




1040 


PRINT '* <RVS0N,3SPACE>-1-<:4SPACE>DATEI 
NC6SPACEJ" 


LADE 


1050 


PRINT " {RVS0N,3SPACE>- 2-<4SPACE>DATEI 
CHERN<!2SPACE?" 


SPEI 


1060 


PRINT " {RVS0N,3SPACE>-3~{:4SPACE>FILME 
EBEN{3SPACE5" 


EING 


1070 


PRINT " {RVS0N,3SPACE>-4-<:4SPACE>FILME 
ERN{4SPACE>" 


AEND 


1080 


PRINT " {RVS0N,3SPACE>-5-*4SPACEJFILME 
CHENC3SPACE>" 


LOES 


1090 


PRINT " -£RVS0N,3SPACE>-6--£4SPACE>FILME 
EBENOSPACE>" 


AUSB 


1100 


PRINT " <RVS0N,3SPACE>-7-<:4SPACE>TITEL 
INGC4SPACEV 


LIST 


1101 


PRINT " -CRVS0N,3SPACE>-B-<:4SPACEJERKLAERUNG 




t7SPACE>" 




1102 


PRINT " CRVS0N,3SPACE>-9-<;4SPACE>PR0GRAMM B 




EENDEN " 




1103 


PRINT " CRVS0N,27SPACE>" 




1105 


PRINT 


„ 


1110 


PRINT " t5SPACE>AUSWAHL " 




1115 


INPUT "<6SPACE> , 'sF 




1120 


IF F=0 OR F>9 THEN FE*="UN6UELTIGER WERT": 




GOSUB 200s GOTO 1000 




1125 


VOL 8: SOUND 1,900,5 




1130 


ON F GOTO 5000,10000,15000,20000,25000 
0, 40000, 45000, 35000 


3000 


5000 


REM DATEI LADEN 




5030 


GOSUB 300s PRINT 




5040 


PRINT "BITTE DATENKASSETTE EINLEGEN14SPACE} 


5050 


PRINT "<:down>und ZURUECKSPULEN !" 




5060 


PRINT "<;4D0WN>DRUECKE DANACH RETURN " 




5070 


INPUT X* 




5080 


PRINT 




5090 


OPEN 1,1,0, "VI DEO" 




5100 


INPUT#1,Z 




5110 


FOR Y=l TO Z 




5120 


FOR 1-1 TO 7 




5130 


INPUT#1,D*<Y,I) 




5140 


NEXT I 




5150 


NEXT Y 




5160 


CLOSE 1 




5170 


PRINT "DATEN SIND GELADEN i" 




5180 


FOR X=l TO 2000: NEXT 




5190 


GOTO 1000 




10000 REM DATEI SPEICHERN 




10040 GOSUB 300s PRINT 




10050 GOSUB 500s IF Z=0 THEN 1000 




10060 PRINT "BITTE DATENKASSETTE EINLEGEN " 





100 



SONDERHEFT 8/86 



33S? 



C16/C116 



ANWENDUNG 



PRINT "DATEN SIND GESPEICHERT 
2000: NEXT 



10t370 PRINT "{DOWNXJND ZURUECKSPULEN !": PRINT 

10080 PRINT "{DOWN>DRUECKE DANACH{3SPACE}RETURN" 

10090 INPUT X* 

10100 OPEN 1,1,1, "VIDEO" 

10110 PRINT#1,Z 

10120 FOR Y=l TO Z 

10130 FOR 1=1 TO 7 

10140 PRINT#1,D$<Y,I) 

10150 NEXT I 

10160 NEXT Y 

10170 CLOSE 1 

10180 PRINT 

10190 FOR X=l TO 

10200 GOTO 1000 

15000 REM FILME EINGEBEN 

15030 GOSUB 300 

15040 Z=Z+1 

15050 PRINT 

15060 FOR 1=1 TO 7 

15070 PRINT F*(I) ; 

15080 INPUT D*(Z,I) 

15090 PRINT : NEXT 

15100 PRINT 

15110 PRINT "EINGABE RICHTIG < J/N) " 

15120 X*= INPUT X* 

15130 IF X$="J" THEN 15160 

15140 IF X*="N" THEN Z=Z-1: GOTO 15000 

15150 PRINT CHR*<145);: GOTO 15110 

15160 PRINT "WEITERE EINGABEN (J/N)" 

15170 X*=""s INPUT X* 

15180 IF X$="J" THEN 15000 

15190 IF X*="N" THEN 1000 

15200 PRINT CHR*(145)s: GOTO 15160 

20000 REM FILME AENDERN 

20030 ZZ=1 

20040 GOSUB 300 

20050 PRINT 

20060 FOR 1=1 TO 7 

20070 PRINT I;F*(I);D*(ZZ,I)s PRINT 

20080 NEXT 

20090 BET X*: IF X*="" THEN 20090 

20100 IF X*<>" CLEFT}" AND X*<>" {RIGHT}" AND X*<> 

" " AND X*<>" CUP>" THEN 20090 
20110 IF X*=" CUP>" THEN 1000 
20120 IF X*=" {RIGHT >" AND ZZ<Z THEN ZZ=ZZ+1: GOT 

O 20040 
20130 IF X*="{LEFT}" AND ZZ>1 THEN ZZ=ZZ-1: GOTO 

20040 
20140 IF X*=" " THEN 20160 
20150 GOTO 20090 
20160 PRINT 

20170 INPUT "FELDNUMMER (1-7) ";X 
20180 IF X<1 OR X>7 THEN PRINT CHR* < 145) ; GOTO 20 

170 
20190 PRINT 

20200 INPUT "NEUER INHALT : 
20210 GOTO 20040 
25000 REM FILME LOESCHEN 
25030 GOSUB 300 
25040 PRINT 
25050 GOSUB 500 
25060 IF Z=0 THEN 1000 
25065 INPUT "TITEL{2SPACE>: 
25080 X=l 

25090 IF D*(X,1)=D1* THEN 25135 
25100 IF X<Z THEN X=X+1: GOTO 25090 
25110 FE*=" NAME NICHT GEFUNDEN ! " 
25120 GOSUB 200! GOTO 1000 
25130 GOSUB 300: PRINT 
25135 PRINT "{2UP3" 
25140 FOR 1=1 TO 7 
25145 PRINT F* < I ) : D* < X , I ) : PRINT 
25150 NEXT : PRINT 
25160 PRINT "FILMC2SPACEJL0ESCHEN ? (J/N) ": INP 

UT X* 
25170 IF X*="J" THEN 25200 
25180 IF X*="N" THEN 1000 
25190 PRINT CHR*(145>;: GOTO 25160 
25200 FOR Y=X TO Z-l 
25210 FOR 1=1 TO 7 
25220 D*(Y,I)=Df-(Y+l,I) 
25230 NEXT I 
25240 NEXT Y 
25250 Z=Z-1 
25260 GOTO 1000 
30000 REM FILME AUSGEBEN 



|D*(ZZ,X) 



':D1* 



30030 
30040 
30050 
30060 

30070 

30075 
30080 
30090 
301 00 
30110 
30120 
30130 
30140 
30150 
30160 
30170 
30180 
3.0190 
30200 
30210 
30220 
30230 
30240 
30245 
30250 
30260 
30270 
30280 
30285 
30290 

30300 
30310 
30320 
30330 
30340 
30350 
35000 
35030 
35040 
35050 
35060 
35070 
35080 
35090 
35100 
35110 
35120 
35130 

35140 
35150 
35160 

40000 
40010 

40020 

40030 
40040 
40050 
40060 
40070 
40080 
45000 
45010 
45020 

45030 

45040 

45050 



GOSUB 300: PRINT 

GOSUB 500 

IF Z=0 THEN 1000 

PRINT "DRUCKER ODER BILDSCHIRM (D/B> *' s IN 

PUT G$ 

IF G$<>"B" AND B$<>"D" THEN PRINT CHR*<145 

) ; : GOTO 30060 

IF. G*="D" THEN OPEN 1,4 

GOSUB 300: PRINT 

PRINT "SUCHBEGRIFFE: " 

PRINT " " 

PRINT 

FOR 1=1 TO 7: S*(I)="": NEXT 
FOR 1=1 TO 7 
PRINT F*(I> 5 
INPUT S*(I> 
PRINT : NEXT 
FOR Y=l TO Z 
S=0 

FOR 1=1 TO 7 

IF S*U> = "" THEN S=S+1: GO.TO 30220 
IF D*(Y,I)=S*U) THEN S=S*1 
NEXT I 

IF S<>7 THEN 30300 
IF G*="D" THEN PRINTS 
IF G*="B" THEN GOStJB 300s PRINT 
FOR 1=1 TO 7 

IF B*="B" THEN PRINT F*<I> ;D*<Y, I ) : PRINT 
IF G$="D" THEN PRINT#1 ,F* < I ) ;D*<Y, I) 
NEXT I 

IF G*="D" THEN 30300 

PRINT : INPUT "DRUECKEN SIE{2SPACE}RETURN" 
;X* 

NEXT Y 

GOSUB 300: PRINT 5 PRINT 
PRINT "DATE I ENDE " 
INPUT "DRUECKE{3SPACE}RETURN";X* 
IF G*="D" THEN CLOSE 1 
GOTO 1000 

REM PROGRAMM BEENDEN 
GOSUB 300: PRINT 
IF Z=0 THEN 35150 

PRINT "SIND ALLE DATEN GESICHERT (J/N)" 
INPUT X* 

IF X***"!^' THEN 1000 
IF X*="J" THEN 35100 
PRINT CHR*(145);s GOTO 35050 
GOSUB 300 

PRINT "{DOWN>DAS PROGRAMM KANN MIT" 
PRINT " {DOWN, 5SPACE} 'GOTO 1000'" 
PRINT "{DOWN>WIEDERGESTARTET WERDEN, OHNE 
DASS" 

PRINT "<DQWN}DATEN VERLOHREN BEHEN" 
PRINT 
END 

PRINT "{CLR,DDWN,13SPACE?TITEL LISTING" 
PRINT " {12SPACE}###############{2D0WN}" 
FOR U=l TO Z: PRINT " "D$(U,1)5S PRINT TAB 
(25) " {RVSON}"D*(U,2) " {DOWN}" 
GET KEY T* 
NEXT U 

PRINT "{3D0WN,J.2RIGHT}DRUECKE >RETURN< " 
GET KEY O* 

IF 0*<>CHR*(13) THEN 40060 
GOTO 1000 

PRINT " {CLR,2D0WN, 14RIGHT>ERKLAERUNG" 
PRINT " a 2R I GHT >##############" 
PRINT "{4D0WN,3RIGHT}DURCH DRUECKEN DER EN 
TSPRECHENDEN" 
PRINT " {D0WN,3RIGHT}FUNKTI0NSTASTEN LASSEN 

SICH DIE" 
PRINT " {DOWN,3RI6HT}VERSCHIEDENEN FILMARTE 
N EINGEBEN! " 
PRINT "{6C0WN,7RISHT,4SPACE}> EINE TASTE < 



45060 GET KEY PP*: GOTO 1000 

50000 PRINT "{CLR,22DOWN}" 

50005 PRINT " {RVSON} 1 - ACTION {3SPACE>2 - WESTE 

RN{3SPACE>3 - SPASSC3SPACE}" 
50010 PRINT "{RVSON} 4 - HORROR {3SPACE}5 - MUSIK 

<5SPAC£}8 - S.F. {3SP ACE, HOME}" 
50100 PRINT "{HOME}" CHR*(27) CHR*(84) 
50110 PRINT " {HOME, 23D0WN, LEFT}" CHR*(27) CHR*(6 

6) : RETURN 

Listing. Video-Verwaltung. 

Beachten Sie bitte die Eingabehinwerse auf Seite 130. 
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Plotten Sie Schachdiagramme auf dem VC 1520. 
Der schachbegeisterte Computer-Besitzer erhalt 
damit die Moglichkeit, Eroffnungsvarianten kar- 
teikartenahnlich zu sammein Oder sich eine 
Gedankenstiitze furs Fernschach zu erstellen. 

Wie man auf den beiden Diagrammen leicht erkennen 
kann, sind sie mit zwei verschiedenen Figurensat- 
zen erstellt worden. Eine einzelne Figur besteht 
aus zirka 45 Linien. Ein Figurensatz besteht also aus etwa 
5480 (45 x 2 x 6) Daten. Da diese beiden Figurensatze eine 
retne DATA-Wuste im Listing verursachen wurden und das 
Aussehen der Figuren ohnehin Geschmackssache ist, sind 
sie im Listing nicht'zufinden. Sie sind mit dem »SATZERSTEL- 
LER« {Listing 2) erstellt worden. Mit Hilfe der Satzerstellers 
lassen sich Figurensatze in etwa 20 Minuten erstellen. Der 
Satzersteller bietet folgende Moglichkeiten: 

- Mit Hilfe des Joysticks die Figur bequem und btldgetreu zu 
erstellen 

- Ein Minicursor und eine Koordinatenanzeige geben die 
Cursorposition an 

- Alle Punktkoordinaten werden auf dem Bildschirm ausge- 
geben *. 

- auf dem Bildschirm wird jeder Schritt wie auf dem Plotter 
nachvollzogen 

- Die Figur wird auf dem Plotter gezeichnet 

- Editiermoglichkeiten: (Joystick in Port 1) 

- Punkt setzen: FEUER 

- Punkt loschen: UNTEN + FEUER 

- Figur spiegeln: OBEN + FEUER 

- Neuer Anfangspunkt: RECHTS + FEUER, dann Punkt set- 
zen 

- Figur plotten: Taste <P> 

Diagramme wie gemalt 

Bei der Figurenerstellung kann man foigendermaBen vorge- 
hen: 

1. Schritt (nur fur Diskettenlaufwerk): ein sequentielles File 
eroffnen: OPEN2,8,2, ".FiLENAME,S,W":CLOSE2 

In Zeile 480: 480 OPEN2,8,2, "FILENAME.S.A" entspre- 
chend den Fifenamen einsetzen 

1a) fur Datasette: Zeile 480 in OPEN2,1,1 "FIGUREN" 
andern 

2. Die Figuren mussen in folgender Reihenfolge erstellt 
werden: Bauer - Springer - Laufer - Turm - Dame - Konig 

3. Es ist gunstig, fur alle Figuren die gleiche Starthohe (in 
den Diagrammen 44) zu benutzen. 

4. Die Figur darf aus 56 Punkten bestehen. (Mit Rucksicht 
auf 2048 Byte freien Speicher konnten die Arrays in Zeile 10 
nicht groBer gewahit werden.) 

5. Na.ch Druck der Taste <P> erscheintnach dem Plotten 
die Frage "DISK?" Bei Eingabe von < J> werden die Figur- 
daten an das Diskfile angehangt (Datasette: Daten als neues 
File). Bei <N> wird die Figur nicht gespeichert. Dann 
erscheint.ZURUCK/NEU/ENDE.Bei <Z> gehtman insBild 
mitdergeradeerstellten Figur zuriick. <N > : Neustart, sonst 
Programmende. 

Als Beispiel die Erstellung von »Satz 2«: 

Eine wichtige Hilfe zur Figurenerstellung ist die SPiEGEL- 
FUNKTION. Nach Wahten dieser wird an einer senkrechten 
gedachten Linie durch den tetzten Punkt die Figur auf die 



10 DIMBX%<60,5) ,CY7.<66,5> ,BR7.<7,7) :0PEN7,6,2:0PEN5 

,6,3: 0PEN4 ,6s VOLS 

20 PRINTCHR*(147> 

30 FORT=0TO1 

40 IFT=1THENPOKE2023, 19: PRINT" tH0ME>STELLUN6 SCHWA 

RZ s":ELSEPRINT" WQMEySTELUING WEISS : " 

50 PRINT 

60 FG=7 

70 FG=FG-1 -. IFFG=0THEN190 

80 READD*; SOUND 1,600, 20 

90 PRINTD*" ; {SPACE, RVBON, SPACE, RVOFFJ" : : POKE239.0 

: SOUND 1,700, 20 

100 GETKEYA*:KE=ASC<A;f) : IFA*="~"THENPRINT" -£LEFT>"A 

*:GOTO70 

110 IFKE<65QRKE>72THEN100 

120 PRINT" CLEFT> " A*" CRVSONj SPACE, RVOFFV; 

130 GETKEYA*:KF=ASC (A$) : IFHCF=20THENPRINT" -tLEFT,SPA 

CE,2LEFT t RVSON,SPACE,RVOFF>";:GOTO100 

140 IFKF<49ORKF>56THEN130 

150 PRINT" {LEFT >" A* "CRY SON, SPACE, RVOFF>"; 

160 GETKEYA*: IFASC ££*) O20ANDASC (A*) O13THEN160 

170 I F ASC < A* ) =20THENPR I NT " {LEFT , SPACE , 2LEFT , R VSON , 

SPACE, RVOFF>";:GOTD130 

180 BR7.<KE~65,KF-49>=FG+T*10:PRINT"O.EFT >"!GDTO90 

190 RESTORE : NEXT : POKE2023 , 

200 PRINT" -ECLRJDIAGRAMM MIT TEXT? (J/N) ":BETKEY6*: 

IFG*="N ,, THEN370 

210 PRINT" -CCLRJSTANDARDMUSTER ? < J/N) " : GETKEYG*: IFG 

*="N"THENPRINT" tCLR>" : GOTO270 

220 PRINT" -CCLRJ TURN I ER I " 

230 PRINT: PRINT"PARTIE NR. : " 

240 PRINT"WEISS€3SPACE>:" 

250 PRINT"SCHWARZ :" 

260 PRINT: PR INT "STELLUNG NACH DEM15SPACE>ZUB VON" 

270 F0RI=3432T03471:P0KEI, 160: NEXT 

280 0PEN14, 0: PRINT" CHOMEJ" 

290 INPUT#14,A* 

300 PRINT#5, 1 : FORI=3072TO3431 : BI=PEEK < I ) 

310 IFBK32THENBI=BI+64 

360 PRINT#4,CHR*(BI) j : NEXT: PRINT#4, "":PRINT#4, "" 

370 PRINT" -CCLR>WELCHEN FIBURENSATZ?" : PRINT 

3B0 RESTORE2000 

390 TA=TA+1:READSF*CTA): IFSF*(TA)="E"THEN410 

40O PRINT:PRINTTA". "SF* <TA> :GOTO390 

410 GETKEYG$:NJ=VAL(G*):IFNJ<1ORNJ>TA-1THEN410 

420 PRINT: PRINT"DISKETTE/CASSETTE (D/C) " 

430 GETKEYGE*: IFGE*O"D"ANDGE*O"C"THEN430 

440 IFBE*="D"THEN0PEN2,8,2,SF*CNJ)+",S,R"sELSE0PEN 

2,1,0,SF*(NJ) 

450 FORP=0TD5: INPUT#2,KP) :FOR6=0TOI (P) :INPUT#2,BX 

7„<B,P) : INPUT#2,CYX(G,P> :NEXT:NEXT 

460 CL0SE2 > 

470 OPEN1 ,6,1:PRINT#7,0 

480 FORI=0TO8: PRINTttl , "M" ,94,-1*48: PRINT#1 , "D" ,477 

, -1*48: PR INT#1,"M", 1*48+94,0 

490 PRINT#1 , "D" ,94+1*48,-384: NEXT 

500 FORI=0TO7: Y=-I*48: FQRB=©T07: X=G*48+94 

510 IF ( I+G) /2=INT ( ( 1+6) /2) THEN540 

520 FORD=0TQ3:PRINT#1 , "M" ,X ,-D*12+YsPRINT#l , "D" ,48 

-D*12+X,-48+Y:NEXT 

530 FQRD=©T02:PRINT#1 , "M" ,D*12+X+12,0+Y:PRINT#1 ,"D 

" , 4S+X , -36+ 1 2*D+Y : NEXT 

540 NEXT: NEXT 

550 FORM=7TO0STEP-1 : Y= (M-7) *48-4B 

560 FORN=0TO7:X=N*48+94 

570 IFBR7. i"N ,M) =0THEN650 

580 IFBR7.<N,M)>9THENP=BR7. (N,M) -1 1:PRINT#7, 1 ; GOTO60 

0:ELSEPRINT#7,3 

590 P=BRX(N,M)-1 

600 G=0 

610 PRINT#1 , "If" , BX7. (G , P) +X , 48-CYX <G,P) +Y 

620 G=G+1:IFG=I (P)THEN650 

630 IFBX7. (G , P ) =99T'HENG=G+ 1 : G0TD6 1 

640 PRINT#1,"D",BX7.(G,P)+X,4B-CY%(6,P)+Y:GOTG620 

650 NEXT: NEXT 

660 PRINT#1,"M",108,2 

670 PRINT#7,0:PRINT#5,2sCLOSE5 

680 PRINT#4,"A B C D E F B H"; 

690 FORM=0TO7:Y=-37-M*48jPRINT#l,"M",60,Y; 

700 PRINT#4,CHR*(56-M) ; jNEXT: SYS6551 1 

710 D AT A " KOEN I G " , " D AME " , " TURM " , " LAEUFER " , " SPR I NGER 

"," BAUER" 

2000 DATA"SATZ","2. SATZ","E" 

Listing 1. »Diagrammdrucker«. Vom C16 auf den VC 1520. 
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1© DIMBX7.(55> ,CY7.<55) : V0L8s COLOR0, 15,2:C0L0R4, 1:C0 

L0R1,2:GRAPHIC1,1 

20 X=160s Y=100:DRAW1 ,X,YsBOXl , 135,75, 185, 125 

30 GOSUB60sLOCATEX+C,Y+D: IFRDOT <2J=1THEN30 

40 DRAW0, X , Ys X=X+Cs Y=Y+Ds DRAW1 , X , Ys A*=RIGHT* (STR* ( 

X-136) ,2) :B*=RISHT*<STR*(Y-76) ,2) 

50 CHAR 1,4,2, "X-WERT : ";CHAR1 ,4,4, "Y-WERT :":CHAR1 

,14,2,A*:CHAR1,14,4,B*:GOTO30 

60 A=J0Y(2) : IFA=128ANDK=0THEN220 

70 IFA=12 C 7 I THEN300 

80 IFA=133ANDK=0ANDI>0THEN370 

90 BETA*: IFA*="P"THEN420 

100 IFAO131ORK=1THEN120 

110 K=l : BX% < I ) =99: CY7. ( I ) =99: SOUND1 ,550,20: Q=l : GOSU 

B260:GOTO60 

120 IFA=0ORA>127THEN60 

130 K=0:QNAGDTai40, 150, 160, 170, 180, 190,200,210 

140 C=0sD=-l 5 RETURN 

150 C=1:D=-1: RETURN 

160 C=1:D=0: RETURN 

170 C=1:D=1: RETURN 

180 C=0:D=1: RETURN 

190 C=-1:D=1: RETURN 

200 C=-1:D=0: RETURN 

210 C=-1:D=-1: RETURN. 

220 SOUND1,700,20:BX7.(I)=X-136:CY7.U>=Y-76:IFY>100 

THENY=Y-2: ELSEY=Y+2 

230 DRAWl,X,YsK=l: IFI=OTHEN260 

240 IFBX7.(I-1)=99THEN260 

250 DRAW1 ,BX7. (I-1)+136,CY7,( I~l ) +76T0BX'/.(I ) +136,CY7. 

<I)+76 

260 C*=RI6HT*(STR*.(I + 1> ,2>+" . "+RI6HT* <STR* <BX7.< I > 

) ,2)+","+RIGHT*(STR*(CYX<I> > ,2) 

270 IFI>15TH'ENP=25:G=-15sELSEP=2:Q=7 

280 IFI >39THENF-25: Q=-39 

290 CHAR1,P,I+Q,C*: 1=1+1: IFO=1THENO=0: RETURN! ELSE6 

OTG60 

300 L=I-1«J=BX*/,(L) 

310 FDRG=1TQI-1 s IFBX7. (L-G) < >99ANDTA< MTHEN340 

315 I FTA= 1 THENBXX ( I ) =-BX'/ < L-G > +2* J : CYX ( I ) =CYX ( L-G ) 

:TA=0:GQTO330 

320 BX7. 1 1 ) =BX7. (L-G) s CY7. < I ) =CY7. <L-6 ) : TA= 1 

330 D=liGOSUB260:GOTO360 

340 CY7. < I ) =CY7. (L-G ) : BX7. ( I ) =-BX7. < L-G ) +2* J 

350 O=1:GDSUB250 

360 NEXT : BX7. ( I ) =BX7. ( 0) : CY7. ( I ) =CY7. ( 0> : BQTD250 

370 1FI=0THEN60 

380 1=1-1 s IFI >0ANDBX7. < I )< >99THENDRAW0, BX7. ( 1-1 ) +136 

,CY7. ( 1-1 ) +76TDBX7. ( I ) +136,CY7. ( I > +76 

390 IFI >15THENP=25s Q=-15: ELSEP=2: Q=7 

400 SOUND 1 , 600 , 20: K= 1 s I F I >39THENP=25 : Q=-39 

410 CHAR1,P,I+Q,"€11SPACE>":GOTO60 

420 0PEN1,6, 1:G=0 

430 PRINT#1,"I1",220+BX7.(G) ,48-CY7.(G) 

440 G=G+ls IFG=ITHEN470 

450 IFBX7. (G) =99THENG=G+1 : GOTO430 

460 PRINT#1,"D",220+BX7.(G) ,4B~CY7.<G) :GOTO440 

470 GRAPHIC0: PRINT" -tCLR>DISK. " : P0KE239, 0: GETKEYA*: 

IFA*="N"THEN500 

480 0PEN2,8,2,"FILENAMEN,S,A" 

490 PRINT#2,I:FORG=0TOI:PRINT#2,BX7. (G> srPRINT#2,CYX 

(G) :NEXT:CL0SE2 

500 PRINT" £CLR}ZURUECK/NEU7ENDE":POKE239,0:GETKEYA 

*:IFA*="Z"THENSYS65511:GRAPHIC1,0:GOTO60 

510 IFAfO"E"THENRUN 

Listing 2. »Satzersteller«, fiir ihr eigenes Design 



10 DIM 17. (800) 

20 PRINT" CCLR3-DIE CASSETTE BIS ZUR ERSTEN FIGUR SP 

ULEN" 

30 PRINT:PRINT"DANN TASTE 'F' DRUECKEN" 

40 SETKEY6* : I F6*< > " F " THEN40 

50 F0RJ=1T06 

60 OPEN2,1,0,"FIGUREN" 

70 INPUT#2,IX(G) 

80 TA=IX(G) 

90 F0RN=1T0TA: INPUT#2,IX(G+N) :NEXT:G=G+TA+1 

100 CLOSE2:NEXT 

110 PR'INT-'ICLRJZIELCASSETTE EINLEGEN UND 'Z' DRUEC 

KEN" 

120 GETKEYG*: IFG*<> M Z "THEN 120 

130 INPUT"SATZNAME*';SA* 

140 0PEN2,1,1,SA* 

150 FORU=0TOG-1 : PRINT#2, 17. (U) : NEXT: CL0SE2 

160 PRINT:PRINT"FERTIG" 

Listing 3. »Tape-Hilfe« ermoglicht die Verwendung einer 
Datasette 



C~l6 ptu$* 



Das RP-Graphic-System 

Tausende Commodore-Anwender kennen das RP-System fur den 
C-64. Dieses Superprogramm inspirierte uns, das RP-Graphic-System 
fur den C-16/plus 4 zu enfwickeln, 

Damit Einsteiger und Fortgeschrittene die Fdhigkeiten ifires C-16 Oder 
plus 4 noch schneller und besser nutzen konnen, [>'"i 



mm 



Das RP-Graphic-System stetit eine groSe Anzahl von Shapes (Here, 
Maschinen, Raumschiffe, us.w,) und Shapesequenzen zursofortigen 
Verwendung bereit. Und nafurlich die Programme, die Leben in die 
Shapesequenzen bringen. Alles zum Einbau in eigene Programme. 
Die von uns entwickelten RP-Shape-Routinen arbeiten ubrigens ahn- 
iich wie die bekannten Sprites vom C-64. 

Nun konnen auch C-16-Anwender an der Software-Revolution teilha- 
ben.WenigeBasiczeilengenugen,umz, B, eine Horde Indianergegen 
ein Kavallerieregimentreiten zu lassen, ein Raumschiff weichzu Ian- 
den, Bomben abzuwerfen und explodieren zu lassen. 

Im System enfhalten: 

____ 3 Demospiele 

BMX-TRIAL: Von einem aktiven BMX-ier 
entwickelt und mitdem RP-Graphic-System 
programmiert. 

GRAND NATIONAL: Ein spannendes 
Pferderennen mit Wetten auf Platz und Sieg 

SLALOM: Ein superschnelles Sportspie!, 
bei dem Sie einen Skilduferfehlerfrei durch 
die Torstangen manovrieren miissen. 

AuBerdem: 3 Hirespictures aus dem Pro- 
gramm „MISS ALL NUDE AMERICA" 

Alles zusammen nur 29,90 DM auf Disk oder Kassette 
Bestellnr.: Disk: RPG 14 D, Kassette: RPG 16 K 



Ausscnneiden und einsendert an: Ausldiid: nur Bargeld 

BRIUANT SOFTWARE U.Schfidel Westring 59c 3440 Eschwege 

Bestellung per: D Vorkasse (Scheck Bargeld) Q Bankuberweisung 
D Nachnahme (+ 4 DM NN-Gebuhren) 
Bei Bestellungen unter 100 DM + 2,50 DM Porto 



Anzahl 



Name. 
StraBe 



Besteilnr. 



DM 
DM 
DM 



Wohnort . 



bitte deutlich schreiben 
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SCHLUSSKOMBINATION DER 
' IMMERGRUENEN' PARTIE 
A.ANDERSSEN - J .DUFRESNE 
S'T EL-LUNG" NACH 19. TA1 - Dl ! 
19. ... D*F3 20. TXE7+S8 S*E7 
21. D*D7+!!! K*D7 22. LF5++ KE8 
23. LD7+ KD8 24. L*E7 MATT! 
GESPIELT 1852 IN BERLIN 



ABCDEFGH 




STELLUNG DER GESCHLOSSENEN 
SIZILIANISCHEN UERTEIDIGUNG NACH : 
1 . E4 C5 2. SC3 SC6 3 . G3 G6 
4. LG2 LG7 5 . D3 D6 6. F4 E6 
7. SF3 SGE7 8. 0-0 . .. 

2.B. : 8. ... TBS 9 . E5 ! D5 + = 

ODER : 8. ... 0-0 9. TBI TB8 

10. TBI B5 11. A3 A5 12. A4 5 += 



ABCDEFGH 




Schachgrafiken mit dem 1520-Plotter 



Der Text kann frei eingegeben werden 



andere Seite gespiegelt. AuBerdem wird der letzte Punkt mit 
dem ersten verbunden. Normaierweise werden die Punkte 
vom Programm direkt verbunden, also wird die Figur ohne 
Absetzen gezeichnet. In manchen Fallen erscheintdiesaber 
nicht sinnvoll, zum Beispiel beim Auge des Springers Oder 
den waagerechten Turmverstrebungen. Dabei bedient man 
sich der Technik des »NEUEN ANFANGSPUNKT SETZEN«, 
das Programm reagiertnach Joystick rechts + Feuer mit 
einem Ton und Punktkoordinaten 99,99. Nun kann der neue 
Anfangspunkt angefahren werden. 

Bei uber 40 Punkten werden die folgenden wieder rechts 
oben angezeigt. 

Diagrammdrucker (Listing 1): Nach Starten dieses Pro- 
grammes muB zuerst die Stellung auf die ubliche Art (Konig: 
C1 und so weiter) eingegeben werden. Diesgeschiehtdurch 
eine mit GET fur diese Anwendung geschriebene Eingabe- 
routine. Eine Eingabe schlieBt mit mit < RETURN > ab. 
Geloscht werden kann mit <DEL>. Durch <-> erkennt 
das Programm, daB von der einzugebenden Figur alle einge- 
geben worden sind. 

Audi fur Kassetfe 



Nach Eingabe der Position kann man wahlen, ob man sein 
Diagramm mit Text drucken will. Weiterhin kann man entschei- 
den, ob ein Standardmuster (Turnier, etc.), das fur Turnier- 
schach besondersgeeignetist, gewahlt werden soil. Der Text 
kann nun frei auf dem Bildschirm (bis zum Baiken) eingege- 
ben werden und wird mit < RETURN > abgeschlossen. Nach 
dem Drucken erscheint eine Auswahi der erstellten Figuren- 
satze, deren Namen ab Zeife 2000 eingegeben werden mus- 
sen und mit < E> abgeschlossen werden sollten. Nach dem 
Laden der Daten wird das Diagramm gedruckt. 

Kassettenhilfe: Das Programm ist eigentlich fur das Disket- 
teniaufwerk erdacht, doch mit folgender Methode laBt sich 



ein geeignetes File auf Datasette erzeugen: 

1. Fur jede Figur ein File »Figuren« erstellen. 

2. Diese sechs Files zu einem zusammenfassen. Diese Auf- 
gabe konnte Listing 3 »Tape-Hilfe« ubemehmen. 

Anpassung an den C 64: Der Satzersteller konnte mit einer 
Basic-Erweiterung die Befehle fiir hochauflosende Grafik 
(zum Beispiel Simons Basic) leicht umgeschrieben und dabei 
dank des groBeren Speicherplatzes komfortabler gestaitet 
werden. Der Diagrammdrucker laBt sich leicht im C64-Basic 
fur den C64 umschreiben. Lediglich einige GETKEY, IF 
THEN ELSE und ein RESTORE X muBten umgeformt werden. 
DO LOOP oder andere Basic-3.5-Konstruktionen sind in kei- 
nem Programm benutzt worden. Etwas unubersicbtlichere 
FOR-NEXT und IF-THEN-Konstruktionen sind zur besseren 
Anpassung an den C64/VC 20 verwendet worden. 

(M. Wesner/og) 
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ANWENDUNG 



Einsteins Geburtstag 



Wollen Sie wissen, ob Einstein ein Sonntagskind 
war? Mit dem Programm »Wochentag« konnen 
Sie es feststellen. 

Oft weiB man das Datum von einem besonderen Tag, 
aber nicht den dazugehorigen Wochentag. Beim Pro- 
gramm »Wochentag« brauchen Sie nur das ent- 
sprechende Datum eingeben und schon wissen Sie den 
dazugehorigen Wochentag. Selbstverstandlich werden die 
Schaltjahre dabei berucksichtigt. 

Nachdem Sie das Listing eingegeben und das Programm 
mit »RUN« gestartet haben,- konnen Sie eine Notiz eingeben, 
wie beispielsweise einen Namen. Spater erscheint diese Ein- 
gabe links oben am Bildschirm. Wollen Sie auf eine Notiz ver- 
zichten, so drucken Sie einfach < RETURN >. 

Auf der nun foigenden BHdschirmmaske wird rechts oben 
die Zeit in Stunden, Minuten und Sekunden angegeben. 
Diese Angabe erfoigt einmalig beim Anspringen der Bild- 
schirmmaske. Vor dem Starten des Programms konnen Sie 

mit Tl$=" " {6steliige Zahl fur Stunden, Minuten und 

Sekunden} die Zeit einstelien. Haben §ie dies nicht getan, so 
konnen Sie mit der Zeitangabe die jeweiligen Bearbeitungs- 
zeiten feststellen. 

Mit dem Format »TTMMJJJJ« geben Sie Tag, Jahr und 
Monat des gewGnschten Datums ein. Das Jahr muB vierstel- 
lig eingegeben werden. Bis 1582 durfen Sie zuruck in die 
Geschichte greifen, Nach < RETURN > wird das eingege- 
bene Datum auf Richtigkeit uberpruft. War alles richtig, so 



wird anschlieBend der zugehorige Wochentag auf dem Biid- 
schirm angezeigt. 

Finden Sie doch einmal heraus, wer aus Ihrer Verwandt- 
schaft ein Sonntagskind ist oder ob Vater, GroBvater und 
UrgroBvater vielleicht am gleichen Tag geboren wurden. Sie 
konnen auchjetzt schon herausfinden, an welchem Wochen- 
tag Sie Ihren 50. Geburtstag feiern werden. 

(J.Hagen/kn) 




10 REM ERMITTLUNB DER WOCHENTAGE VON J. HAGEN 
30 B*="SAMSTAG€3SPACE>S0NNTAGt3SPACE>MaNTAG£4SPA 

CE>DIENSTAG<2SPACE}MITTW0CH{2SPACE>D0NNERSTAG 

PRE I T AG {3SPACE > " 
40 P*= " £BSP ACE > " s A*=P$ s OS=CHR* (145): L*=CHR*( 1 

57) 
60 SCNCLR ; PRINT : PRINT : INPUT " {5SPACE>N0TIZ 

: " ; A* 
90 DO 
100 SCNCLR : D*="TT. MM, JJJJ"s PRINT s PRINT " "5 

A*; 
130 PRINT TAB(31) MID* tTI*, 1 ,2) ; ": H ;MID* (TI*,3,2 

);": ";MID*(TI*,5,2): PRINT s PRINT 
180 PRINT TAB (07) "ERMITTLUNG DES WOCHENTAGEB" 
190 PRINT TAB ( 06 ) " ============================ " : 

PRINT : PRINT : PRINT 
210 PRINT : PRINT TAB<11) "DATUM C3SPACE>"; D*j 
230 FOR X=l TO 12: PRINT DP; : NEXT X 
260 INPUT D$ 

270 MID*(P$,1,2)=MID*<D$,1,2> 
280 MID*(P*,3,2)=MID*(D*,4,2> 
290 MID*(P*,5,4)=MID*(D* T 7,4) 
300 FOR K=l TO 7 



310 IF ASC(MID*(P*,K,1) ) 

) ) > 57 THEN 740 
320 NEXT K 

330 T=VAL(MID*(P*,1,2) ) 
340 M=VALCMID*(P*,3,2) ) 
350 J=VAL(MID*(P*,5,4> ) 
360 IF J<1 582 THEN 740 
370 IF M<1 OR M>12 THEN 740 
3S0 IF T<1 OR T>31 THEN 740 
390 IF M=4 AND T>30 THEN 740 



48 OR ASC(MID*CP*,K, 1 



400 
41© 
426 
430 
440 
450 
460 
430 
500 
510 

540 



580 

620 
630 
650 

690 
710 
730 
740 

790 

800 

820 
830 
860 
870 

920 



IF M=6 AND T>30 THEN 740 
IF M=9 AND T>30 THEN 740 
IF M=ll AND T>30 THEN 740 
IF M=2 AND T>29 THEN 740 
IF M=2 AND T<29 THEN 480 
IF M<>2 THEN 480 

A=INT(J/4>: B=A*4: IF JOB THEN 740 
GOSUB 790 

PRINT O*;: PRINT TAB(11)"DER<:5SPACE>"; 
PRINT Mlb*(P*,l,2>;".";MID*<P* f 3,2) J " . ";MID* 
(P*,5,4) 

PRINT : PRINT : PRINT TAB (08) "IST / WARC2SPA 
CE>EIN<2SPACE>";MID*(B*,W*10+l T 10)s PRINT : 
PRINT 

PRINT : PRINT : PRINT TAB( 12) "WEITER J / NC3 
SPACE}J";L*;L*;L*;s INPUT C* 
IF C*="J" GOTO 690 
IF C*="N" GOTO 690 

PRINT s PRINT TAB(08)"UNGUELTIGE EINGABE !"; 
O*;0*;O*;O*;O*! GOTO 580 
LOOP UNTIL C* = "N" 

PRINT s PRINT TAB (08) " C20SPACE>" : PRINT 
END 

PRINT ; PRINT : PRINT TAB (08) "UNGUELTIGES DA 
TUMC2SPACE>! ";0*;a*;0*;0*;; GOTO 210 
REM RECHNEN 

U=365*J+31*(M-1)+T: IF M>2 THEN 830 
GOTO 860 

Y=INT(0,4*M+2-3) s V=U-Ys GOTO 870 
V=U: J=J-1 
S=INT(J/4)5 T=INT(J/100) s T=INT ( (T+l ) *0. 75) s 

S=S-Ts X=V+S 
G=INT(X/7)s W=X-G*7: RETURN 



Listing. Das Programm »Wochentag« errechnet ftir ein Datum den zugehorigen Wochentag. 
Beachten Sie bitte die Eingabehinweise auf Seite 130. 
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ANWENDUNG 



C16, C116, Plus/4 



Hypotheken 
berechnen 



Wie teuer kommt Ihr Haus wirklich? Mit diesem 
Programm konnen Sie die tatsachlichen Kosten 
berechnen. 

Sie wollen sich ein Haus, eine Eigentumswohnung oder 
etwas ahnliches zuiegen? Mit dem Programm »Hypo- 
thek« (Bild) konnen Sie die Kosten durch Hypotheken 
oder Kredite schnell ermitteln. Sicherlich werden Sie nicht 
jeden Einzeifali durch dieses relativ kurze Programm 
abdecken konnen. Docn zumindest erhalten Sie einen ersten 
Uberblick uber die Belastungen. 

Das Programm ermittelt fur einen bestimmten Kredit- oder 
Hypothekbetrag nebst dem dazugehorigen Zins- und Til- 
gungssatz die Monatsraten. AnschlieBend werden die Zins- 
und Tilgungsbetrage und der noch offene Kredit fur jedes 
Jahr berechnet, bis die endgultige Tilgung erreicht ist. 

Kommen wir nun zum Programm selbst Wenn Sie das 
Listing eingegeben und das Programm mit <RUN> gestar- 
tet haben, konnen Sie zunachst eine Notiz (Name, Datum, 
etc.) eingeben. Ist dies nicht ejrforderlich, dann drucken Sie 
< RETURN >. Nun kommen S)e zu der eigentlichen Bild- 
schirmmaske des Programms. Oben rechts finden Sie eine 
Zeitangabe. Sie konnen entweder vor dem Programmstart 
uber Tf$ die tatsachliche Zeit eingeben, oder mit der Angabe 
im Bildschirm die Bearbeitungszeit feststellen. 

Ais erstes werden Sie nun nach der Kredithohe gefragt. Es 
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Bild. Das Programm »Hypothek«. Ein Kredit iiber 250000 Mark 
wurde hier berechnet. i 



folgen der Zins- und Tilgungssatz. Alle Eingaben mussen 
numerisch und (auBertiem Zinssatz) groBer Null sein. Mit 
dem Zinssatz ist der Effektivzins gemeint. Wenn Sie einen Til- 
gungssatz von 1,14% eingeben, ergibt sich ubrigens eine 
Laufzeit von 30 Jahren fur den Kredit. 

Nach der vollstandigen Eingabe erscheint auf dem Biid- 
schirm diezu zahlende Monatsrate. Darunter werden die jahr- 
lichen Werte ausgegeben. Dabei uberscnreiben die neuen 
Jahreswerte die alten. Urn die Obersicht zu behalten, 
geschieht dies mit einer zeitlichen Verzogerung. Sobaid der 
offene Kredit den Wert Null erreicht hat, erscheinen die Sum- 
men und die Dauer der Ruckzahlung. 

Mit der Taste < RETURN > konnen Sie einen neuen Bear- 
beitungsvorgang aufrufen. Ein »N« fur Nein beendet das Pro- 
gramm. (J. Hagen/kn) 



10 REM HYPOTHEK VON J. HABEN 

20 P*="CBSPACE>": D*»P*: 0*»CHR*<145) t L*-CHR*<1 

57) 
30 SCNCLR : PRINT s' PRINT 8 INPUT " <5SPACE>N0TIZ 

s ";D* 
40 DO 

50 TG»0: ZG-0t A«0: T-0t Z=0: K»0 
60 SCNCLR i PRINT > PRINT " ":D*5 
70 PRINT TAB(3i) MID* (TI*, 1 ,2) j "i " jMID* <TI*,3,2> 

!":"jKID*<TI*,5 t 2) 
80 PRINT TABU2)"H Y P O T H E K" 
90 PRINT TAB< 11 )"«-■==««-»»- ——««'• , PRINT 
100 PRINT TAB(ll)"KREDIT~H0EHE<:3SPACE>"j: INPUT 

K 
110 IF K< 9999999. 01 THEN 130 
120 PRINT J PRINT TAB < 06) "KREDIT ZU HOCH !";; BO 

TQ 150 
130 IF K>0 THEN 160 

140 PRINT s PRINT TAB (06) "KREDIT NICHT > 0"j 
150 PRINT Q*:D*:Q*: BOTO 100 
160 PRINT 
170 PRINT TAB(06)"<5SPACE>ZINS-SATZ IN X "ft INP 

UT Z 
1B0 IF Z<0 THEN 220 
190 IF Z>100 THEN 210 
200 GOTO 240 
210 PRINT 1 PRINT TAB(06)"ZINB 1ST ZU HOCH"js 60 

TO 230 
220 PRINT t PRINT TAB(06)"ZINS IST NEBATIV"; 
230 PRINT 0*jO*aO*: BOTO 170 
240 PRINT 
250 PRINT TAB(06)"{5SPACE>TILBUNBt33PACE>IN % "j 

1 INPUT T 
260 IF T>100 THEN 290 
270 IF T>0 THEN 320 
280 GOTO 300 
290 PRINT 1 PRINT TAB (06) "TILGUNBC2SPACE>ZU HOCH 

"js GOTO 310 



300 PRINT s PRINT TAB (06) "TILGUNG NICHT > 0"; 

310 PRINT 0*j 0**0*3 SOTO 250 

320 JR~K*(Z+T>/100: OK-K 

330 PRINT s PRINT TAB (06) " <5SPACE>MONATS~RATE{2S 

PACE >- <2SP ACE > " ; JR/ 1 2 
340 FOR X-l TO 1000J NEXT X 
350 PRINT t PRINT s PRINT " C7SPACE>ZINSEN<6SPACE 

>TILGUNGC7SPACE>KREDIT": PRINT 
360 FOR X=l TO 500s NEXT X 
370 BZ-OK*Z/100s BT«JR-BZ; OK=OK~BT: TG~TG+BT» Z 

G=ZG+BZ 
3B0 PRINT USINB "##,###,###. ##";BZ; » 

390 PRINT USING "##,###,###.##"5 BTi 
400 PRINT USING "##,###,###.##"; OK: A-A+l 
410 FOR X=l TO 300: NEXT X 
420 IF OK<-0 THEN 460 
430 PRINT O*; 0*a IF QK<JR THEN 450 
440 GOTO 370 
450 JR=OK: BZ-OK«Z/100: BT»OK: T6=TG+BT: ZG-ZG+B 

Z: OK=OK-BTs BOTO 380 

460 PRINT " » 

470 PRINT USING "##,###,###.##"5 ZG5 

480. PRINT USING "##,###,###.##"; TGs. 

490 PRINT "<2SPACE>"s.A5"JAHR<E>" 

500 PRINT " =-=====™== =—-===«=.=-«•■ 

510 PRINT : PRINT TAB (09) " <20SPACEJ" 

520 PRINT TAB<09)"NOCH EINMALC2SPACE>J / NC3SPAC 

E>J"5L*;L*?L*;: INPUT F* 
530 IF F*="J" GOTO 560 
540 IF F*=*"N" GOTO 560 
550 PRINT : PRINT TAB<09)' 

0*!0*;0*: GOTO 520 
560 LOOP UNTIL F*-"N" 
570 PRINT : PRINT TAB<09) 
580 END 



UNGUELTIBE EINGABE 



C20SPACE > " J O* j O* ; O* 



; 



Listing. "Hypotheken berechnen«. 

Bitte beachten Sie die Eingabehinweise auf Seite 130. 
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K&pierschufz und 
Kopierprogramme! 

Wir beriehten iiber 

den ewigen Wettlauf 

zwischen beiden und 

erlautern wie sie 

funkiionieren. 



... aufterdem lesen Sie: 



■ 64'er-Ext ro: Sdtaltpfan lies C 64 ■ 
Hardwarebasteleiem So machen Sie Ihren 
MPS 802 voll grafikfahigV Selbstbauanlei- 
tung fur das komfortabfe Interface 
IEEE-488 ■ (m lest: »Technicu$« f das 
Dfvdcerhilfspakef /»Prinfshop Compa- 
iiioiKc, die interessanten Druckerprogram- 
me, die mehr aus Ihrem Drucker ma- 
chen/ 1551, das schnetlste Floppy-lauf- 
werk fur den C 16 und Pius/4/RS232, die 
sdineliste Schnittstelle bis 9600 Bit/s fur 
C64/Spitzen Assembler »Assi« und 
»Turbo-Ass« im Vergleich. ■ Neuigkeiten 
von der CIS in USA ■ Viefe Tips&lriiks und 
listings. '. 

Mil Sie »64'er« nech nicht regelma- 
flig beziehen, sichem Sie sidi jetzt Ihr per- 
sonlkhes Abennement und nutzen die da- 
mit verbundenen Vorteile: ■ Sie beziehen 
»64'er« ohne Mehrkosten becjuem per 
Post! raiHaus ■ Sie haben ihr »64'er« he- 
reits bei sich zu House — nodi bevor Sie es 
bei Ihrem Zeifschriftenhandler kaufen 
kbnnen. ■ Sie sind sicker, keine Ausgabe 
zu versaumen. 

Sieerhalten-wennSiezurAnforderung 
den nehenstehenden Gutschein verwenden 
— auff alio Falle die neuesfe Ausgabe als 
Probeheft unverbindiich und kostenlos. 
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Gutschein 

FUR EIN KOSTENLOSES PROBEEXEMPLAR DES 64'er-MAGAZINS 

JA, ich mochte »64'er«, das Magazin fiir Computerfans, kennenlernen. 

Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »64'er« gefallt und ich 
es regelmoBig weiferbeziehen mochte, brauche ich nichfe zu tun: Ich erhalte »64'er« dann regelmaBig frei 
Haus per Post und bezahle pro Jahr nur DM 78,— (Ausland auf Anfrage). 



Vorname, Name 



StraBe 



PLZ, Ort 



Datum 



Unteischrift 



Mir ist bekannt, daft ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann 
und bestatige dies durch meine zweite Unterschrifl. Zur Wahrung der Frist genugt die rechtzeitige Absendung 
des Widerrufs. 



Datum 



2. Unterschrift 



Gutschein ausfuilen, ausschneiden, in ein Kuvert stecken und obsenden an: 
Markt&Technik Verlag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haor 



GRAFIK 



C16/C116 



Graf ik lekhfgemacht 




Etn Bild, das mit »Grafik 16« erstellt wurde 



Viel Platz zum Programmieren bleibt nicht mehr, 
wenn Sie beim C16 im Grafik-Modus arbeiten. 
Dennoch bietet »Grafik 16« einigen Komfort, 
wenn Sie Grafiken erstellen wollen. 

Zwei KByte Basic-Speicher bei eingeschalteter Grafik 
sind nicht viel. Naturlich kann man kein Super- 
Programm wie etwa Hi-Eddi fur den C64 in einem so 
kleinen Speicherbereicb unterbringen. Aber mit den komfor- 
tablen Grafikbefehlen des C16 laGt sich doch schon aller- 
hand anfangen, wie Sie in der. Abbildung sehen konnen. 



Program mubersicht 


Zeile 10 


Dimensionierung. Datasette oder Floppy? 
HiRes oder Multicolor? 


Zeile 20 


Anfangswerte eirtsteilen. 


Zeile 30 bis 50 


Pfeil und Radiergummi zeichnen und als 
Shapes speichern. 


Zeile 50 


Aktuelles Shape auf den Bildschirm bringen. 


Zeite 60 


Tastaturabfrage und Shape loschen. 


Zeile 70 bis 190 


Befehle auf Grenzwerte testen und 
ausfuhren. Shape wieder auf den Bildschirm 
bringen. 


Zeile 200 


Nach < P > Shape auf Speicherposition brin- 
gen und nach Tastendruck wieder loschen. 


Zeile 210 bis 250 


Speiohern und Laden von Bildern uber den 
Monitor, gegebenenfalis Name eingeben. 


Zeile 260 bis 360 


Andern der Farben nach <W>. 

Zeile 270 Aktuelle Zeichenfarbe anzeigen. 

Zeile 280 Farb- und Luminanzwerte der 
Farbnummem einlesen. 

Zeile 290 Tastaturabfrage und Farbe anzei- 
gen. 

Zeile 300 Befehle auf Grenzwerte testen 

bis 360 und ausfuhren. Farbnummem 
neue Farben zuordnert. 


Zeile 370 


Taste <STOP> abfangen. 



Tabelle. Dbersicht zu dem Programm »Grafik 16« 



Bei dem Programm »Grafik 16« ist der verbleibende Basic- 
Speicher voll ausgenutzt. Versuchen Sie daher nicht, das 
Programm zu erweitern. Wenn Sie keine Speichererweite- 
rung eingebaut haben, wurde dies unweigeriich zum Absturz 
des Programms fuhren. 

Kommen wir aber nun zur Beschreibung des Programms, 
Sie werden merken, daB einiges geboten wird. 

Wenn Sie das Listing eingegeben und das Programm mit 
»RUN« gestartet haben, tut sich zunachst einmal gar nichts. 
Siemussennunzuerstwahlen, ob Sie im HiRes- (Taste <1 >) 
oder Multicolor-Modus (Taste < 2 >). arbeiten wollen. Im 
HiRes-Modus gibt es zwei Farben, wahrend Ihnen bei Multi- 
color vier Farben zur Verfugung stehen. Beim Erstellen der 
Gratiken konnen Sie die Farben mit den Tasten <1 > und 

< 2 > beziehungsweise <1 > bis. < 4 > anwahlen. Vom Pro- 
gramm wird arifangs die Farbe 1 eingestellt. 

Grafik in Farbe 

Uber die Taste <W> konnen Sie einer Farbnummer auch 
verschiedene Farben zuordnen. Nach dem Betatigen der 
Taste erscheint unten ein Fenster mit der aktueilen Zeichen- 
farbe. Darunter ist die Nummer einer Farbe neben der ent- 
sprechenden Farbprobe eingeblendet. Mit den Cursor- 
Tasten < Links > und <Rechts> konnen Sie die Farbnum- 
mer aufrufen, durch <Hoch> und <Runter> ordnen Sie 
eine beiiebige Farbe zu. Mit < + > und < - > wird die Hellig- 
keit (Luminanz) aller Farben verandert, Wenn Sie eine andere 
Farbe auch fur das Bild ubernehmen wollen, dann drucken Sie 

< RETURN >. Durch <STOP> kehren Sie zuruck zu Ihrem 
Grafikbildschirm. 

Mit den Cursor-Tasten konnen Sie den Malpfeil nach oben, 
unten, rechts und links bewegen. Aber auch diagonale Posi- 
tionsveranderungen sind mogiich. Mit <@> nach oben- 
iinks, < + > nach oben-rechts, < * > nach unten-rechts und 
mit <;> nach unten-links. 

Nach dem Starten des Programms verandert der Malpfeil 
seine Position je Tastendruck nur pixelweise. Eine sehr 
genaue Positionierung ist dadurch mogiich. Sie konnen aber 
auch Sprunge von bis zu 20 Pixeln hervorrufen. Mit der Taste 
<.> werden die Sprunge grbBer, mit < f > kleiner. Uber 
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SONDERHEFT 8/86 



C16/C116 



GRAFIK 



<SHIFT+.> und <SHIFT+,> konnen Sie dire kt z wise hen 
20 und 1 Pixel wechsein. in der Praxis erweist sich dies als 
sehr nutzlich. 

Mit < HOME > konnen Sie die aktueile Position speichern. 
Eine Linie von der letzten Speicherposition zur derzeitigen 
Position des Malpfeils wird mit < L> gezogen. Recht hiifreich 
ist: uber <P> konnen Sie stets die letzte Speicherposition 
abfragen. Nacheinem beliebigenTastendruckistderMalpfeil 
wieder an der vorherigen Stelie. 

Nach <V> wird ein Viereck zwischen der Speicherposi- 
tion und dem Malpfeil gezeichnet. Ein <Q> anstelle von 
<V> sorgt dafiir, daB gleich ein ausgefulltes Viereck 
gezeichnet wird. Ein Kreis um die Speicherposition entsteht, 
wenn Sie <K> drucken. Der Radius entspricht dem 
Abstand zwischen Speicherposition und Malpfeil. <0> 
erzeugt eine Ellipse. Die beiden Radien entsprechen dabei 
den Kantenlangen jenes Vierecks, das Sie in dieser Position 
aufrufen konnten. 

Viele Funkf ionen 



Mit <Z> gelangenSieindensogenanntenZeichen-Modus. 
Hier wird an jeder neuen Position des Malpfeils ein Punkt 
gesetzt Wenn Sie den Pfeil nur pixelweise wandern lassen, 
entsteht so eine Linie. Durch < ESC> verlassen Sie diesen 
Modus. 

Durch <T> istesm6glich,TextindieZeichnungeinzubrin- 
gen. Der Text muB in ein zunachst erscheinendes Fenster 
eingegeben werden. Der Malpfeil befindet sich ubrigens am 
linken Textrand, in der Mitte der Texthohe. Geben Sie den Text 
aus dem Zeichen- Modus ein, so erscheint er anschlieBend 
revers. 

Uber den Befehl <F> konnen Sie geschiossene Berei- 
che ausfuilen. Dieser Vorgang laBt sich mit der Taste 
<STOP> abbrechen. Achten Sie darauf, daB dieser Befehl 
sich nur auf Flachen bezieht, die in der gieichen Farbe einge- 
grenzt wurden. Wollen Sie beispielsweise einen in der Farbe 
1 eingegebenen Kreis mit der Farbe 2 fallen, so kann even- 
tual der ganze Biidschirm mit der Farbe 2 / ausgefulit werden. 
Auch wenn Sie einer Farbnummer wahrend Ihrer Arbeit uber 
< W> eineandere Farbe zuordnen, konnen Schwierigkeiten 
auftreten. 

Wenn Sie die Taste < R > drucken, erscheint auf dem Biid- 
schirm ein Radiergummi. Nachdem dieser Befehl aufgerufen 
wurde, ist die Schrittweite zunachst automatisch auf 1 Pixel 
eingestellt, um kleine Bereiehe loschen zu konnen. Mit 
< ESC > verlassen Sie den Losch-Modus. 



Bilder speichern 



Vorsichtig sollten Sie mit dem Befehl < SHIFT + CLEAR/ 
HOME > umgehen, denn damit wird der gesamte Biidschirm 
geloscht. Verwechseln Sie ihn bitte nicht mit »Position spei- 
chern«, wobei die gleiche Taste ohne < SHIFT > benutzt 
wird. 

Als letztes kommen wir dazu, wie Bilder gespeichert und 
geladen werden. Dies erfolgt mit <C= + S> fur Speichern 
und <C= + L> fur Laden. Nach dem Aufruf des Befehls 
konnen Sie jeweils den Dateinamen eingeben. Das Laden 
und Speichern erfolgt uber den eingebauten Monitor >TED- 
MON«. In der Zeile 10 des Programms konnen Sie ubrigens 
mit der Variablen »K« die Geratenummer einstelien (1 = Kas- 
sette, 8 = Diskette). 

Das ganze Programm wird mit <CTRL> <C> beendet. 

Eine Ubersicht, was in weichen Zeilen des Programms 
gemacht wird, erhalten Sie in der nebenstehenden Tabelle. 

(Jorg Gerjets/kn) 



10 K=8: DIM F7.<4),L'/.(4),F*<1): GET KEY P: IF P=l 

THEN 8-1 s ELBE 6=3 
20 GRAPHIC 6,1: X=320/P/2: Y=100s 3=1 i W=4: U=ls 

D*=" {BLACK, CLR,20DOWN>" 
30 DRAW G,5/P,0 TO 0,0 TO 0,5s DRAW G,0,0 TO 7/P 

,7: SSHAPE F*(0> ,0,0, 7/P, 7 
40 BOX S, 9, 1,14, 6,, 1: BOX 0,11,2,12,5,,!: SSHAPE 

F*<1> ,8,0,15,7: SCNCLR 
50 GSHAPE F*(F> ,X+1,Y+1,4 
60 DO J TRAP 370: GRAPHIC 6: GET KEY A*: GSHAPE 

F#CF),X+1-F,Y+1-F,4s IF W=0 THEN S=l 
70 TRAP 50: IF<A#=" {UP>" OR A*="«" OR A*="+"> AN 
D Y>S-1 THEN Y=Y-S: ELSE IF A*="R" THEN F-ls 
W=0 
80 IF(A*="{LEFT>" DR A*="@" OR A*=";"> AND X>S/P 
-1 THEN X=X~S/P: ELSE IF A*=" , " AND S>1 THEN 
S=S-1 
90 IF <A*=" {RIGHT}" DR A*="+" OR,A*="*") AND X<32 

0/P-S/P THEN X=X+S/P ■! 
100 IF A*>"/" AND ASC<A*K49+G THEN U=VAL<A*> 
110 IF<A*="{D0WN}" OR A*="s" OR A*="*"> AND Y<20 
0-S THEN Y=Y+S: ELSE IF A*="V" THEN BOX U,A, 
B X Y ' 

120 IF A*="F" THEN PAINT U,X,Y: ELSE IF A*="€CLR 
>•« THEN SCNCLR s ELSE IF A*=" " OR D=l THEN 
DRAW U,X,Y 
130 IF A*="K" THEN CIRCLE U, A,B,SQR (ABS (X-A) t2+A 

BS((Y-B)/P)t2) : ELSE IF A$="<" THEN 3=1 
140 IF A*="{H0ME>" THEN A=X: B=Y: ELSE IF A*='"§"' 
OR A*='T" THEN 210S ELSE IF A*=" {CTRL+CJ" T 
HEN GRAPHIC 0: PRINT D*: END 
150 IF A*=">" THEN S=20= ELSE IF A*="." AND S<20 
THEN S=S+1» ELSE IF A*="L" THEN DRAW U,A,B 
TO X,Y 
160 IF A*="0" THEN CIRCLE U, A,B,ABS (X~A> ,ABS (Y~B 

): ELSE IF A*=CHR*<27) THEN D=0: F=-0: W=4 
170 IF A*="W" THEN TRAP 50! GDSUB 260: ELSE IF A 
*="Q" THEN BOX U,A,B,X,Y,,1: ELSE IF A$=*'Z" 
THEN D=l 
180 IF A$="T" THEN GRAPHIC G+ls A*=""s PRINT D*: : 

INPUT A*: CHAR U, X/ (B/P) , Y/8,A*,D: D=0 
170 IF A*<>"P" THEN GSHAPE F* (F> ,X+l-F,Y+l-F,Wi 

LOOP 
200 GSHAPE F*<0) ,A+1,B+1,4: GET KEY A*s GSHAPE F 

*(0) f A+l,B+l,4s GOTO 50 
210 GRAPHIC 0,1: IF K=8 OR A*="^" THEN INPUT " N 

AME" ; N* 
220 PRINT "{CLR>Mfl{5DDWN>"i IF A*-'T" THEN PRINT 
"L";: IF K=8 THEN PRINT CHR*(34)N* CHR*<34) 
%"K; 

230 IF A*="S" THEN PRINT "S" CHR*(34)N* CHR*<34) 

" , "K" {LEFT} , 1800,4000" ; 
240 PRINT ! PRINT "{6DDWN>X": PRINT " {DOWN>GS50" 
250 POKE 1319,19: FOR 1=1320 TO 1328! POKE I , 13s 

NEXT : POKE 239,10: END 
260 IF RCLR<0)=1 THEN W*=" {WHITE}": ELSE W*=" {BL 

ACK>" 
270 PRINT D*W*" {RVOFF>ZEICHENFARBE:";: PRINT U: 

PRINT : GRAPHIC G+l 
280 FOR 1=0 TO 4: F7.U )=RCLR< I > : LX(I) = <I): NEXT 

: 1=1 i GOSUB 360 
290 DO : PRINT "{RVDFF}"W*;I:! COLOR 1,C,L: PRIN 

T "{RVSON,llSPACE,14LEFT}":; GET KEY A* 
300 IF A*="{LEFT>" AND I>0 THEN 1=1-1: GOSUB 360 

: ELSE IF A$=" {RIGHT}" AND I<4 THEN I=I+ls G 

DSUB 360 
310 IF A*«"{DOWN}" AND C>1 THEN C=C-1: ELSE IF A 

*= M CUP>" AND C<15 THEN C=C+1 
320 IF A*="+" AND L>0 THEN L=L-1: ELSE IF A*="~" 

AND L<7 THEN L=L+1 
330 IF A*="*" THEN 350! ELSE IF A*OCHR*U3) THE 

N LOOP 
340 F%(I)=C: L"/.(I)=L: LOOP 
350 FOR 1=0 TO 4! COLOR I ,FX(I) ,LX(I ) s NEXT : RE 

TURN 
360 C=F7. < I ) : L=L7. ( I) : RETURN 
370 RESUME 



Listing zu »Grafik 16«. 

Bitte beachten Sie die Eingabehinweise auf Seite 130. 
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C16, C116, Plus/4 




^^s^^mmij^mm ; ?m 



Spiel 

des 

Lebens 




»Life« ist eine »Lebenssimulation«, deren Regetn 
fur fast jeden Computertyp umgesetzt wurden. 
Diese Version ist auf dem C16, C116 und dem 
Plus/4 lauffahig. Versuchen Sie sich als Evolu- 
tionsforscher, »Life« macht's moglich. 



Spielregeln: Die Spielfiache {Lebensraum} ist eine in Fel- 
der aufgeteilte Ebene (24 x40 Felder). Jedes Feld kann 
zwei Zustande, namlich unbesetzt (tot) und beset2t 
(lebend) annehmen. Es gelten folgende Obergangsregeln: 

- Ein leeres Feld geht in ein besetztes Feid uber, wenn, 
genau drei seiner Nachbarfelder besetzt sind. 

- Ein besetztes Feld geht in ein feeres Feld uber, wenn weni- 
ger als zwei oder mehr als drei seiner Nachbarfelder 
besetzt sind, andernfalis bleibt es besetzt. 

Das Programm verfugt uber zwei Geschwindigkeitsstufen. 
Nach Eingabe einer Anfangsgeneration gelangt man durch 
Drucken der <F1 >-Taste in den Fast-Modus. Hier werden 
zirka 5 Generationen pro Sekunde berechnet und auf dem 
Bildschirm angezeigt. Mit der <F2> -Taste gelangt man in 
den Step-Modus. Erst nach Drucken der < SPACE > -Taste 
wird die nachste Generation gezeigt. Mit der <F3> -Taste 
kann das Programm gestoppt werden. Man befindet sich 
danach wieder in der Eingaberoutine. Die letzte Generation 
bleibt dabei erhalten, sie kann nun abgeandert werden, urn 
danach das Programm wieder mit < F1 > oder < F2 > zu 
starten. Die < HELP > -Taste bewirkt dasselbe wie die 
<F3> -Taste, nur wird hierbei der Lebensraum geloscht. 

In der Eingaberoutine konnenElemente mit der <*> -Taste 
gesetzt und mit der < INST/DEL >-Taste geloscht werden. 
Mit der < RETURN > -Taste wird das Programm beendet. 

Das Programm kann zwar mit dem eingebauten Monito'r 
eingegeben werden, aber die Wahrscheinlichkeit, daB man 
1430 Zahien richtig eingibt, ist wohl sehr gering. Deshaib ist 
nur zu empfehlen das Programm mit dem Eingabeprogramm 
(Listing 1) einzugeben. 

Mit Hilfe dieses Programms kann das Hexadezimai-Listing 
(Listing 2) schneller und vor alfem richtig eingegeben wer- 
den. Nach Eingabe von jeweils 8 Byte (eine Zeile im Listing) 
erscheint eine Prufnummer. Diese Prufnummer kann mit der 
Prufnummer auf dem Hex- Listing verglichen werden. Sind die 
Prufnummern gleich, druckt man die < J > -Taste; es konnen 
dann die nachsten 8 Byte eingegeben werden. Sind die Pruf- 



nummern ungleich, hat man bei der Eingabe einen Fehier 
gemacht. In diesem Fall druckt man die < N > -Taste und gibt 

die ietzten 8 Byte noeh einmal ein. Das Eingabeprogramm 

darf naturlich nicht den gleichen Speicherbereich benutzen 

wie das Life-Programm. Deshaib setzt man durch Eingabe 

von 

POKE 43,1: POKE 44 ,32: POKE 8192,0: NEW < RETURN > 

den Basic-Speicherbeginn hinter dem Life-Programm. Erst 

jetzt darf das Eingabeprogramm eingetippt werden. 

Damit das Life-Programm genauso geiaden und gestartet 
werden kann wie ein Basic-Programm, sollte man nach Ein- 
gabe des Prpgramms wie foigt vorgehen: 
Reset-Taste drucken (alie Zeiger werden zuruckgesetzt) 



100 

110 
120 
130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
278 
280 
290 
300 
310 
320 



PRINT 

INPUT" 

INPUT" 

A=DECC 

FOR X = 

S=0:PR 

FOR Y = 

PRINT 

GETKEY 

PRINT 

GETKEY 

PRINT 

A$=A1$ 

POKE X 

S=S+Px 

NEXT Y 

PRINT 

PRINT 

PRINT 

PRINT 

GETKEY 

IF A* = 

NEXT X 



CHR$C1473 
ANF.-ADDR. ";A$ 
END.-ADDR. " ; E$ 
A$;i:E=DECCE$] 
A TO E STEP 8 
INT CHR*C147D 
TO 7 
HEX$CX+Y:;" "; 

Al$ 
Al$; 

A2* 
A2's 

+A2$:P=DECCA$) 
+ Y,P 
CY+1 -} 



CHRM17 J 
"PRUEFNR 
CHRiC17D 
"RICHTIG 

A$ 
"N" THEN 



HEX$CS3 



CJ/ND" 



150 



Listing 1. Das Eingabeprogramm fur »Life«. 
Bitte vor dem Eingeben verschieben (siehe Text). 
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1 SYS 4112 < RETURN > (Einsprungadresse des Life- 

Programms) 

POKE 45, 168: POKE 46, 21 < RETURN > (die Zeiger fur das Ende 

eines Programms werden auf das Ende des Life- Program ms 

gesetzt) 



SAVE "LIFE" < RETURN > (Programm wird gespeichert) 

Danach kann das Programm mit LOAD getaden und mit dem 
Befehl RUN gestartet werden. 

(Joachim Stolte/og) 



1010 


A9 93 20 D2 FF A9 7F 8D 


= 1649 


11F8 . 


3C 90 02 E6 3D 4C 30 11 


=09CB 


1-018 


15 FF 8D IS FF A9 42 A2 


= 13ED 


1200 


A5 3B CS 28 F0 16 E6 A9 


= 14DC 


1020 


00 9D 00 08 90 00 09 9D 


=0992 


1208 


A5 A9 C9 0A D0 06 A9 00 


=0D4D 


1028 


00 0A E8 D0 F4 EA EA EA 


= 1E02 


1210 


85 A3 E6 A8 E6 3B E6 3C 


= 1533 


1030 


A0 00 A9 0B 85 3C A9 FE 


= 1357 


1218 


D0 02 E6 3D 4C 30 11 A5 


=0CB5 


1038 


85 3B A2 00 BD 70 13 C9 


=0FFF 


1220 


3B C9 02 30 12 C6 A9 10 


=0CB0 


1040 


00 F0 11 18 65 3B 85 3B 


=0B49 


1228 


06 A9 03 85 A9 C6 A8. C6 


= 1640 


1048 


90 02 E6 3C A9 A0 91 3B 


= 1112 


1230 


3B C6 3C A5 3C C9 FF D0 


= 186A 


1050 


E8 18 90 E8 EA EA A2 1 1 


= 156C 


1238 


02 C6 3D 4C 30 11 A0 00 


=092B 


1058 


A0 0F 18 20 F0 FF A2 00 


= 109E 


1240 


A9 D7 91 3E A9 51 91 3C 


= 100C 


1080 


BD F5 13 C9 00 F0 07 20 


=0CD5 


1248 


4C 30 1 1 A0 00 A9J20 91 


=0CBD 


1068 


D2 FF E8 18 90 F2 EA EA 


= 1C1A 


1250 


3E 91 3C 4C 30 1 1 ■ A9 A0 


=0E39 


1070 


A9 10 85' 3B A2 00 A0 00 


=0ACE 


1258 


85 3B 18 90 05 A3 20 85 


=0C9A 


1078 


88 D0 FD CA D0 F8 C6 3B 


= 1969 


1260 


3B EA EA A3 00 A2 03 95 


=0FFA 


1080 


D0 F4 EA EA A2 00 BD 30 


= 12F3 


1268 


A7 CA D0 FB*"A2 IF BD 58 


= 1466 


1088 


14 9D 5D 05 E8 E0 0F D0 


= 132A 


1270 


15 9D 00 0C CA D0 F7 E6 


= 1842 


1090 


F5 EA EA EA A2 00 BD 40 


= 1384 


1278 


AA 18 A2 03 B5 A7 69 B0 


= 129£ 


1098 


14 20 D2 FF E8 D0 F7 BD 


= 1CD7 


1280 


9D 0B 0C CA D0 F6 EA A0 


= 1939 


10A0 


40 15 C9 00 F0 07 20 D2 


=0F0F 


1288 


00 E6 AA A5 AA C9 0A F0 


= 162C 


10A8 


FF E8 18 90 F2 20 E4 FF 


= 1905 


1290 


02 D0 19 84 AA E6 A9 A5 


= 167A 


10B0 


C9 85 D0 F9 A9 93 20 D2 


= 1656 


1298 


A9 C9 0A F0 02 D0 0D 84 


=0F7E 


10B8 


FF A2 00 A9 20 9D 00 20 


=0A35 


12A0 


A9 E6 A8 A5 A8 C9 0A D0 


= 15C5 


10C0 


9D 00 21 9D 00 22 9D 00 


=088B 


12A8 


02 84 A8 EA A2 F0 BD 27 


= 15D7 


10C8 


23 9D 00 24 9D 00 25 90 


=0AE9 


12B0 


20 9D 27 0C BD 17 21 9D 


=0C09 


10D0 


00 26 9D 00 27 SD 00 28 


=07D4 


12B8 


17 0D BD 07 22 9D 07 0E 


=077D 


10D8 


CA D0 E2 A2 28 A9 A0 9D 


= 159E 


12C0 


BD F7 22 9D F7 0E CA D0 


= 16B2 


10E0 


FF 0B A3 06 9D FF 07 CA 


= 12B4 


12C8 


E5 EA. EA A5 C6 C9 03 F0 


= 1834 


10E8 


D0 F3 A9 42 A2 F0 3D 27 


= 1406 


12D0 


11 C9 06 F0 10 A5 3B 30 


=0CC0 


10F0 


08 9D 17 09 9D 07 0A 9D 


=0A14 


12D8 


11 20 E4 FF C9 20 F0 0A 


= 1286 


10F8 


F7 0A CA D0 Fl A2 IF BD 


= 15EB 


12E0 


D0 £8 4C 94 10 4C FD 10 


=0F57 


1100 


81 15 9D FF 0B CA D0 F7 


= 18D9 


12E8 


EA EA A2 00 BD 00 20 9D 


=0E1D 


1108 


A2 07 BD 78 15 95 D8 CA 


= 14E6 


12F0 


00 24 BD 00 21 9D 00 25 


=07FA 


1110 


D0 F8 EA EA A9 F3 85 3C 


= 17A8 


12F8 


BD 00 22 9D 00 26 BD 00 


=09A6 


1118 


A9 14 85 3B A9 0D 85 3D 


=0C72 


1300 


23 9D 00 27 CA D0 E5 EA 


= 185E 


1120 


A9 00 85 A9' A9 02 85 A8 


= 1118 


1308 


EA A9 FF 85 3C 85 3E A9 


= 1291 


1128 


A9 02 85 AB A9 01 85 AA 


= 112E 


1310 


IF 85 3D A9 23 85 3F A3 


=0F52 


1130 


A0 00 18 A5 A8 69 B0 8D 


= 1272 


1318 


28 85 27 A9 18 85 28 A9 


=0E41 


1138 


0F 0C A5 A3 69 B0 8D 10 


=0F42 


1320 


00 85 26 A2 07 B4 D8 Bl 


= 13CF 


1140 


0C A5 AA 69 B0 8D 17 0C 


=0CB7 


1328 


3E 10 02 E6 26 CA 10 F5 


= 118E 


1148 


A5 AB 69 B0 8D 18 0C Bl 


=0F23 


1330 


A0' 29 A6 26 A9 20 91 3C 


=0D60 


1150 


3C 09 80 91- 3C A2 FF CA 


= 1653 


1338 


Bl 3E 10 04 E0 02 F0 04 


=0C89 


1158 


D0 FD 23 7F 91 3C A2 FF 


= 15E4 


1340 


E0 03 D0 04 A9 D7 91 3C 


= 1194 


1160 


CA- D0 FD 18 A5 3C 85 3E 


=0FF5 


1348 


E6 3C D0 02 E6 3D E6 3E 


= 11FC 


1168 


A5 3D 69 14 85 3F EA 20 


=0E23 


1350 


D0 02 E6 3F C6 28 D0 C7 


= 1538 


1170 


E4 FF C9 0D D0 02 60 EA 


= 137D 


1358 


C6 27 D0 BF 4C 79 12 EA 


= 12A0 


1178 


C9 91 F0 IF C9 11 F0 IE 


= 110A 


1360 


EA EA EA EA EA EA EA EA 


=20E8 


1180 


C9 ID F0 ID C9 9D F0 iC 


= 1352 


1368 


EA EA EA EA EA EA EA EA 


=20E8 


1188 


C3 2A F0 IB C9 14 F0 1A 


= 101E 


1370 


80 01 07 01 05 01 01 01 


=00C9 


1190 


C9 85 F0 19 C9 86 F0 18 


= 1368 


"1378 


01 05 01 01 01 01 0D 01 


= 0080 


1198 


18 90 95 18 90 15 18 90 


=0BCD 


1380 


07 01 05 01 01 01 01 05 


=0056 


11A0 


36 18 30 5C 18 30 78 4C 


=0D06 


1388 


01 01 01 01 0Q 01 07 01 


=008A 


11A8 


3E 12 4C 4B 12 4C 56 12 


=077E 


1390 


05 01 08 01 10 01 07 01 


=00B2 


11B0 


4C 5D 12 A5 3D C9 0D 10 


=0A92 


1398 


05 01 08 01 10 01 07 01 


=00B2 


11B8 


06 A5 3C C3 50 90 15 C6 


= 10DB 


13A0 


05 01 08 01 10. 01 07 01 


-00B2 


11C0 


AB 10 06 A9 09 85 AB C6 


-HAS 


13A8 


05 01 01 01 01 05 01 01 


=0040 


11C8 


AA 38 A5 3C E9 28 85 3C 


=0EF9 


13B0 


01 01 0D 01 07 01 05 01 


=0082 


11D0 


B0 02 C6 3D 4C 30 11 A5 


=0C35 


13B8 


01 01 01 05 01 01 01 01 


=0034 


11D8 


3D C9 0F 90 87 A5 3C 18 


=0AA1 


13C0 


0D 01 07 01 05 01 08 01 


=0087 


11E0 


C9 BF B0 19 E6 AB A5 AB 


-1716 


13C8 


10 01 07 01 05 01 08 01 


=008A 


11E8 


C9 0A D0 06 A9 00 85 AB 


=0FAD 


13D0 


10 01 07 01 05 01 08 01 


=008A 


11F0 


E6 AA 18 A5 3C 69 28 85 


=0DF8 


Listing 2 


. »Life«fiirdenC16. 










Zur Eingabe verwenden Sie bitte Listing 1 (siehe Text). 



LSPjELE C 1 6/C 1 1 6 


13D8 


10 


01 01 


01 


01 


04 


01 


05 


=0065 


14C8 


20 


12 1C 


46 


33 92 


90 


20 


=0B0B 


13E0 


01 


08 01 


01 


01 


01 


0D 


01 


=0086 


14D0 


20 


20 20 


20 


53 54 


4F 


50 


=0980 


13E8 


01 


01 01 


04 


01 


05 


01 


08 


=0080 


14D8 


0D 


0D 20 


20 


28 12 


1C 


48 


-0517 


13F0 


01 


01 01 


01 


00 


28 


43 


29 


=0417 


14E0 


45 


4C 50 


92 


90 20 


20 


20 


=0985 


13F8 


20 


31 33 


38 


36 


0D 


0D 


20 


=04C4 


14E8 


4E 


45 55 


45 


20 45 


49 


4E 


=0998 


1400 


20 


20 20 


20 


20 


20 


20 


20 


=0480 


14F0 


47 


41 42 


45 


0D 0D 


20 


20 


=0512 


1408 


20 


20 20 


20 


20 


20 


20 


20 


=0480 


14F8 


20 


12 1C 


53 


50 41 


43 


45 


=08F7 


1410 


42 


59 0D 


0D 


20 


20 


20 


20 


=048F 


1500 


92 


90 20 


20 


53 54 


45 


50 


=0A8C 


1418 


20 


20 20 


20 


20 


20 


20 


20 


=0480 


1508 


2D 


54 41 


53 


54 45 


0D 


0D 


=06E9 


1420 


4A 


4F 41 


43 


48 


49 


4D 


20 


=08F0 


1510 


20 


20 20 


12 


1C 20 


2A 


20 


=047A 


1428 


53 


54 4F 


4C 


54 


45 


00 


00 


=065A 


1518 


92 


90 20 


20 


20 20 


53 


45 


=085F 


1430 


00 


FF 01 


01 


01 


00 


00 


00 


=020A 


1520 


54 


5A 45 


4E 


0D 0D 


20 


20 


=057E 


1438 


00 


01 85 


86 


87 


88 


00 


00 


=097C 


1528 


20 


12 1C 


44 


45 4C 


92 


90 


=0D47 


1440 


93 


30 20 


20 


20 


20 


20 


20 


=05D3 


1530 


20 


20 20 


20 


4C 4F 


45 


53 


=0311 


1448 


20 


20 20 


20 


20 


20 


20 


47 


=0588 


1538 


43 


48 45 


4E 


0D 0D 


0D 


20 


=04C4 


1450 


41 


4D 45 


20 


4F 


46 


20 


4C 


=0899 


1540 


20 


20 20 


20 


20 20 


20 


53 


=0618 


1458 


49 


46 45 


0D 


0D 


20 


20 


20 


=04B9 


1548 


54 


41 52 


54 


20 4D 


49 


54 


=0A29 


1460 


20 


20 20 


20 


20 


20 


20 


20 


=0480 


1550 


20 


12 1C 


46 


.31 92 


90 


00 


=0A01 


1468 


4E 


41. 43 


48 


20 


4A 


2E 


48 


=0897 


1558 


A0 


A0 A0 


A0 


A0 A0 


A0 


A0 


= 1680 


1470 


2E 


20 43 


4F 


4E 


57 


41. 


59 


=0A92 


1560 


A0 


A0 A0 


A0 


A0 A0 


A0 


AE 


= 16F0 


1478 


0D 


0D 0D 


20 


28 


20 


20 


20 


=040E 


1568 


m 


87 85 


e'E 


85 92 


81 


94 


= 13A1 


1480 


20 


20 20 


20 


20 


20 


20 


41 


=.0.5.8.8 


1570 


89 


8F 8E 


A0 


A0 A0 


A0 


A0 


= 1611 


1488 


4E 


4C 45 


49 


54 


55 


4E 


47 


= 0AD5 


1578 


00 


01 02 


28 


2A 50 


51 


52 


=0821 


1490 


0D 


0D 20 


20 


20 


12 


1C 


46 


=0507 


1580 


00 


A0 A0 


A0 


A0 A0 


A0 


A0 


= 15E0 


1498 


31 


92 90 


20 


20 


20 


20 


20 


=06C5 


1588 


m 


A0 A0 


m 


A0 A0 


m 


98 


= 1640 


14A0 


46 


41 53 


54 


2D 


4D 


4F 


44 


=0A09 


1590 


BD 


A0 A0 


A0 


A0 A0 


m 


99 


= 1665 


14A8 


55 


53 0D 


0D 


20 


20 


20 


12 


=0426 


1598 


BD 


A0 A0 


A0 


A0 A0 


m 


A0 


= 169D 


14B0 


1C 


46 32 


92 


90 


20 


20 


20 


=08F6 


15A0 


A0 


A0 A0 


A0 


A0 A9 


m 


A0 


= 1680 


14B8 


20 


20 53 


54 


43> 


50 


2D 


4D 


=0985 


















14C0 


4F 


44 55 


53 


0D 


0D 


20 


20 


=059 1 


Listing 2. 


»LIFE« fiir den C16. (SchluB) 









GefraOige Riesensdilcmge 



Stillen Sie den Hunger einer nimmersatten 
Schlange. Aber es ist Vorsicht geboten, denn sie 
friBt auch sich selbst! 

Sie schlupfen bei diesem bekannten Spiel in die Rolle 
einer Schlange, die einen schier unstillbaren Hunger auf 
griine Apfel hat (siehe Bild). Nach jedem verspeisten 
Kernobst wachst die Schlange etwas. Dadurch wird es im 
Spielverlauf immer schwieriger, an sich selbst vorbeizu kom- 
men. Auch die Mauer, die das Spielfeld eingrenzt, ist unge- 
nieGbar. Fur jeden gescheiterten Versuch wird Ihnen ein 
Leben abgezogen. Sie haben insgesamtfupf Versuche, um in 
die nachsthohere Spielstufezu gelangen. Hierzu mussen Sie 
aber eine bestimmte Schlangenlange erreichen, die mit dem 
Schwierigkeitsgrad wachst Als Belohnung erhalten Sie 
einen Punktebonus, der von der erreichten Lange abhangt, 
und ein weiteres Leben. Allerdings wird in jeder neuen Spiel- 
phase auch der Schwierigkeitsgrad erhoht. »Snake« ist also 
ein spannendes Geschicklichkeitsspiel fur reaktionsschnelle 
Spieler. 

Eingabe des Programms: 

Bei der Programmierung des Spiels wurde ausgenutzt, daB 
sich der Joystick auch mit GET abfragen iaBt. Deshalb kann 
anstelle eines Joysticks auch die Tastatur zur Eingabe 
genutzt werden. Andern Sie hierzu bitte die Zeilen 1290 bis 
1320 (Listing) entsprechend, und Sie konnen nun beispiels- 




Bild. Spielsituatron bei »Snake«. Die Schlange muft trotz 
wachsender Lange alle Apfel fressen und darf sich weder 
iiber den eigenen Schwa nz fahren noch gegen die Mauer 
stofien. 



weise auch die Cursor-Tasten fur die Steuerung der Schlange 
verwenden. Dabei steht M$ in der Zeile 1290 fur »hoch«, in 
1300 fur »rechts«, in 131 fur »runter« und in 1 320 fur »iinks«. 



(Alexander Jung/kn} 
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SPIELE 



1000 
1010 
1020 

1030 
1040 
1050 
1060 
1070 
1080 
1090 

1100 
1110 

1120 
1130 
1135 

1140 
1150 
1160 
1170 
1180 

1190 

1200 

1210 

1220 
1230 

1240 
1250 
1260 
1270 

12S0 
1290 
1300 
1310 
1320 
1330 

1340 
1350 
1360 
1370 
1380 
1390 

1400 
1410 
1420 

1430 

1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 

1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 

1610 

1620 

1630 
1640 

1650 
1660 
1670 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

IF KN 

IF KN 

LOR 



SNAKE 



1986 BY A.JUNB 



DATASETTENBENUTZUNB NACH 
JEDEM PROGRAMMSTART ERST 
NACH EINBABE VON: 

SYS 819 CCR3 

SONST SYSTEMABSTURZ ! ! ! ! 



1=0 THEN GDBUB 2340 

1=1 THEN PRINT " {CLR,CTRL+N,WHITE>": CO 
,1: COLOR 4,1: GOSUB 2450 



REM INITIALISIERUNG 

COLOR 0,3,3s COLOR 1,8,7: COLOR 4,6,3 

DIM PO(DI) ,HI*<8,5): VOLS: PU-0: PH=1: WO= 

5: RESTORE 2610 

FOR T1=0 TO 8: FOR T2=0 TO 5: READ HI*(T1,T 

2): IF HI*<T1,T2>="-1" THEN T2=6 

NEXT T2,T1: PU=-10 

FOR T=819 TO 871: READ A*: POKE T,DEC(A*)s 

NEXT 

GOBUB 1780 

GOSUB 1970s PO=4012s PA=0s PE=0s L=5s R=~40 

: V=R: PO(0)=PO: SP=0s POKE 239,0 

REM HAUPTSCHLEIFE 

POKE P0,215: POKE PO- 1024, PEEK (65282) : BOON 

D 3,1000,2 

V=R: SET A* 

IF A*="5" THEN R=~40 

IF A*="6" THEN R=l 

IF A*="R" THEN R=40 

IF A*="D" THEN R=-l 

IF ABB(R>>20 THEN POKE P0,221s ELSE POKE PO 

,192 

IF R=V THEN 1410 

IF R=-V THEN 1560 

IF SGN(R)OSGN(V) THEN 1390 

IF R>V THEN POKE PO,238l ELSE POKE PG.237 

GOTO 1400 

IF SBN(R)=1 THEN POKE PO,240i ELBE POKE PO, 

253 

V=R 

PO=PO+R: PA=PA+1: IF PA>DI THEN PA=0 

IF PA=PE THEN POKE 3171,96s POKE P0(PE),32s 

PE=PA+1: SP=1: IF PE>DI THEN PE=«0 
PO<PA)=PO: POKE PO-1024-V, 102: IF PE£K(PO)< 
>32 THEN 1500 

IF L=>0 AND SP=0 THEN L=L-ls GOTO 1270 
POKE P0(PE),32: PE=PE+1: IF PE>DI THEN PE=0 
GOTO 1270 

REM HINDERNISUEBERPRUEFUNG 

HI-PEEK(PO) 

IF HI=81 THEN SOUND 3,400,6: GOSUB 1970s GO- 
TO 1270 
IF HI =96 THEN 1700 

REM SCHLANBE BEHT EIN 

POKE P0,215: SOUND 3,800,3000 

FOR T=B9 TO STEP -1 

VOL T/10: POKE PO-1024,RND< 1 ) *256 

NEXT : SOUND 3,0,0s (32= . 00001 

IF PA<PE THEN QQ=(DI~PE+PA) s ELSE QQ=(PA-PE 

) 

QQ=GQ+. 00001: FOR Q1=0 TO QQs FOR T=l TO 10 

s NEXT 

SOUND 3,900,2: VOL 8s COLOR 4,6,8-02: COLOR 

0,3,8-02: Q2=Q2+7.9/QQ 
POKE P0(PE),32: PE=PE+ls IF PE>DI 
NEXT s FOR T=l TO 100s NEXT 
COLOR 4,6,3 

W0=WQ-1: IF WO=0 THEN 2090 
GOTO 1220 



THEN PE=0 
COLOR 0,3,3s 



16B0 
1690 
1700 
1710 

1720 
1730 

1740 
1750 
1760 
1770 
1780 



1790 

1800 
1810 

1820 

1830 

1840 



1850 
I860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 

2000 

2010 
2020 
2030 
2040 

2050 
2060 
2070 
2080 
2090 

2100 



REM PHASE BEENDET 

PU=PU+PH*10: WO=WO+1: PH=*PH+1 

POKE P0,215: POKE PO- 1024, 247: RESTORE 2830 

: VOL B 

FOR T=l TO 19: READ S1,S2 

COLOR 0,3,T/2.4: COLOR 4,6,T/2.4: SOUND 1,S 

1,S2: SOUND 1,1020,1 

NEXT : COLOR 0,3,3: COLOR 4,6,3: GOTO 1220 

REM SPIELFELDMASKE 

SYS 819: PRINT " {CLR,GREY3, RVSON* THE {3SP ACE 

>SNAKE {4SPACE >* C4SPACE > THE {3SP ACE >SNAKE {4SP 

ACE>*{4SPACE>"; 

PRINT USING " {HOME, DOWN, RVSON, YELLOW > PUNKT 

E : ##### ";PU; 

PRINT USING " {RVSON > LEBEN s ## ";W0: 

PRINT USING "{RV50N> PHASE : ##";PH;: POKE 

3151.160: POKE 2127,119: SYS B30 

CHAR , , 2 , " {RVSON >#########f ############### 

###############" I 

FOR T=3 TO 23: CHAR ,0,T, " {RVSON>#": PRINT 

TABC39) "#": NEXT 

CHAR , 0, 24 , " {RVSON >######################## 

###*########### <LEFTi I NST ># {HOME , RVOFF > " : G 

OSUB 2040 

PG=PH: IF PB>10 THEN PG=INT (RND ( 1 > *10+1 ) 

PB=PG-2: IF PH=1 THEN 1930 

FOR T=0 TO 5: IF HI*(PG,T)="-1" THEN 193© 

W1=VAL (LEFT* (HI* (PS, T> ,3) ) 

W2=VALCMID*<HI*(PE,T) ,4,2) ) 

W3=VAL (RIGHT* (HI* (PG,T> ,2)) 

FOR W^Wi TO W1+W2*W3 STEP W2 

POKE W+3072,163: NEXT W,T 

RETURN 

REM APFEL DARSTELLEN 

L=RND ( 1 ) *B40+31 92 

IF PEEK(L)<>32 THEN 1970 

POKE L,B1: POKE L- 1024, 90: L=5: PU-PU+10 

SYS 819s PRINT USING " {HOME, DOWN, RVSON > PUN 

KTE s ##### ":PUs: SYS 830: RETURN 



REM TABTATURABFRAGE 

CHAR ,8,15,"DRUECKEN SIE EINE TASTE! 

239,0s GET KEY S* 
CHAR ,8,15,"{24SPACE>": RETURN 

REM BEERDIGUNG 



POKE 



SCNCLR : COLOR 0,4,0: COLOR 4,4,0: SYS 819 
PRINT TAB(15>"CRV0FF,WHITE>V"s PRINT TAB (26 
>"E"s PRINT TAB(39)"B"s PRINT TAB(B)"V" 

2110 PRINT "V" SPC (22) "F" SPC (8) "W: PRINT "{LI 
G.RED,3SPACEJS{RVSON,2SPACE,RVOFF>T{RVS0N> 
{RVOFF>F" SPC (22) " {WHITE JS {RVSON, 2SP ACE >^{R 
VOFF>'* 

2120 PRINT "{LIB. RED> 1{RVS0N,3SPACE,BR0WN>S{LIG 
.RED,4SPACE,RV0FF,6SPACE,WHITE>F" 5PC<14>"{ 
RVSON >lf{3SPACE>" 

2130 PRINT " {LIB. RED} {RVSON, 2SPACE, BROWN >SO. I G. 
RED >F {BROWN, R VOFF > ?{L I G. RED >V {BROWN >1f {RVSON 
,LIB.RED,3SPACE,RV0FF>F" SPC (20) " {WHITE, RVS 
ON>F {RVOFF >V" 

2140 PRINT "{LIS.R£D,RVSON}v" {BROWN>S{RVDFF>k<RV 
S0N,LIG.RED> {BROWN, RV0FF>W{RVS0N>S{RV0FF>5 
{RVSON, LIG. RED > {BROWN>S{LIG. RED,2SPACE>" : 
PRINT "{RVSON>Tf ^{BROWN,RVOFF>S{LIG. RED>E'{R 
VS0N5 {BROWN, RVOFF>^{RVSON, LIG. RED>F{RVOFF, 
BROWN >TV {RVSON , L I S . RED , 2SPACE > " 

2150 PRINT " {RVSON, 2SPACE, BROWN, RV0FF>5E-{RVS0N>3 
{LI6.RED>S{BR0WN>7S{RVQFF>V{RVS0N,LIG.RED,2 
SPACED" SPCC9)"{RV0FF,WHITE>dE" SPC(12)"3" 

2160 PRINT ••{LIG.RED>U{RVSON,2SPACE,BRaWN>F{RVOF 
F>S{RVSON> {LIG.RED>W{BR0WN>3{LIG.RED,2SPA 
CE, RVOFF >V n SPC(ll)" {WHITER": PRINT " {2SPA 
CE,LIG.RED,RVSONJF TT{BROWNJ T{LIG-RED>FB" 

2170 PRINT "{5SPACE, RVSON, BROWN, 2SP ACE >": PRINT 
" {4SPACE yS {RVSON , 2SPACE , RVOFF , 6SPACE , WH I TE > 
F" SPC < 20) '"5" s PRINT "{5SPACE, BROWN, RVSON, 2 
SPACE>V{RVOFF>Tr 
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218€> 

2190 
2200 

2210 

2220 

2230 

2240 
2250 
2260 
2270 
2280 

2290 

2300 

2310 
2320 
2330 
234© 
2350 
2360 
2370 
23B0 
2390 
2400 
2410 
2420 
2430 
2440 
2450 



print "{5space, rvson, 2space><3": print » {wh 

ite>s«space , brown , rvson , 2space , rvoff > " spc 

(17)«cwhite>f"; print " {5space, brown, rvson, 

2space,rvqff>" 

pr i nt " {5space , brown , rvson , 2bpace , rvoff >t €4 

space , orange > b {rvson , 2space , r vqff >f" spc (20 

) " {white* ^{rvsonjw 

print •' c4space, brown, rvson > if {3sp ace, 4r i ght, 

orange, 55pace,rvqff,br0wn}tti {cyan, rvson> { 

RVQFFJF" SPC < 14) *' CWHITE, RVSON* k<KVOFF>F{:RVS 

ON>V" 

PRINT " {2SPACE,BR0WN>ST{RVSGN,4SPACE,RV0FF} 

TfGREEN >T tOR ANBE >T<RVSON , 7SPACE , RVOFF } f{GRE 

EN>TCRVS QN ,CYAN>ilGREEN> {RVOFF>T OBLACK> S 

IIIITrr'CGREEN> BTCWHITE, RVSON >lTc' {RVOFF, GRE 

EN>T" 

PR I NT " {RVSON , BREEN , 4SPACE , RVOFF J F {RVSON } 7{ 

RVOFF >FCRVS0N>Ft4SPACE .ORANGE ,4BPACE , GREEN , 

7SPACE,RV0FF>F^BLACK>^<RV5QN> iLR RR8 RR R fRUfiff 

>FCRVSON , GREEN , 6SPACE > " 

PRINT » <:RVS0N,24SPACE,RVOFF>FmVS0N,BLACK>F 
{6SPACE >5<RV0FF , GREEN > KRVSON , 6SP ACE > " 

PRINT " {RVSON, 39SPACE, LEFT, I N5TJ {HOME>" 

RESTORE 29.00 

FOR T-22 TO 1 STEP -Is READ A,B 

SOUND 1,A,B: SOUND 1,1020,1.- NEXT 

PRINT "{HOME}" CHR*<27) "DDRUECKEN SIE EINE 

TASTE FUER START ! ! t3SPACE>" 

PRINT USING "{RVSON>IHRE PUNKTE : ##### "jp 

U 

SYB 830: POKE 239,0: GET KEY S*: SYS 819s C 

LR : KN=ls GOTO 1130 

REM TITEL 

COLOR 0,1: COLOR 4,1*. 

RESTORE 3010 

FOR T=l TO 8J READ A*: PRINT CHR*(27>A* 

FOR TT=1 TO 100: NEXT TT,T 

FOR T=l TO 25: PRINT CHR*<27> "WCHOME>" 

FOR TT=1 TO 100: NEXT TT,T 

FOR T=l TO 500: NEXT 

CHAR 1,0,24,CHR*(14): RESTORE 3120 

REM SPIELREBELN 



2460 

2470 
2480 
2490 
2S00 

2510 
2520 

2530 

2540 
2550 
2560 
2570 
25S0 
2590 
2600 
2610 
2620 
2630 
2640 

2650 

2660 

2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 



PRINT "&IND DIE SPIELREGELN BEKANNT ?{2SPAC 

£}<£/&)": POKE 239,0 

BET AN*: IF AN*="J" THEN RESTORE 3240: AN=7 

: BOTO 2480 

AN=19: IF AN*<>"N" THEN 2460 

FOR T=l TO AN: VOL 8 

READ AN*: AN*=» "+AN*: FOR TT=1 TO LEN<AN*) 

PRINT CHR*<20> MID*<AN*,TT,l);"g":: SOUND 3 

,1000,2 

FOR Tl=l TO 3: NEXT T1,TT 

PRINT CHR*<20>: PRINT s FOR Tl=i TO 500s NE 

XT T1,T: POKE 239,0 

GET LA*: LA=VAL <LA*> : IF LA>3 OR LA<1 THEN 

2530 

DI=50+20»LA 

FOR T-l TO 25: PRINT CHR*<27) "WCHOMEJ" 

FOR TT=1 TO 100: NEXT TT,T: PRINT CHR*(142) 

RETURN 

REM DATAS HINDERNISSE 

DATA 5290121,-1 

DATA 5290121,3004006,579405,-1 

DATA 52901 2 1,289401 2, 31 0401 2, -1 

DATA 3004006,5394006,2894012,3104012,300011 
0,7690110 

DATA 1004006,7394006,5210106,5360107,552010 
6,-1 

DATA 36 1 01 06 , 37501 09 , 39201 06 , 68 1 01 06 , 69501 O 

9,7120106 

DATA 2934112,-1 

DATA 2934112,3053912,-1 

DATA 2934112,3084106,5254106,-1 

REM DATAS MASCHINENRQUTINE 

DATA A9,0E,8D,14,03,A9,CE,8D 
DATA 15, 03, 60, A9, 49, 8D, 14,03 



2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2B90 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
30O0 
3010 



DATA A9,03,8D,15,03,60,18,A5 
DATA D8,69,10,85,D8,90,13,AE 
DATA 00,0C,A0,00,B9,01,0C,99 
DATA 00,0C,C8,C0,28,D0,F5,8E 
DATA 27,0C,4C,0E,CE 

REM DATAS MUSIK 

DATA 860,4,860,10,860,4 
DATA 900,14,900,14,912,14 
DATA 912,14,940,20,924,7 
DATA 900,7,1020,2,940,4 
DATA 942,10,900,4,876,14 
DATA 928,26,912,10,892,4 
DATA 900,26 

DATA 804,27,860,20,876,7 
DATA 892,27,900,20,892,7 
DATA 876,27,892,20,876,7 
DATA 860,27,804,13,1020,13 
DATA 804,27,860,20,876,7 
DATA 892, 27, 900, 20, 892 i 7 
DATA 876, 27 ,892, 20, 876 ( 7 
DATA 860,30 

REM DATAS TITEL 



3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 
3100 
3110 
3120 
3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 
3210 
3220 

3230 

3240 



DATA " X {2HDME , CLR , WH I TE , 3SPACE >¥<RVSON , 3SPA 

CE, RVOFF >£{2SPACE, RVSON > {3RIEHT* {2RIBHT* 

{3RIBHT> {2RISHTJ {RVOFF, 2SPACE}5!{RVS0N> {R 

VOFF , 2SPACE > 3P{RVSQN , 4SP ACE > ■ 

DATA "W {HOME, 3SP ACE, RVSON > *{RIEHT>£ {2RI6H 

T> {3RIGHT> C2RIBHT> <3RIGHT> {2RI6HT* CRVQ 

FFJ * {RVSON 7 K {2R I GHT} ¥" 

DATA "W{H0ME,6SPACE>¥{RVS0N} {2RIGHT* {2RI6 

HT, RVDFF }¥ {RVSON > {2RIGHT* {RVDFF >£ ¥ {RVSON 

> {2RIDHT> {RVOFF > 5 {RVSON > *{3RIGHT> « 
DATA "W{HOME,5SPACE>5f{RVSON> ¥{2RIGHT> {RIG 
HT , RVOFF >* {RVSON , 2SP ACE , 2R I GHT , 5SPACE , 2R I GH 
T , 2SPACE , RVDFF >£ {4SPACE , RVSON , 4SPACE* " 
DATA "W{H0ME,3SPACE>¥{RVSDN,2SPACE>?{3RIGHT 

> {RVOFF >*{RVSDN> H {2RIGHT} {3RIGHT* {2RIB 
HT> J, {RV0FF>£{3SPACE,RVS0N> ¥" 
DATA "W{H0ME,3SPACE,RVS0N> ¥{5RIGHT,2SPACE> 
¥{RIGHT> {2RIBHT> {RVQFFJF ¥{RVSON> {2RIBHT 

> {RIJ3HTJ& {R VOFF >£{2SPACE, RVSON > " 
DATA "W {HOME, 3SP ACE, RVSON > {RVOFF >£ ¥{RVSON 
} {2RIGHT> ¥{2RIGHT> {2RIGHT>£{3SPACE>¥{2RI 
GHT> {2RISHT>£ {2RIBHT> {RVOFF}«£" 
DATA " W {HOME , 3SPACE , RVSQN>£{3SPACE>¥{2RIGHT 

> {3RISHT* {3RIBHT>£ ¥{3RIGHT> {3RIGHT>£{2R 
IBHT>^{4SPACEJ" 

REM DATAS SPIELANLEITUNG 

DATA M {5DQWN>" 

DATA "SPIELANLEITUNG: {25SP ACE >============= 

DATA "STEUERN SIE JHRE SCHLANGE MIT DEM{7SP 

ACE>iDYSTICK <£DRT 1) !» 

DATA "ERESSEN SIE SOVIELE flEPFEL, WIE SIE {5 

SPACE>KOENNEN ! " 

DATA "SIE WACHSEN STAENDIG. (JSEIN fiRUND ZUR 

{3SPACE>£ANIK. )" 

DATA " tfACH EINIGER ZEIT ERSCHEINT IN DER{6 

SPACE >OBEREN flAUER EIN flUSGANG. " 

DATA "iJENN SIE DURCH DIESEN DAS SPlELFELD V 

ER-LASSEN, ERHALTEN SIE EIN i£BEN MEHR. " 

DATA "3ER SCHWIERIGKEITSGRAD STE1GT MIT JED 

ER £HASE. " 

DATA "£IE flAUER 1ST UNGENIESSBAR. " 

DATA "SIE SELBST EBENFALLS. " 

DATA "3EI JEDEM EEHLER GEHT DIE SCHLANGE EI 

N{2SPACE>UND VERLIERT EIN A£BEN. " 

DATA "SIND ALLE AEBEN VERBRAUCHT, KOENNEN S 

IE IHRER J^ERDIGUNG BEIWOHNEN. " 

DATA "....... 



3250 DATA " {5D0WN>flADE BY ALEXANDER iiiKg{5D0WN>" 

3260 DATA "MAEHLEN SIE NUN DEN SCHWIERIGKEITSGRA 

D »{DOWN>" 

3270 DATA " 1 = iEICHT" 

32B0 DATA " 2 = flITTEL" 

3290 DATA " 3 = SCHWER" 

3300 DATA "{9D0WN}" 
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Die wilde Jagd duiriis labyrinth 



Das hier abgedruckte Spiel »Puck« ist ein 
spannendes Geschicklichkeitsspiel, das an den 
Klassiker »Pacman« erinnert. 

Puck ist ein in Basic programmiertes Spiel, das zwar ein- 
fach aussieht, aber ganz schon schwer zu spielen ist. 
Ein mit dem Joystick gesteuerter kleiner Puck mu8 
durch ein Labyrinth laufen und dortalle Punkte fressen. Dabei 
wird er von einer gefahrlichen Spinne verfolgt. Die genaue 
Spielanleitung befindetsich im Programm und wird beim Star- 
ten mit »RUN« angezeigt. (Karl-Eugen Laubacher/bs) 



1 DIM F7. (4*3,25) 

2 REM DATA IN FELD F7. LADEN *** 

3 SCNCLR s BOSUB 271: BCNCLR : PRINT "EIN WENIG 
BEDULD BITTE!" 

4 GOBUB 150 

5 REM SPIELFELD ZEICHNEN *** 

6 PU=5: V=0s Y=0: LV=25 

7 IF LV<10 THEN LV=10 

8 BOSUB 157: FOR N=l TO 1© 

9 BET NR$: NEXT N 

10 AD=88: H=0: NR=0: ZV=0. * 

11 PW=38: PS=23s POKE 4030,81 

12 GW=1: GS=1: POKE 3113,42s RE=32: 0L=3 

13 IF PS=GS AND PW=GW THEN GOSUB 178: IF PU=0 TH 
EN Y=Y+V: 80SUB 194: GOTO 6 

14 ZU=INT<RNDU)*LV>: IF ZU=0 THEN 17 

15 BOSUB 17: IF V=541 THEN PL=5: PU=PU+ls Y=Y+54 
1j V=0: LV=LV-5: VOL 7s SOUND 1,800,15s BOTO 
7 

16 IF PS=BS AND PW=GW THEN GOSUB 178: IF PU=0 TH 
EN Y=Y+V: BOSUB 194: GOTO 6 

17 GOSUB 49 

18 BOTO 13 

19 NR=JOY(l) 

20 IF AD=NR THEN GOSUB 29s H=0: RETURN 

21 IF NR=0 THEN 25 

22 ZV=AD: AD=NR: GN=0: GOSUB 29 

23 IF GN=0 THEN H=0s RETURN 

24 H=NRs A»=ZV: BOSUB 29: RETURN 

25 IF H=0 THEN GOSUB 29: RETURN 

26 ZV=AD: AD=H: SN=0: GOSUB 29 

27 IF BN=0 THEN H=0s RETURN 

28 AD=ZV: GOSUB 29: RETURN 

29 IF AD<>7 THEN 34 

30 C=3071+PW+40*PS: B=PEEK<C) 

31 IF B=160 THEN GN=i: RETURN 

32 IF B=46 THEN V=V+1 

33 POKE C,81: PW=PW-1: POKE C+l ,32: RETURN 

34 IF AD<>3 THEN 39 

35 C=3073+PW+PS*40: B=PEEK(C) 

36 IF B=160 THEN GN=1: RETURN 

37 IF B=46 THEN V=V+1 

38 POKE C,81s PW=PW+ls POKE C-1,32: RETURN 

39 IF ADOl THEN 44 

40 C=3072+PW+40*PS~40: B=PEEK(C> 

41 IF B=16G> THEN GN=1: RETURN 

42 IF B=46 THEN V=V+i 

43 POKE C,81s PS=PS-ls POKE C+40,32: RETURN 

44 IF ADOS THEN RETURN 

45 C=3072+PW+40*PS+40: B=PEEK(C) 

46 IF B=160 THEN BN=1: RETURN 

47 IF B=46 THEN V=V+1 

48 POKE C.81: PS=PS+1: POKE C-40,32: RETURN 

49 GP7.=F7„"<GW,BS> 

50 A=3072+BW+40*GS 

51 RA=RE 

52 ON GP7. GOTO 54,58,62,66,70,74,78,90,102,114,1 

26 

53 REM 1 *** 

54 IF 0L=3 THEN 56 



55 RE=*PEEK(A+1): GW=BW+1: POKE A+l,42l POKE A,RA 
: RETURN 

56 RE=PEEK(A-1): GW=GW~1: POKE A- 1,42: POKE A,RA 
: RETURN 

57 REM 2 *** 

58 IF 0L=4 THEN 60 

59 RE=PEEK(A+40) i s 8S=BS+ls POKE A+4 0,42s POKE A, 
RA: RETURN 

60 RE=PEEK(A-40>: BS=GS-1: POKE A-40,42: POKE A, 
RA: RETURN 

61 REM 3 *** 

62 IF OL=2 THEN 64 

63 RE=PEEK(A-40): GS=6S-ls POKE A-40,42: 0L=4s P 
OKE A,RA: RETURN i 

64 RE=PEEK(A+l>s GW=6W+1: POKE JA+1 ,42: OL*ls POK 
E A,RA: RETURN 

65 REM 4 *** 

66 IF 0L=4 THEN 68 

67 RE=PEEK<A+40): GS=SS*1: POKE A+40,42: 0L=2: P 
OKE A,RAs RETURN 

68 RE=PEEK(A+1): GW=GW+1: POKE A+l,42s 0L=Li POK 
E A,RA: RETURN 

69 REM 5 *** 

70 IF OL=4 THEN 72 

71 RE=PEEK(A+40>: SS=BS+ls POKE A+4 0,42s 0L=2s P 
OKE A,RA: RETURN 

72 RE=PEEK(A-1): 8W=GW-1: POKE A-1,42: OD<5: POK 
E A,RA: RETURN 

73 REM 6 *** 

74 IF 0L=2 THEN 76 

75 RE=PEEK(A~40>: BS=GS~1: POKE A-40,42: 0L=4: P 
OKE A,RA: RETURN 

76 RE^PEEK(A-l): GW=GW-1: POKE A- 1,42: 0L=3: POK 
E A,RAs RETURN 

77 REM 7 *** 

78 IF 0LO2 THEN 81 

79 AR=ABS(GW+1-PW)+ABS (GS-PS): AU=ABS (GW-PW) +ABS 
(GS+l-PS) • 

80 IF AR<AU'THEN 88: ELSE 87 

81 IF 0LO3 THEN 84 

82 A1=ABS (GW-PW) : AU=ABS (GS+l-PS) +A1 s AO=ABS(GS- 
1-PS)+A1 

83 IF AO<AU THEN 86: ELSE 87 

34 AR=ABS < GW+ 1 -PW ) +ABS < GS-PS ) : AO=ABS ( GW-PW ) +ABS 

(GS-l-PS) 
B5 IF AR<AO THEN 88: ELSE 86 

86 RE=PEEK<A-40>: GS=GS-ls POKE A-40,42: OL=4s P 
OKE A,RA: RETURN 

87 RE=PEEK(A+40>: G5=GS+1 
OKE A.RAs RETURN 

88 RE=PEEK(A+1) : GW=GW+1: 
E A,RA: RETURN 

89 REM 8 *** 

90 IF OLOl THEN 93 

9! AR=A8S(BW+1~PW)+ABS( GS-PS): AU=ABS (GW-PW) +ABS 
(GS+l-PS) 

92 IF AR<AU THEN 98: ELSE 99 

93 IF 0LO3 THEN 96 

94 AL=ABS CGW-l-PW) +ABS (GS-PS) : AU-ABS (8W-PW) +ABS 
(SS+l-PS) 

95 IF AL<AU THEN 100: ELSE 99 

"96 A1=ABS(GS-PS): AL=ABS (6W-1-PW) +A1 : AR=ABS(GW+ 
1-PW)+A1 

97 IF AL<AR THEN 100: ELSE 9B 

98 RE=PEEK(A+1) : GW=GW+1: POKE A+1,42: 0L=1: POK 
E A,RA: RETURN 

99 RE=PEEK(A+40) : GS=GS+1: POKE A+40,42: 0L=2s P 
OKE A,RAs RETURN 

100 RE=PEEK(A-1): BW=BW~1 : POKE A- 1,42s 0L=3: PO 
KE A,RA: RETURN 

101 REM 9 *** 

102 IF OLOl THEN 105 

103 A1=ABS(GW-PW) s AU=ABS (GS+l-PS) +A1 : AO=ABS(GS 
-1-PS)+A1 

104 IF AO<AU THEN 110: ELSE 111 

Listing 1. Das Listing zu »Puck« fur den C16 



: POKE A+40,42s 0L=2: P 
POKE A+1,42 s OL=l: POK 
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105 
106 

107 
108 

109 

110 

111 

112 

113 
114 
115 

116 
117 

118 



IF 0LO2 THEN 108 

AL=AB5(GW-1~PW)+ABS(GS-PS> : AU=ABS <GW~PW) +AB 

S<GS+1-PS) 

IF AL<AU THEN 112; ELSE 111 

AL=ABS < GW- 1 -P W > +A8S < BS-PS ) : AQ=ABS ( BW-PW ) + AB 

5 (GS-l-PS) 

IF AL<AO THEN 112: ELSE 116 

RE=PEEK(A-40) : GS=GS-1: POKE A-4 0,42: 0L=4: 

POKE A,RA: RETURN 

RE=PEEK<A+40>: GS=GS+ls POKE A+40,42: 0L=2: 

POKE A,RA: RETURN 

RE=PEEK(A-1): GW=GW-1: POKE A- 1 ,42s 0L=3: PO 

KE A,RA: RETURN 

REM 10 *** 

IF OLOl THEN 117 

AR=ABS ( GW+ 1 -PW ) +ABS ( BS-PS ) : AO=ABS < BW-PW ) +AB 

S(6S-1~PS) 

123: ELSE 122 

120 
AL=ABS(GW~1~PW)+A1: AR=ABS<GW 



IF AR<AO THEN 

IF 0LO2 THEN 

A1=ABS(GS-PS) 

+i-PW)+Al 

IF AL<AR THEN 



: POKE A-40,42: 0L=4: 
POKE A+1,4 
POKE A- 1,42: OL= 



119 IF AL<AR THEN 124: ELSE 123 

120 AL=ABS(GW-1-PW)+ABS (BS-PS) j AO=ABS<GW-PW> +AB 
S(SS-l-PS) -.- 

121 IF AL<AO THEN 124 

122 RE=PEEKCA-40) : GS=GS-I 
POKE A,RA: RETURN 

123 RE=PEEK<A+1>: GW=GW+1: POKE A+1,42: OL=l: PD 
KE A,RA: RETURN 

124 RE=PEEK(A~1>: GW=BW-1: POKE A-1,42: OL-3: PQ 
KE A,RA: RETURN 

125 REM 11 *** 

126 IF OLOl THEN 131 

127 A1=ABS<GW-PW): AO=ABS (GS-l-PS) +Ai: AU=ABS<BS 
+1-PS>+A1 

12B AR=AB5<GW+l-PW)+ABS(GS*rPS) 

129 IF AO<AU AND AO<AR THEN^ 148 

130 IF AR<AU THEN 145: ELSE 146 

131 IF 0LO2 THEN 136 

132 A1=ABS(GS-PS) : AL=ABS(GW-1-PW)+A1 : AR=ABS(GW 
+ 1-PVO+A1 

133 AU=ABS(GS+1-PS)+ABS(GW~PW) 

134 IF AU<AR AND AU<AL THEN 146 

135 IF AL<AR THEN 147: ELBE 145 

136 IF 0LO3 THEN 141 

137 A1=ABS(GW~PW) : AO=ABS < GS-l-PS) +A1: AU=ABS(GS 
+1-PS)+A1 

138 AL=ABS<GW-1-PW)+ABS(GS-PS) 

139 IF AO<AU AND AO<AL THEN 148 

140 IF AL<AU THEN 147: ELSE 146 

141 A1=ABS(GS-PS): AL=ABS (GW-l-PW) +A1: AR=ABS(GW 
+1-PW)+A1 

142 AO=ABS ( G W-P W ) + ABS C GS- 1 -PS ) 

143 IF AO<AR AND AO<AL THEN 148 

144 IF AL<AR THEN 147: ELSE 145 

145 RE=PEEK(A+1) : GW=GW+ls POKE A+1,42: DL=1: PO 
KE A,RAs RETURN 

146 RE=PEEK(A+40): GS=GS+1: POKE A+40,42: 0L=2: 
POKE A,RAs RETURN 

147 RE=PEEK(A-1> : GW=GW-1: POKE A-1,42: 0L=3: PO 
KE A,RA: RETURN 

148 RE=PEEK(A-40): GS-BS-1: POKE A-40,42: 0L=4: 
POKE A,RA: RETURN 

149 REM ENDE SPINNE BEWEGEN *** 
IS© RESTORE 218 

151 FOR S=l TO 23 

152 FOR W=0 TO 39 

1 53 READ A - /. : F7. ( W , S > =A% 

154 NEXT W 

155 NEXT S 

156 RETURN 

157 SCNCLR 

158 RESTORE 264 

159 FOR N=0 TO 19 

160 READ A: POKE 16360+N,A: NEXT N 

161 SYS 16360 

162 FOR N=l TO 40 

163 POKE 3071 +N, 160 

164 POKE 4031+N,160 

165 NEXT N 

166 POKE 3112,160 

167 FOR N=0 TO 880 STEP 40 

168 POKE 3151+N,160s POKE 3151+N+1.160 

169 NEXT N 

170 RESTORE 196 

171 FOR N=0 TO 331 



VOL VL: VL=VL-„23 



0L=3 



?01 



172 READ A7. 

173 POKE 3072+A%,160 

174 NEXT N 

175 T=PU: IF PU>9 THEN T=-15 

176 POKE 4071,T+48 

177 RETURN 

178 VOL 7: VL=7 

179 FOR 50=0 TO 30 
ISO SOUND 3,800,1; 

181 NEXT SO 

182 PU=PU-1 

183 IF PU=0 THEN RETURN 

184 IF RE=81 THEN RE=32 

185 POKE 3072+PW+PS*40,RE 

186 T=PU: IF PU>9 THEN T=-15 
1B7 POKE 4071,T+48 

188 PW=38: PS=23: POKE 4030,81 

189 GW=1: GS=1: POKE 3113,42= RE=3i 

190 FOR N=l TO 10 

191 GET NR*: NEXT N 

192 AD=B8: H=0s NR=0 .( 

193 RETURN (,. 

194 SCNCLR : PRINT "PUNKTE: V; V: PRINT : Y=0 

195 INPUT "DRUECKE RETURN!'; DUMMY*: RETURN 

196 DATA 82,84,85,86,87,89,90,91,93,94,95,97,99, 
100, 101, 102, 103, 1-05,1 06 

197 DATA 107,109,111,112,114,116,117,122,127,135 
, 145, 149, 152, 154, 162 

198 DATA 163,164,165,167,168,170,171,173,175,177 
, 179, 180, 181 , 183 , 185 

199 DATA 187,188,189,190,192,194,195,197,208,213 
, 225 , 242 , 244 , 246 , 248 

200 DATA 250,251,253,254,255,257,259,261,263,265 
,267,268,269,271,273 

DATA 275 , 276 , 277 , 284 , 286 , 288 , 290, 297 , 299 ,301 
,303,307,311 ,313,317 

202 DATA 322,326,330,332,334,336,337,339,341,343 
,345,346,347,349,351 

203 DATA 353,354,355,362,364,366,367,369,370,372 
, 374 , 376 , 379 , 389 , 393 

204 DATA 397,418,419,421,422,423,425,427,428,429 
, 43 1 , 433 , 435 , 442 , 443 

205 DATA 444 , 445 , 446 , 44B , 449 , 450, 45 1 , 452 , 454 , 456 
,463,465,471,475,477 

206 DATA 494,496,498,499,500,501,503,505,507,509 
,510,511,513,514,515 

207 DATA 517,522,523,524,526,527,528,530,532,533 
,534,536,541 ,545,570 

208 DATA 576,577,579,581,582,583,585,586,588,589 
,590,591,592,594,595,596,597 

209 DATA 602,604,605,606,607,608,612,614,617,619 
, 623 , 630 , 637 , 642 , 646 

210 DATA 650,652,654,655,657,659,660,661,663,665 
,667,668,670,672,673,674 

211 DATA 675, 682, 684, 686, 688, 6B9, 690, 701, 703, 705 
, 708 , 7 1 7 , 724 , 732 , 733 , 735 , 736 

212 DATA 738,739,745,746,748,749,750,751,752,754 
, 755 , 757 , 762 , 763 , 764 , 766 

213 DATA 767,768,770,773,778,781,783,792,794,797 
,804,810,811,813,814 

214 DATA 815,817,818,820,821,823,825,826,827,828 
,829 , 830, 834 , 836 , 837 ,842 

215 DATA 844,846,848,853,857,860,863,872,874,877 
, 882 , 884 , 886 , 888 , 889 

216 DATA 890,892,893,895,896,397,899,900,902,903 
,904,905,907,908,909,911 

217 DATA 912,914,915,917 
,4,1,8,1,1,1,1,8,1,1,1,8,1,1,1,8,1,8,1 
1,1,1,1,8,1,1,1,8,1,8,1,1,8,1,8,1,1,5, 

»)9*2,,, ,2, ,2, ,,2, ,2, ,,2, 
,2,, 3, 1,1, 5,, 3, 8, 1,1, 11, 1,5,, 7, 1,1 1,1 
1,1, 8, 1,9,, 4, 1,6,, 3, 5,, 2,, 3, 8, 1,9, 
''mi »2,, ,2, ,,2, ,2, ,2, ,2, 

,7, 1,8, 1,8, 10, 5,, 7, 1,1, 9,, 3, 1,1 1,1, 11,1 

227 DATA 8, 1,11, 1,9, ,7, 1,1, 1,8, 10, 8, 10, 8, 1,10,1, 
9, 

228 DATA ,2, ,2, ,2, ,2, ,2, , ,2, , , ,2, ,2, 

229 DATA 2, ,2, ,2, ,2, , , ,2, ,2, ,2, , , ,2, 

230 DATA ,7,1,9,,2,,2,,2,,4,10,B,1,8,6,,2, 
DATA 2, ,2,, 7, 1,6,, 4, 1,9,, 2, ,3, 1,5,, 2, 

» 2 ,, 7,1, 9, ,3, 8, 6, ,2, ,2, ,2, ,,2, 
233 DATA 2, ,2, ,2, , , ,2, ,2, ,2, , , ,7, 1 ,9, 
,2,, 2,, 2,,, 2,,, 2,, 2,, 2,, 4, 6, 



18 DATA 
219 DATA 
DATA 
DATA 
DATA 



2 

221 

222 



223 DATA 

224 DATA 

225 DATA 

226 DATA 



231 

232 DATA 



234 DATA 



235 DATA 7, 1 , 10, 1 , 1 1 , 1 ,8, 1 ,6, ,7, 1 ,9, ,4, 1 ,9, ,2, 
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236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

24B 

249 

256 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

,265 
270 
271 

272 



DATA ,7,1,10,1,10,1,8,10,1,1,10,1,11,1,11,1, 

9,, 

DATA 2,,,, 2,, 2,,,, 2,, 2,, 2,, 7, 1,9, 

DATA ,2,,,,,,2,,,,,,2,,2,,7,1,1 

DATA 10, 1,5,, 2,, 7, 1,8, 1,6,, 7, 1,6,, 2,, 2, 

DATA ,7 ,1,1, 1,8, 1,10, 1,8, 1,8, 1,6,, 2,,2,, 

DATA ,,2, ,2, ,2, ,2, ,,,2, ,,,2, ,2, 

DATA ,2, ,,,2, ,,,2, ,2, ,,,2, ,3,8,1 

DATA 5,, 3, 1,9,, 3, 8, 10,1,1, 1,1 0,8, 1,1, 10, 1,9, 

DATA , 7, 1,B, 1,10, 1,1, 1,9,, 7, 1,8,1, 9,,, 2, 

DATA 2, , , ,2, , ,2, , , , , ,*-, , , , »■«-, 

DATA ,2,, 2,,,,,, 7, 1,9,, 2,, 3, 5,, 2, 

DATA 3, 1,5,, 7, 1,8, 10, 1,5,, 4, 1,10, 1,1, 5,, 2, 

DATA ,2,, 7, 1,5,, 4, 1,6,, 2,, 2,,, 2, ,2, 

DATA ,,2, ,2,, 2,,, 2,, 2,, ,,,7,1,9, 

DATA ,2,, 2,, 2,, 2,,,, 7, 1,10,8, 1,1 0,8, 10,1 

DATA 5,, 2,, 2,,3, 5,, 3, 1,10, 1,8, 1,1, 9,, 2, 

DATA ,7, 1,6,, 7, 1,10, 1,8, 1,9,,, 2,,, 2,, 

DATA 7, 1,11, 1,9, ,,2,,,,, ,2, ,,2,, 2, 

DATA ,2,,,, 2,,,, 2,, 3, 5,, 3, 1,8,6,, 4 

DATA 6,, 2,, 7, 1,1, 10, 1,1, 1,5,, 2,, 4, 6,, 2, 

DATA ,7, 1,5,, 7, 1,8, 1,9,,, 2,,,, 2,,, 2 

DATA ,,2, ,2, ,,,.,, ,7, 1,9, ,2, ,,2, 

DATA ,2,, 2,, 2,, 2,, 3, 1,8, 6,, 4, 1,6,, 4, 6 

DATA ,4,6,,3,1,8,1,1,1,B,6,,2,,3,5,,2, 

DATA ,2, ,2, ,2, ,2, ,,,2, ,,2, ,,,2, 

DATA ,2,,,,, 2,,,, 2,,, 2,,, 2,, 2, 

DATA ,3,1, 10, 1,10,1,10, 1,1, 1,1 0,!,1, 10,1,1,1 

,10,1 

DATA 1,10,1,1,1,1,10,1,1,1,10,1,1,10,1,1,10, 

1,6, 

DATA 169,46,162,250,157,255,11,157,249,12,15 

7,243, 13, 157,237, 14,202,208 

DATA 241,96 

VOL 7: SOUND 1,800,15 

PRINT "ZIEL 1ST ES, MOEGLfCHST VIELE PUNKTE 

ZU" 

PRINT "FRESSEN, OHNE SICH VON DER SPINNE FAN 



273 PRINT "GEN ZU LASSEN. DIE ANZAHL DER PUCKS" 

274 PRINT "WIRD RECHTS UNTEN AN8EZEIGT." 

275 PRINT "DER PUCK KANN MIT DEM JOYSTICK IN ALL 
E" 

276 PRINT "RICHTUNBEN BEWEGT WERDEN. EINE GEWAEH 
LTE" 

277 PRINT "RICHTUNG WIRD BEIBEHALTEN, SOLANGE DI 
ES" 

278 PRINT "MOEGLICH 1ST. DER JOYSTICK KANN DABEI 

IN" 

279 PRINT "NEUTRALSTELLUNG STEHEN. " 

280 PRINT "DURCH DAUERBETAETIGUNG ODER KURZES AN 

281 PRINT "TIPPEN KANN EINE NEUE RICHTUNG GEWAEH 
LT" 

282 PRINT "WERDEN, DIE BEI DER NAECHSTEN GELEGEN 

283 PRINT "HE IT E I NGESCHLAGEN WIRD. " 

284 PRINT "WURDE KEINE NEUE RICHTUNG GEWAEHLT," 

285 PRINT "BLEIBT DER PUCK STEHEN, WENN EINE BEW 

286 PRINT "GUNG IN DER ALTEN RICHTUNG NICHT MEHR 

287 PRINT "MOEGLICH 1ST." 

290 PRINT "GELINGT ES ABZURAEUMEN, GIBT ES EINEN 
■i j»" 

291 PRINT "PUCK ALS BONUS." 

292 PRINT "BIS ZUR VIERTEN RUNDE WIRD DIE SPINNE 

293 PRINT "IM VERHAELTNIS ZUM PUCK VON RUNDE ZU" 

294 PRINT "RUNDE ETWAS SCHNELLER. " 

295 PRINT "SIND ALLE PUCKS GEFANGEN, WIRD DIE ZA 
HL" 

296 PRINT "DER GEFRESSENEN PUNKTE ANGEZEIGT. " 

297 INPUT "DRUECKE RETURN! " j D* 

298 RETURN 

299 END 

Listing 1. Das Listing zu »Puck« fur den C16 (SchluB) 



Cave - Stemenkampf 
im labyrinth 



Ihr Auftrag ist ein »Himmelfahrtskommando«. 
Doch vom Erfolg Ihres Unternehmens hangt das 
Uberleben einer ganzen Flotte ab. . 

Auf dem Weg zuruck zum Heimatplaneten Erde wird Ihr 
Geschwader durch feindliche Raumschiffe, Raketen 
und Minen bedroht (Bild). Die zivilen, unbewaffne- 
ten Raumschiffe folgen Ihrem Kampfjager in sicherer Entfer- 
nung. Ihre Aufgabe ist es, ihnen mit drei Raumschiffen den 
Weg durch das feindliche Territorium zu bahnen. Besonders 
gefahrlich sind die Raketen, die im Labyrinth auf Ihr Mutter- 
schiff warten. Fur die Zerstorung dieser stationierten Objekte 
gibt es deshalb auch die meisten Punkte. Feindliche Raum- 
schiffe sind etwas leichter zu vernichten, deren AbschuB 
wird entsprechend geringer bewertet. Feindliche Minen, die 
sich haufig auch direkt in Ihrer Flugbahn befinden, durfen auf 
keinen Fallabgeschossen werden, da die Detonation auch Ihr 
eigenes Raumschiff zerstoren wurde. Je tiefer Sie in das 
Hohlenlabyrinth eindringen, desto enger und schwerer wird 
es passierbar. Wenn es zum Manovrieren Ihres Schiffes zu 
eng wird, mussen Sie versuchen, sich einen Weg durch die 
Mauer zu schieBen. 

Zerstorte Raumschiffe und Raketen werden mit Pluspunk- 
ten belohnt. Wird Ihr Raumschiff jedoch durch Minen oder 
einen Zusammenprall zerstort, erhalten Sie einen Punkteab- 
zug. Wieviel Punkte ihnen abgezogen werden, hangt von der 



Anzahi bisher abgefeuerter Schusse ab (Faktor 10). Wenn 
Sie beispieisweise bisher 30mal geschossen haben, verrin- 
gert sich Ihr Punktekonto urn 300. Wenn Sie bis zur Zersto- 
rung Ihres letzten Raumschiffs genugend Punkte gesammelt 
haben, konnen Sie sich in die Liste der »Top Ten« eintragen. 
Finden Sie die optimale Strategie heraus. 

(Alexander Jung/kn) 




Bild. »Cave« besticht vor allem wegen seiner guten Grafik 
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1000 IF PEEK(0><>15 THEN 1060 

1010 POKE 55,255: POKE 56,55s CLR 

1020 FOR T= 15360 TO 15791 

1030 READ A*s POKE T, DEC (AS) 

1040 NEXT T: BOBUB 22B0 

1050 RESTORE 3890: FDR T=0 TO 9: READ HI*(T),HI( 

T) s NEXT T 
1060 PU=0: HI=HI(0)s AN=0! SH=0s G=15 
1070 POKE 65286,0: COLOR 0,1: COLOR 1,3,4: COLOR 
4,1: PRINT "{2H0ME,CLR>"s VOL 8: POKE 1343 
,1 
1080 CHAR ,0,20,"{RV5QN,GREY3> Ctttttttttttttttt 

ttttttfTttttttttttttC": PRINT 
1090 PRINT , '<RVSON,BREY3> 3<BLACK,7SPACE>SCORE: { 

BSPACE >H I -SCORE : 16SPACE , SRE Y3 > 3 " 
1100 PRINT "<RVBON> 3-CWHITE} '(> *{2SPACE, BLACK >S 
HOOTS: t9SPACE,RED>00000CWHITE,3SPACE}' ()*{G 
REY3> ]" 
1110 PRINT "CRVSON3 3 {WHITE} +,. /C2SPACE, BLACK1H 

IGHT: <18SPACE,WHITEJ+,./<BREY3> 3" 
1120 PRINT "<RVSON> E tttf tf TTttttTTTTtTttTttttTt 

fttTTttttCCHQME}" 
1130 CHAR ,16,21,"": PRINT USING " <BLUE,RVSON>## 

tttt#":PU 
1140 CHAR ,18,22,"": PRINT USING " <BLUE,RVSON}## 
#";SH 

1150 IF HI>9 THEN CHAR ,25,22, PRINT USING " C 

RVSaN,RED>#####"jHI 
1160 CHAR ,25,23,"": FOR T=l TO 3-ANj PRINT " CRV 
SON , YELLOW > " : CHR* < 34 ) ; CHR* ( 27 ) ; "O {RVSON > <K 
VOFF}";: NEXT T 
1170 POKE 216, Is POKE 217,19 
11B0 FOR T=l TO 40s SYS 15360: NEXT 
1190 POKE 65286,27: SYS 15528 
1200 IF AN=0 THEN CHAR ,7,8, " CYELLOW ALEXANDER J 

UNGC2SPACE>PRESENTS s* 
1210 FOR L«0 TO 1 

1220 FOR T=0-7*L TO 7-7*L: COLOR 1,8,ABS(T> 
1230 CHAR ,18,10,"' O*{D0WN,4LEFT>+,./" 
1240 FOR P=l TO 150: NEXT P,T 
1250 FOR P=l TO 500: NEXT P,L 
1260 COLDR 1,3,4: CHAR , 1 ,8,CHR* (27> + "GK2D0WN}" + 

CHR*(27)+"Q{D0WN}"+CHR*(27)-*-"Q" 
1270 A=l: V=1B: P=3473: PX=5s POKE 239,0s CHAR , 
29-AN*2 , 23 , " CRVSON , GREEN > " +CHR* ( 34 ) +CHR* ( 27 
)+"0" 
1280 DO 
1290 IF V>G THEN V=V-1: CHAR ,19,23,"": PRINT US 

ING "{RED,RVSON}##":V 
1300 A=A+INT(RND( 1>*3-1) 
1310 IF A<1 THEN A=l 
1320 IF A+V>19 THEN A=19-V 
1330 POKE 216, As POKE 217, A+V 
1340 DP=P-t-PX 
1350 GET J*: J=ASC(J*) 
1360 P=P+(J=53)*40-(J=82)*40 
1370 PX=ABS(PX-(J=54) + (J=6B)) : IF PX=37 THEN PX= 

36 
1380 POKE OP, 32: POKE OP~1024,66l SYS 15360 
1390 IF PEEK(QP><>32 OR PEEK(P+PX) <>32 THEN 1870 
1400 POKE P+PX,31: POKE P+PX-1024, 119 
1410 IF INT(RND(1)*10)=3 THEN GOSUB 1650 
1420 SOUND 3,~P+3833,7 
1430 LOOP UNTIL J=B4 

1440 SH=SH+1: C=0s D=0: FOR T-P+PX TO P+37 
1450 IF PEEK(T)<>32 AND PEEK<T)<>31 THEN D=PEEK ( 

T): C=T-P-PX: T=P+37 
1460 NEXT T: IF C=0 THEN C=37~PX 
1470 C=C- 1 : F*=LEFT* ( ■ XXXXXXXXXXXXXXZZXXXXXXXXXX 

zxxxxxzxxxx •• , c ) 

1480 CHAR ,PX+2, (P-3073) /40, " <WHITE>"+F* 

1490 IF DO0 AND D<>35 THEN PRINT "<GREYl>«c" 

1500 SOUND 3,1000,10: SOUND 3,1000,1 

1510 CHAR ,18,22,"": PRINT USING " {Bl_UE,RVSON}## 

#";SH 
1520 FF*=LEFT*("C40SPACE}",C+1) 
1530 CHAR ,PX+1, (P-3073) / 4 0, " {YELLOW}*-": COLOR 1 

,3,4: PRINT FF* 
1540 IF D=0 THEN 1280 
1550 IF D=34 THEN PU=PU+100 
1560 IF D=36 THEN PU=PU+50 
1570 IF D<>35 T HEN GOSUB 1800 s GOTO 1280 

i58< * r . *r LEFT * ( " G PB'BG , BggG'0'B , BGGg , G'e'06BBgB'6TfST3TJGl3TBTe'G' 

g"b"G"G"B"G"G""',C) 
1590 CHAR ,PX+1 , (P-3073) /40, " CRVSON, YELLOW >¥CBLA 

CK}"+F*+" {CYAN}?" 



1600 SOUND 3,800,999: FOR T=B9 TO STEP -1 

1610 POKE 65304, RND ( 1 ) *256 

1620 POKE 65305,RND(1)*256 

1630 VOL(T/10>: NEXT s SOUND 3,0,0: COLOR 4,1s V 

OL 8 
1640 GOTO 1920 
1650 IF RND(1)>.5 THEN 1690 
1660 D-31 1 0+A*40+INT (RND ( 1 ) * < V-l ) > *40 
1670" POKE D, 36: SOUND 1,300,10 
1680 RETURN 

1690 IF RND(1)>'.5 THEN 1730 
1700 D=3110+A*40+40*<V-1) 
1710 POKE D,34s SOUND 1,500,10 
1720 RETURN 

1730 IF RND(1)>.5 THEN 1770 
1740 D=31 10+A*40+INT (RND ( 1 ) *2) *40# (V-l ) 
1750 POKE D,35: SOUND 1,700,10 
1760 RETURN 
1770 D=P+37 

1780 POKE D,35s SOUND 1,900,10 
1790 RETURN ,i 

1800 SOUND 3,800,999 ! 
1810 FOR T=159 TO STEP -1 
1B20 VOL(T/20>: NEXT 
1830 SOUND 3,0,0: VOL 8 
1840 CHAR ,16,21,"": PRINT USING " {BLUE,RVSON}## 

###";PU 
1850 IF 5H/(5+B)=INT(SH/(5+G)) THEN G=G-ls IF G< 

3 THEN 8=3 
I860 RETURN 

1B70 P=P+PX: IF PEEK(OP><>32 THEN P=OP 
18B0 POKE P,230 

1890 SOUND 3,800,999: FOR T=89 TO STEP -1 
1900 POKE 65304 , RND ( 1 ) *256 
1910 VOL(T/10>! NEXT : SOUND 3,0,0: COLDR 4,1: V 

OL 8 
1920 AN=AN+1: PU=PU-SH*10 
1930 IF AN<3 THEN 1070 
1940 COLOR 0,2,5: COLOR 4,2,4s POKE 65286,27s PO 

KE 65287,8 
1950 PRINT " CCLR, WHITE, 2DDWN>"; TAB (16) "<RV0FF>7< 

R VSON , 6SPACE , R VOFF >f" 
1960 PRINT TAB(16) ,, lf{RVSDN,6SPACE>'R , CRVaFF>" 
1970 PRINT TAB<16) " {RV50N>T«iSPACE>7<:RV0FF>" 
1980 PRINT »TAB(17)"^CRVS0N,4SPACE,RV0FF>V" 
1990 PRINT TAB(18)"5<:RVS0N,2SPACE,RVaFF>V" 
2000 PRINT TAB(19> "{RVS0N,2SP ACE, R VOFF}" 
2010 PRINT TAB(19)"<RVS0N,2SPACE,RV0FF>" 
2020 PRINT TAB(18) '"5<RVS0N,2SPACE,RV0FF>F" 
2030 PRINT TAB(17) "SCR VSON, 4SP ACE, RVOFF>F" 
2040 IF PU<HI(9) THEN 2200 
2050 HI*="": A*="": PRINT CHR* (27) "T<4DOWN>": GO 

TO 2110 
2060 GET A*s L=LEN(HI*) 
2070 IF A*=CHR*(20) AND L>0 THEN HI*=LEFT* (HI*,L 

-1) s GOTO 2110 
2080 IF ASC(A*)>64 AND ASC(A*)<91 THEN HI*=HI*+A 

* 
2090 IF A*=" " OR A*="-" THEN HI#=HI*+A* 
2100 IF L=13 THEN A*=CHR*<20): GOTO 2070 
2110 PRINT "OJP,2SPACE,BLACK}IHR NAME: C3SPACE>"H 
I$««- " 

2120 IF A*OCHR*(13) THEN 2060: ELSE SOUND 2,800 

,10: SCNCLR 
2130 IF LEN<HI*)<12 THEN HI*=HI*+« ": GOTO 2130 
2140 HI*(10)=HI*: HI(10)=PU 
2150 SP=0: FOR T=0 TO 9s IF HI$(T)="" THEN HI*(T 

) =" {4SPACE} -C4SPACE> " 

2160 IF HI (T) >=HI (T+l) THEN 2190 

2170 HI*=HI*<T): HI*(T)=HI*<T+1> : HI*(T+1)=HI$ 

2180 HI=HI(T): HI (T)=HI (T+l ) : HI (T+l)»HIi SP=1 

2190 NEXT T: IF SP=1 THEN 2150 

2200 PRINT TAB(8)"{BLACK}fiWYfi7YYWWY7WY0W7W 

Jl" 
2210 FOR T=0 TO 9 

2220 PRINT TAB(B)"t?":: PRINT USING *'## ?7":T+1: 
2230 PRINT HI*<T)"h";: PRINT USING "#####R" jHI (T 

) 
2240 NEXT T 

2250 PRINT TAB (8) "i!Fp?i a PPfip"p"p"P»Vp"P , i, , pTPFpJli" 
2260 FOR T=l TO 2000: NEXT 
2270 POKE 239,0: GET KEY S*: GOTO 1060 
2280 COLOR 0,10,3s COLOR 4,10,3: SCNCLR 
2290 SYS 15528: POKE 65286,27 
2300 FOR T=l TO 25: A*= " {BROWN , 42SPACE } " 
2310 FOR P=l TO 3: MID*(A* T RND(i)*4-2+P*ll , 1>=MI 
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D* <" {RED, ORANGE, YELLOW >",P,1) : NEXT P 
2320 PRINT M: NEXT T 
233€» RESTORE 2990: VOL 8 
2340 CHAR ,39,0,CHR*(27>+"T": A*="" 
2350 FOR T=l TO 90: FOR P=l TO 60: NEXT 
2360 PRINT "{HOME}"; A*: SOUND 3,1010,2 
2370 SYS 15411 
23B0 READ A*: IF LEFT* (A*, 1 ) ="-*' THEN A*=" C13D0W 

N}"+RIGHT*<A*,LEN<A*)-1) 
2390 NEXT s A*="": POKE 239,0 
2400 DO : GET A* 

2410 SYS 15411: SOUND 3,1010,2 
2420 FOR P=l TO 60: NEXT P 
2430 LOOP WHILE A*="" 
2440 POKE 0,0s RETURN 
2450 DATA A2,00,A9,27,8D,59,3C, A9 
2460 DATA 0C,BD,5A,3C, A9,A1,BD, 57 
2470 DATA 3C,20,56,3C,E8,E4,D8 ,30 
24B0 DATA FB, A9, 20, BD, 57, 30,26,56 
2490 DATA 3C,E8,E4,D9,30,F8, A9, Al 
2500 DATA 8D,57,3C,20,56,3C,EB,E0 
2510 DATA 14,30,FB,A9,00,B5,DA,A9 
2520 DATA 0C,85,DB,20,6A,3C, 18, A5 
2530 DATA DA, 69, 28, 85, DA, B0, 03, 40 
2540 DATA 3B,3C,E6,DB, A5,DB,C9,0F 
2550 DATA D0,01 ,60,40, 3B, 30, A9,A1 
2560 DATA 8D,47,0F, 18, AD, 59, 30, 69 
2570 DATA 28, 80,59,30, 90, 03, EE,5A 
25B0 DATA 30,60, A5,DB,8D, 92,30, SD 
2590 DATA 97,30,BD,9A,30,BD,A2,3C 
2600 DATA 18, AS, DA, 8D, 91, 30, BD, 99 
2610 DATA 30,69,01, 3D, 96, 30, 69, 26 
2620 DATA BD,A1 ,30,90, 03, EE, A2,3C 
2630 DATA AE,F8,0E, A0,00,B9,F9,0E 
2640 DATA 99, FB, 0E,CB,C0,28,D0,F5 
2650 DATA BE, IF, 0F ,60, 00,00,00**00 
2660 DATA A2,00,BD,00,D0,9D,00,3B 
2670 DATA BD,00,D1 ,9D,00,39,BD,00 
2680 DATA D2,9D,00,3A,BD,00,D3,9D 
2690 DATA 00,3B,EB,E0,00,D0,E3, AD 
2700 DATA 06,FF,09,40,8D,06,FF,AD 
2710 DATA 07,FF,29,F7,BD,07,FF,AD 
2720 DATA 12,FF,29,FB,8D, 12, FF, AD 
2730 DATA 13, FF, 29, 03, 09,38, SD, 13 
2740 DATA FF,A9,72,8D, 16, FF, A9,61 
2750 DATA SD, 17, FF, A9,39,8D, 1B,FF 
2760 DATA A2, 00,BD,08.,3D,9D,DB,38 
2770 DATA E8,E0,AB,D0,F5,60,00,00 
2780 DATA 18, IB, 18,FF,FF, 18, 18, IB 
2790 DATA 30,42,99, Al ,A1 ,99,42,30 
2800 DATA 18, 18, IB, 18, 18, 18, 18, IB 
2810 DATA 00,00,©0,FF,FF,'00,00,00 
2826 DATA 00,E0,70,3E,F3, 3E,70,E0 
2830 DATA 00,00,00,00,00,00,00,00 
2840 DATA 00,FB,FB,FB,00,DF,DF,DF 
2850 DATA 08, 10, 10,36, 14, 10, 3E, 63 
286© DATA 00,00, 18, FF, 18, FF, 18,00 
2870 DATA 00, 18,7E,E7,7E,24,42,00 
2BB0 DATA 00,00,00,00,66,00,00,00 
2890 DATA C6,6C,29,BB,EE,30,6F, 14 
2900 DATA IE, 33, 60, 60, 60, 61, 33, IF 
2910 DATA 00,00,00,00,F8,C9,6D,3F 
2920 DATA 00, 00, 00, 00, 07, ED, 60, 38 
2930 DATA 00, 00, 00,3S,6C,FB,F0,3E 
2940 DATA 00,3F,60,CC,DF,CD,61 ,3F 
2950 DATA 00, 00, FC, 0F, 03,81 ,80, 00 
2960 DATA 00,00,00,30,30,00,00,00 
2970 DATA 00,00, 01 ,01 ,80,F0,3F,03 
2980 DATA 00,FC,86,B3, FB,33,86,FC 



2990 DATA 
3000 DATA 
3010 DATA 
3020 DATA 
3030 DATA 
3040 DATA 
3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA 
3090 DATA 
3100 DATA 
3110 DATA 
3120 DATA 
3130 DATA 
3140 DATA 
3150 DATA 



•-4" 

•-{RVSON} ■ 
'- {RVSON}/." 

•-crvson}#" 

'-{RVSON}'/." 
■-{RVSON} " 
'~{RVSON}0" 
'~{RVSON}A" 
'- {RVSON} V" 
'-{RVSON}E" 
'- {RVSON} " 

•~{rvson}%" 

'- {RVSON }#" 
"-CRVS0N>7." 
"-{RVSON} " 



3160 DATA 
3170 DATA 
3180 DATA 
3190 DATA 
3200 DATA 
3210 DATA 
3220 DATA 
3230 DATA 
3240 DATA 
3250 DATA 
3260 DATA 
3270 DATA 
3280 DATA 
3290 DATA 
3300 DATA 
3310 DATA 
3320 DATA 
3330 DATA 
3340 DATA 
3350 DATA 
3360 DATA 
3370 DATA 
33B0 DATA 
3390 DATA 
3400 DATA 
3410 DATA 
3420 DATA 
3430 DATA 
3440 DATA 
3450 DATA 
3460 DATA 
3470 DATA 
3480 DATA 
3490 DATA 
3500 DATA 
3510 DATA 
3520 DATA 
3530 DATA 
3540 DATA 
3550 DATA 
3560 DATA 
3570 DATA 
3580 DATA 
3590 DATA 
3600 DATA 
3610 DATA 
3620 DATA 
3630 DATA 
3640 DATA 
3650 DATA 
3660 DATA 
3670 DATA 
3680 DATA 
3690 DATA 
3700 DATA 
3710 DATA 
3720 DATA 
3730 DATA 
3740 DATA 
3750 DATA 
3760 DATA 
3770 DATA 
3780 DATA 
3790 DATA 
3800 DATA 
38 10 DATA 
3B20 DATA 
3830 DATA 
3840 DATA 
3850 DATA 
3860 DATA 
3870 DATA 
38B0 DATA 
3890 DATA 
3900 DATA 
3910 DATA 
3920 DATA 
3930 DATA 
3940 DATA 
3950 DATA 
3960 DATA 
3970 DATA 
3980 DATA 



"-{RVSQN}A" 
"- {RVSON }L" 
"~ {RVSON }E" 
"-{RVSON}X" 
"-{RVSONJA" 
"-CRVS0N1N" 
"- {RVSON }D" 
"- {RVSON }E" 

■■-{rvsonw 

"•-{RVSON} " 

"~<:rvson}J" 

»~ {RVSON }U" 
"-{RVSON}N" 
"-{RVSON}S" 
"-{RVSON} " 
"-{RVSON} " 
"- {RVSON} 1" 
»-{RVSON}9" 
"-{RVSON}B" 
»~{RVS0N}6" 
"-{RVSON} " 
"~ {RVSON }'/£" 
"-{RVSON}**" 



-{RVS0N>7." 
-{RVSON} {RVOFF}" 



-it" 
'-!£," 
"—.v." 



"{CLR,12D0WN}& fl" 

" {CLR, 1 lDOWN>14<3SPACE>n" 

" tl0DOWN>J4{5SPACE>fi" 

" C9D0WN>MC7SPACE>il" 

" {9D0WN, RVSON, 9SPACE}" 

" {8D0WN , RVSON ,9SPACE>T" 

" {7D0WN, RVSON, 10SPACE>" 

" {6D0WN }f <RVSON , 9SP ACE >T" 

" {6D0WN , RVSON , 9SP ACE } T " 

" <!6D0WN , RVSON , 3SPACE }+ ' + {3SPACE > " 

"{5D0WN}f {RVSON, 3SPACE}, (, {3SPACE}" 

■' {5D0WN,RVSGN,4SPACE}. > . {2SPACE}T" 

" {5DDWN , RVSON , 4SPACE >/*/ {2SPACE > " 

" -C5D0WN , RVSON , 9SPACE >T" 

" {5D0WN J f {RVSON , 9SPACE > " 

" {6D0WN , RVSON , 9SPACE If" 

" -C6DQWN } T<R VSON , 9SP ACE > " 

" C7D0WN , RVSON , 9SP ACE J " 

" {7D0WN , RVSON , 9SPACE >T" 

" <7D0WN JTCRVSON , 9SPACE} " 

" {BDOWN , RVSON , 9SPACE5T" 

11 C8D0WN>TCRVS0N,9SPACE>" 

" {9DOWN , RVSON , 9SPACE J " 

" €SDO WN } T CRVSON , 9SPACE > " 

" {BDOWN, RVSON, 9SPACE>T" 

" {8D0WN , RVSON , 9SPACE > " 

" {7D0WN}f {RVSON, 9SPACE}" 

" {7D0WN,RVS0N,9SPACE>T" 

" {7DOWN , RVSON , 9SPACE3-T" 

" {7DUWN > T CRVSON , 9SPACE > " 

" {BDOWN , RVSON , 9SPACE > " 

" {BDOWN , RVSON, 9SPACEJT" 

" {8D0WN >TtRVSON , 3SPACE>+ ' + {3SPACE} ' 

" -CBDOWN>'ff{:R VSON, 3SP ACE > , ( , {3SPACE}' 

" {9DOWN, RVSON, 3SPACE}. ) . C3SPACE>7" 

" {9D0WN , RVSON , 3SPACE} /*/ <3SPACE>T" 

" {9DOWN>T<RVSQN ,9SPACE>" 

" C9DOWN}T{RVSON,9SPACE}" 

'* { 1 ODOWN , RVSON , 9SPACE } " 

" f9DOWN>T<:RVSON,9SPACE>" 

" {9D0WN , RVSON , 9SPACE >T" 

" C9D0WN, RVSON, 9SPACEV 

" {9D0WN>T<1RVS0N,8SPACE>T" 

" {CLR , 1 0DOWN , RVSON , BSP ACE >T" 

" -C9D0WN , RVSON , 9SPACE >T" 

" ",9 

" {12SPACE}",8 

" C4SPACE }+, . / {4SPACE}" ,7 

" {4SPACE > ' <> * {4SPACE > " , 6 

" {4SPACE}+, . / -C4SPACE>" ,5 

"C12SPACE>" f 4 

" t4SPACE>MADE-C4SPACE>" ,3 

" C5SPACE>BY {5SPACE}" ,2 

" OSPACE>A JUNG C3SP ACE >" , 1 

" - £ 1986 - ",0 



Listing. »Cave«. Bitte beachten Sie die Eingabehinweise 
auf Seite 130. 
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auf dem Bildschirm 



»Apple Panic« ist ein flottes Geschicklichkeits- 
spiel fur den C16, bei dem der Spieler nicht in 
Panik geraten darf. Beeilen Sie sich, aber behal- 
ten Sie die Nerven. 

Das Spiel »Apple Panic« verlangt vom Spieler einiges an 
Nerven. Er mu8 Apfel aufsammeln, ohne dabei in die 
Loeher im FuRboden zu fallen Oder das Zeitlimit zu 
uberschreiten. 

Die Spielfigur wird mit den Cursortasten gesteuert. In der 
obersten Bildschirmzeile befinden sich drei Anzeigen: »Time« 
zeigt an, wie lange schon gespielt wird, »Score« gibt den 
Punktestand an und »E.Zeit« gibt die Zeit an, zu der man alle 
Apfel eingesammelt haben muB. Die Anzeigen in der zweiten 
Zeile haben folgende Bedeutung: »Hk gibt die hochste bisher 
erreichte Punktzahl an, »0« die Apzahl der noch verbleiben- 
den Leben und »Levei« die gerade durchlaufene Spielstufe. 
Beim Abtippen und Laden des Programms mu(3 man sehr 
sorgfaltig arbeiten. Diskettenbesitzer gehen wie folgt vor 
(HinweisefurDatasettenbesitzerfolgenimAnschlu6):Zuerst 
geben Sie Listing 1 ein, welches die beiden anderen Pro- 
grammteile nachladt. Listing 1 wird als normales Basic- 
Programm eingegeben und mit »DSAVE " LOADER "« gespei- 
chert. 

Komplizierter wird es mit Listing 2, das den geanderten Zei- 
chensatz enthalt. Sie mussen unbedingt wie fofgt vorgehen: 

- TippenSie»MONITOR«und < RETURN > urn in den Moni- 
tor zu gelangen. 

- Dann geben Sie »T D000 D800 1000« und 

< RETURN > ein. 

- Tippen Sie dann die Zeilen aus Listing 2 ein. 

- Zum Speichern geben Sie »S"PRG.1 ",8,1000 ; 1400« und 

< RETURN > ein. 

Den dritten Programmteil geben Sie wie ein normales 
Basic- Programm ein und speichern es mit »DSAVE // APPLE 
PANIC "«. 

Zum Starten geben Sie einfach »DLOAD" LOADER "« und 
nach dem Laden »RUN« ein. 
Fur Datasette: 

Wenn Sie eine Datasette haben, brauchen Sie Listing 1 
nicht abzutippen, haben daftir aber etwas mehr Arbeit, wenn 
Sie das Spiel laden wollen. 

Zur Eingabe des Listing 2 gehen Sie wie oben beschrieben 
vor. Sie mussen allerdings mit »S"PRG.1 ",1,1 000,1 400« 
speichern ! Das Listing 3 tippen Sie normal ein und speichern 
es mit »SAVE"APPLE PANIC "«. 

Zum Laden von Datasette mussen Sie folgende Befehle 
eingeben: 

»POKE 44,20:POKE 5120,0:NEW« 
»LOAD"PRG.1 ",1,1 « 
»LOAD "APPLE PANIC "« 
»RUN« 

Dann sollte »Apple Panic« problemlos laufen. 

Und nun viel SpaB und: Keine Panik! 

(Andreas Zilla/bs) 



10 REM LOADER 

20 PRINT " <CLR >P0KE44 , 20 : P0KE2 0*256 , 0s N£ W " 
25 PRINT "<3DGW1M}-L0AD"+CHR*<34)+"PRS. 1"4-CHR* <^4) 
+",8,1" f 

30 PRINT " -C4D0WN>L0AD" +CHR*K 34 >+" APPLE PANIC"+CH 

R*<34>+",8 
40 PRINT " C4D0WN>RUN" 

100 POKE 239,6: POKE 1319,19: POKE 1320,13: POKE 
1321,13: POKE 1322,13s POKE 1323,13s POKE 1 
324,13 



Listing 1. Basic-Lader fur »Apple Panic«. Bitte nur 
verwenden, wenn Sie ein Diskettenlaufwerk besitzen. 
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Listing 2. Maschinensprache-Teil von »Apple 


Panic«. 


Bitte unbedingt die Eingabehinweise im Text beachten! 



10 REM **************##**********.***.*.** 

20 REM *APPLE PANIC 1* 

30 REM * * 

40 REM * VON ANDREAS ZILLA * 

50 REM * *. 

60 REM ***************#**■■***#***-»**#*** 

100 BOSUB 2040; REM TITELBILD 

110 REM HAUPTPRQSRAMMM 

120 GET JJ*: IF JJ*="" THEN 120 

130 SC=0: BI=0: LE=3 

140 BS=3072: X=0: Y=3: PU=14: TI*="000000" s A=l 

145 AA*(1> ="000230": AA* <2> ="00021 0" : AA*«3)="00 

0200" 

150 IF RO=l THEN AA*(1) ="000210": AA* (2) ="000150 

": AA*<3> ="000120" 
160 IF RQ=2 THEN AA*< 1) ="000150" : AA*<2> ="00012« 

"s Aft*<3>="«©0100" 
170 IF RO=3 THEN AA* (1)=" 0001 50" : AA* <2> ="000120 

" : AA* ( 3 ) = " O00050" 
180 AA*<4)=AA*(1> : A A* < 5 > = A A* < 2 > 
190 POKE 65298,192s POKE 65299,17 
200 BI=BI+1: IF BI>5 THEN BI=1: RO=RO+l: RESTORE 

210 IF BI=1 THEN BOSUB 720 
220 IF Bl=2 THEN BOSUB 990 

Listing 3. Hauptprogramm zu »Apple Panic« 
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230 
240 
250 

266 

290 
300 
310 
320 

330 

340 
350 
360 

370 
380 
390 

400 
410 
420 
430 

440 
450 
460 
470 

430 
490 

500 

510 
520 

530 

540 
542 
544 
550 

560 
570 
580 

590 

600 

610 
620 
630 

640 
650 

660 
670 
680 

690 
700 
710 

720 

730 

740 

750 

760 
770 



IF BI=3 THEN GOSUB 1260 

IF BI=4 THEN GOSUB 1520 

IF BI=5 THEN GOSUB 1780 

PRINT "CH0ME,22RISHT>E. ZEIT" MID*(AA$<BI> 

31 



,4, 



POKE BS+X+40*Y,A: XA=X: YA=Y: GET AS 

PRINT "-CHOME>TIME: " RIGHT* (TI*,3) 3 ,! SFORE:": 

SC 

PRINT "HI = " 5 HI; " <55FACE>A= ,! ;LE; " {6SFACEJLEVE 

L:";LV' 

IF RO=0 THEN LV=BI 

IF RO=l THEN LV=B.I+5 

IF R0=2 THEN LV=BI+10 

IF LE=0 THEN 2240 

IF A*="OJP}" THEN A=4 

IF A*="CRIGHT>" THEN A=l 

IF A*="-CDOWN>" THEN A=2 

IF A*=" CLEFT>" THEN A=3 

IF A=l THEN DY=0: DX=1 

IF A=2 THEN DY=1: DX=0 

IF A=3 THEN DX=-1: DY=0 

IF A=4 THEN DX=0: DY=-1 

Q=PEEKCBS+X+DX+40*(Y+DY) ) 

IF Q<>32 THEN 570 

X=X+DX: Y=Y+DY 

IF PU=0 THEN 140 

IF LE=0 THEN 2240 

VOL 8: SOUND 3,100,2 

IF BI=1 AND TI$>AA*<1> 

IF BI=2 AND TI*>AA*<2> 

IF BI=3 AND TI*>AA*<3> 

IF BI=4 AND TI*>AA*<4> 

IF BI=5 AND TI*>AA*(5) 

POKE BS+XA+40*YA,32 

GOTO 310 

IF Q=102 THEN 310 

IF Q=0 THEN 670 

IF Q=87 THEN 61© 

GOTO 480 

REM LOCH 

X=X+DX: Y=Y+DY: POKE BS+XA+40*YA,32 

POKE BS+X+40*Y,42: VOL 8: SOUND 1,100,50: FD 

R 1=1 TO 1000: NEXT 

POKE BS+X+40*Y,87 

X=0: Y=3: DX=0: DY=0: LE=LE-1 

SOTO 310 

REM APFEL 

X=X+DX: Y=Y+DY: POKE. BS+XA+40*YA,32: VOL S; 

SOUND 1,800, 30s PU=PU-1 

POKE BS+X+40»Y,0: SC=SC+100 

GOTO 310 

REM BILDi ************************ 

PRINT " CCLR , 4D0WN > +»-■< 

PRINT "09SPACE>- 
PRINT ,,; ?+ 



THEN 2240 
THEN 2240 
THEN 2240 
THEN 2240 
THEN 2240 



PRINT "TTC2SPACE>- 

PRINT "^PF06SPACE}^"; 



PRINT "TTT ^FTT ++++++++++ 

"+"■*=*■"" J 

PRINT "TT¥<:20BPACE 




800 

810 



-C26SPACE>TTT 



+ +++++++ 
:5^PTC2SPACE>TT«> SPACE J 7 

++T<6SPACE> 



PRINT "5^F{:3SPACE>5 
W-C5SPACE>T"5 
820 PRINT ": 



H+++ + 

•£2SPACE 



830 
840 



850 
860 



PR I NT ":FF07SPACE >+" S 

PRINT "^T ++TC2SPACE >+++++ tt 



>■++++++++ 
'•C15SPACE 



870 PRINT "^PF 

:?FF": 
880 PRINT "5^?<34SPACEJ5^P? 
890 PRINT "^'+'+'4 

J + J +'+' n ; 
900 PRINT "ST -£31 SPACE 3++ 
910 PRINT "TF '+"+■+■+• 

■+"++'" ; 
920 PRINT "W<345PACE ?++>+" ; 
930 PRINT 

940 .DATA 3275,3201,3215,3230,3345,3582,3549,3610 

,3819,3901,3973,3714,3816,3412 
950 FOR 1=1 TO 14: READ BD: POKE BD,0: NEXT 
960 DATA 3209,3347,3324,3355,3608.3719,3815,3974 
970 FOR 1=1 TO 8: READ BD: POKE BD,87: NEXT : RE 

TURN 
980 REM BILD 2 ********************** 
990 PRINT " tCLR , 5D0WN>VV+V+V+V+>"*++ ++++++ +++++++ 

1000 PRINT "5P<38SPACE>T": 
1010 PRINT "+ 

++ +" ; 
1020 PRINT "■+ 

1030 PRINT "+ ^FFF<30SPACE>+TT T" ; 
1040 PRINT "f 5^F 

¥? T" 1 

1050 PRINT "+ ¥TT WV+V+'-F +' + r + - + -+- + \-+- + -+ J + -+-+-+- + '+-+.++-+<.5 

SPACE>T"; 

1060 PRINT "T T+Z yPP-C22SPACE> : F?T TZ? +"; 

1070 PRINT "7 VP+ {5SPACE > +"+++++++ ++++>>>>-+-F¥ +T 

T "+"+"+" T" ; 
1080 PRINT "T TZT T+¥ V+V+V+V+* 1 0SPACE J ++ "tt? 3^F 



PRINT "++ +VF3-' C2SPACE > T+ 

PRINT "T+ T^PF-CSHF.SP,2SPACE>^FF ++-C8SPACEJ + 



1090 PRINT "T +W ?5PF +V+4V+V+V+V+V+V+<3SPACE > + 
+++ '+++ ¥": 

1100 PRINT "T =FF? ¥?¥ +++^+^-^+^-+++++++*^ T +++ T 

1110 PRINT "T ++? yFT£22SPA CE>?F¥ ?++ ?" ; 

1120 PRINT "¥ 3=FF 5=PF ++V+" +-++-+++4-"+>V+V+V+' +++ + 
V+ +" : 

1130 PRINT "^F'TFF +++ '+V+V < 1 3SPACE }^FFF ^FT<5SPAC 

EJT"; ^„____ „„ 

1140 PRINT "T TFT T+7 W+V+V+'+V+V +V++++++ +++ T 

1150 PRINT "+ +tt :pFF{22SPACE>TT+ ++T "¥" s 
1160 PRINT "^ ^FF 

: FF ^F"; 
1170 PRINT "¥ T^PFtSeSPACEJTT'F +" ; 

1180 PRINT "T ?T? ? 

"+"+" T" ; 
1190 PRINT "T<38SPACE>+": 
1200 PRINT ": 

"+"+"+"+" : 
1210 DATA 3197,3214,3228,3630,3906,3894,3960,363 

7 , 368 1 , 3729 , 3538 , 35 1 3 , 38 1 7 , 3532 
1220 FOR 1=1 TO 14: READ BD: POKE BD,0: NEXT 
1230 DATA 3753,3717,3809,3578,3334,3626,3470,396 

1 
1240 FOR 1=1 TO 8: READ BD: POKE BD,87: NEXT : R 

ETURN 
1250 REM ************************** 
1260 PRINT "<CLR,5D0W N>- 

1270 PRINT ,,, £15SPACE>T<19SPACE> -F+V+V" ; 
f280 PRINT ' ' ?+'++-++'+'+'+'+'¥? C3SP ACE J - 

T^F€2SPACE>"+'+' : FF" ; 
1290 PRINT "?C10SPACE >yF¥ T^22SP ACE>?F"; 
1300 PRINT " T^SPACEJ'+V+V+'+V+V+'^SPACE >+ 



-{6SPACE>" 



1310 PRINT "^-C13SPACE>: 

+"+" ; 
1320 PRINT "T 

T€4SPACE] 

1330 PRINT "T TC14SPACE3' 

1340 PRINT "? : PFF T¥¥ +? ^FFFI22SPACEJ?T": 



F{6SPACE>TT 



Listing 3. Hauptprogramm zu "Apple Panic«. Bitte unbedingt die Eingabehinweise im Text beachten. 
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C16/C116 



1350 PRINT "+■ +V? ++VC4SPACE}T£+- 
"+"+"+' 



■ 14 SPACE}:? 



'■C10SPACEK 



1360 PRINT "+• +++ VV+V 

"+V+*" : 
1370 PR INT "? +++++W +V+V++V VV+V+V <:2SFACE ? +V+ V V 

+* ++"++" +++" j 

1380 PRINT , ' + U0SPACE}+^+V+'{8SPACE}+V+"-a0SPACE}+- 

++": 
1370 PRINT 



+ +++ ++++ 



++++ 5 
1400 PRINT " + +7T +V+V{28SPACE}+V": 
141© PRINT "+" +++ , {4SPACE3-+V+ - {6SPACE}- 

1420 PRINT "+X3SPACEJ+V+V 



1430 PRINT "WF V+V+T30SFACEJ+V 
1440 PRINT "T+V 

1450 PRINT "TTTil4SPACEJ 




1460 PRINT " 
1470 PRINT " 



1480 DATA 3194,3326,3357,3279,3673,3924,3853,374 
9,3570,3490,3651,3303,3448,3557 

1490 FDR 1=1 TO 14: READ BD: POKE BD,0s NEXT 
1500 DATA 3245,3314,3713,3860.3537,3577,3304,352 

1,3562,3436 
1510 FOR 1=1 TO 10: READ BDs POKE BD,87: NEXT : 

RETURN 
1520 REM BILD 4************************** 
1530 PR I NT " iCLR , 4DQ WN > VV+V+V+V+V+V+V+V+V+V+V+V+ ' 

1540 PR INT "a 4SPACE>y{2SPACE>¥ T{2SPACE>^t2SPAC 
E > HW)W*W+ C3BPAC^>T" : 



?{3SPACE}T{20SPACE>: 



1550 PRINT "T€3SPACE>^ 

+"+"+'" ; 
1560 PRINT "+ , C3SPACE}+V{:6SPACE}+' 

+^ +"ii€5SPACE}+"": 
1570 PRINT "+■ a{7SPACE>Tt3SPACE>^i2SPACE>u<:3SPAC 

E >H C5SPACE } VV+V 
15B0 PRINT 



?<3SPACE>Ji WC3SPACEJ 
PACEJ+VFJi +{2SPAC£>+ T T +*"; 

1590 PRINT 



+V+- C2SPACE } V'+V+V+'h 

SPACE J+X8SPACE3-T"; 
1600 PRINT "?{llSPACE>V<4SPACE}+ , f9SPACE}T 

+++ +"i 
1610 PRINT "+" V++VVV+V+VT<:2SPACE >M 



V+X2S 



■ -C4SPACE > + -£4SPACE } +V-C 



{5SPACE>+V+ +"'; 
1620 PRINT "T<:i6SPACE>- 

5SPACE>+"": , 
1630 PRINT ": 

+"+"+"+"" ; 
1640 PRINT "T^5SPACE}T02SPACE>T"; 
1650 PRINT 

+" ++•"; 
1660 PRINT "+" +■+■+■+■+■ JAVV+V+V+V 

T T+""; 
1670 PRINT "T-C38SPACEJ+-"; 
1680 PRINT 

1690 PRINT "T<20SPACE}+* +V+V<12SPACE>+"" ; 
1700 PRINT "+■ +V+V+V+V+V+V+V+V+V+V VV+VV+V+V 

+V +*": 
1710 PRINT "+"C13SPACE}+V+V Ji<15SPACE>+Vy +•'■; 



1720 PRINT "+X2SPACE}+^ 



1730 PRINT 




-■£9SPACE>K<:2SPACE3V 
t3SPACE>^ 



1740 PRINT "'■ 
+V++" ; 

1750 FDR 1=1 TO 14: READ BD: POKE BD,0s NEXT 
1760 DATA 3238,3405,3318,3473,3446,3503,3428,335 

0,3250,3415, 3658 , 3936 , 3964 ,3986 
1770 RETURN 

1780 REM BILD 5 ************************** 
1790 PRINT " CCLR , 5DOWN> VV+V+V+V+V++V+VV+V+VV+V+V 



1800 PRINT "-£13SPACE>+V JiVV++V+VJi{2SPACE >: 



1810 
1820 

1830 

1840 

1850 

I860 

1870 
1880 



++++ ++++++ 



PRINT "+V +V+V+V+VV (27SPACE > hF' 

PRINT "+V<:6SPACE>il<:4SPACE>++T=H 

+* '+"+'+■ +V +""; 

PRINT "W ++V +'+■+■+"+■ V+V+V f.2SPACE > +V7<6SPACE 

>+T "+"+"+" +"+* +""; 

PRINT "+V T+V V+V+VC2SP ACE > H5WV +W +V+VC4 

SPACE >TT5: +V +""; 

PRINT "+V +V5F-a8SPACE}T TT ++C2SPACE},K£2SPA 

CE>+7 +"'; 

+*+" +"" ; 

PRINT " +V{24SPACE>+V< 11 SPACE }+"': 

PRINT "+"+-+-+" +"+"+"+"+" ++:+++ T+V V+VC3SP ACE > VV+V 



1910 
1920 



" +V C 3 SP AC E > +V+V+" {4 SP A CE } +V +WX5SPACE 
-X4SPACEJ+V"; 

PRINT "TT 5M{5SPACE>+V+* +Vtl9SPACE>¥+* +V ; 

PRINT "+Vt4SPACE}+VT<:5SPACE>: 

V+V 



C2SPACE>+V 



++ 



1930 PRINT "+V+V 
PACE>T+*"; 



+V+"+'ii C2SPACE >•+"+■+■+■+' { 1 2S 



1940 
1950 

I960 
1970 

1980 
1990 

2000 
2010 

2020 

2030 
2040 
2050 

2060 

2070 

2080 

2090 

2100 

2110 
2120 
2130 

2140 

2150 

2160 
2170 
2180 

2190 

2200 
2210 
2220 
2230 
2240 

2250 
2260 
2270 



PRINT 

PRINT 

VV+V" i 

PRINT 

PRINT 

'+"+"+"+'" ; 

PRINT" "+V+V{9SPACE} 

PRINT 



*' +VC33SPACE >■+"+■+■+■+"■ s 
"+W+" 




FOR 1=1 TO 14: READ BD: POKE BD,0: NEXT 

DATA 3370, 3438 , 3677 ,3874 , 3962 , 3979, 3789 , 354 

6 , 3466 , 3258 , 3449 , 3529 , 3578 ,3612 

RETURN 

REM TITELBILD 

PRINT "{CLR}";: POKE 65298,196s POKE 65299, 

208 

PRINT 

****■' 

PRINT 



C4RIBHT }***** ***** ***** *{5SPACE>* 



<!4RISHT}*-t3SPACEJ* *C3SPACE>* *C3SPA 
CE>* *{5SPACE>* 

PRINT " C4R I GHT >***** ***** ***** *<5SPACE>* 
**C2SPACE>" 

PRINT " t4RIGHT3*C3SPACE>* * {5SPACEJ*-C5SPACE 
>* <5SPACE >* C4SPACE > " 

PR I NT " -C4R I BHT > * OSPACE > * * -C5SP ACE >*C5SPACE 
>***** ****#" 

PRINT "<:4R I GHT,2DQWN >***** ***** *<!3SPACE>* 
t3SPACE>* <:4SPACE>****" 

PRINT "•£4RIGHT>*<3SPACE>* *{3SPACE>* **<2SP 
ACE >* OSPACE >* {3SPACE >* {4SPACE > " 
PRINT "-C4R I GHT 3***** ***** **<2SPACE>*<3SPA 
CE>*<3SPACE>*" 

PRINT "^4RIGHT>*<:5SPACE>*OSPACE>* * * *£3S 
PACEJ*<:3SPACE>*" 

PRINT "•?4RIGHT>*-C5SPACE>*{:3SPACE>* * t2SPACE 
>**OSPACE>*<:4SPACE}****" 
PRINT "{3D0WN,4RIGHTXC> 1986 
PRINT "<4RIGHT,D0WN,2RIGHT>BY" 
PRINT "t3RIGHT,DDWN> ANDREAS ZILLA & A.K. £75 
PACE>" 

PRINT "{3RIGHT,2DQWN,2RIGHT,SYNTH. : 130>ZUM 
START BITTE 'S* DRUECKENCSYNTH. : 132>" 
GET T*: IF T*="" THEN 2200 
IF Tt="S" THEN RETURN 
GOTO 2200 
END 

PRINT " CH0ME,9D0WN, 13R I GHT, SYNTH. : 1303-GAME 
OVER tSYNTH. : 132 >": FOR 1=1 TO 2000: NEXT 
IF SOHI THEN HI=SC 
GET A*: IF A*="" THEN 2260 
PRINT "<:CLR>": RESTORE : GOTO 110 



Listing 3. "Apple Panic« (SchluB) 
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Gefahriiche Pyramide! 



Finden Sie die Maske des Pharao! Allein und ein- 
geschlossen mussen Sie versuchen* der Pyra- 
mide ihr Geheimnis zu entreiften. Doch dabei 
sind viele Hindernisse zu iiberwinden. Sie benoti- 
gen nur einen VC 20 mit einer 16-KByte-Erwei- 
terung. 

Dangerous Pyramid (siehe Listing) ist ein Grafik- 
Adventure fur den VC 20 mit mindestens 16 KByte 
Erweiterung. Sie sind in einer Pyramide eingeschlos- 
sen und mussen versuchen, sich der Maske des Pharao zu 
bemachtigen. Doch der Weg dahin ist weit und voller Gefah- 
ren. 

Anweisungen an den Computer bestehen immer aus zwei 
Worten (zum Beispiel NIMM DIAMANT). Folgende Befehle 
stehen Ihnen zur Verfugung: 

Besitz, Ende, Gehe, Nimm, Lege, Werfe, Oeffne, Zuende, 
Stecke, Trinke, Sage, Save (Spielstand), Springe, Load (Spiel- 
stand), Klettere und Schliesse. 




Dahinter muB immer eine Richtung oder ein Gegenstand 
stehen. Genug der Anleitung, ab gent's in die Pyramide. 

(S. Kaiser/og) 







S W= 1 : PO=23 : SA=0 : SOB : TR=0 : TD=4 : POKE 657 , 
128:0=36879: GOTO 1 <115> 

1 REM ***************************** <013> 

2 REM * DANGEROUS PYRAMID * <133> 

3 REM * ================= * <160> 

4 REM ***************************** <016> 

5 REM * EIN GRAF IK-ADVENTURE FUER * <144> 

6 REM * DEN VC-20 UNDs * <155> 

7 REM * - 16 KRAM ERWEITERUNG * <030> 
S REM * - DATASETTE ODER FLOPPY * <055> 

9 REM ***************************** <021> 

10 REM * PROGRAMMIERT DEZ. 1984 * <255> 

11 REM * BY * <115> 

12 REM * STEFAN KAISER * <132> 

13 REM ***************************** <025> 

14 : <246> 

15 : <247> 

16 REM «< SPEICHERBEDARF: CA. 19,5 KBYTE 

>>> <064> 

17 : <249> 

18 i <Z50> 

19 PRINT CHR*< 142): POKE Q,8: PRINT" (CLR\ DOW 
N,R£D>"TAB ( 12) " (RVS0NJ ^SPACE**"' ; PRINT 
"■C2RIGHT,RVS0N>£<:2SPACE>5f<2RIGHT>£{:RV0F 
F>i,(2RIGHT,RVSON,SPACE>" <243> 

20 PRINT" (2RIGHT, RVSON, SPACE, 4R I GHT >J.(RVOF 
F>£(3RIGHT}* - (RVS0N,2SPACE>*" , :FRINT"(2RI 
GHT>5 , <RVS0N,2SPACE>¥£ *"(6RI6HT,SPACE,3R 
IGHT>l(RVOFF>J." <252> 

21 PRINT" (3RIGHT, RVSON, SPACE, RIGHT, SPACE,R 
VOFF >£ (R I GHT >*" (RVSON >*-(2R I GHT, RVOFF >*"(R 
VSON , 2SPACE , RVDFF >,£(2R I GHT , RVSON >£(RVOF 
F>£": PRINT" C2RIGHT>¥-CRVSQN,2SPACE,RVOFF 
>££WHITE,3SPACE,RED>¥CRVS0N>S<:2RIGHT>i* 
(2RIGHT}J.(RV0FF>i." <117> 

22 PRINT" (3RIGHT, RVSON, SPACE, 6RIGHT,RV0FF> 
¥(RVSGN>*'£ (RVOFF >£*'(RVS0N}*'.£.(RVOFF},fe":P 
R I NT " (3R I GHT , RVSON , SPACE , R VOFF , SPACE , WH 
ITE>1984(2SPACE,RED:>*\il,(2RIGHT>*-.£" <059> 

23 PRINT TAB < 6 ) " (PURPLE > '&?<?&*&&& (DOWN , 9LE 

FT , RVSON > PRESENTS J " < 1 84 > 

24 PRINT" (2D0WN, GREEN, RIGHT, RVSON, SPACE >*"£ 
*^£»fST3*'£*' (RVOFF } "if (RVSON iT-i-lf" : PR INT" -£R 
I GHT >? (RVSON IMTcV^SP ACE, RVOFF > ITS (RVSON > 
■5 (R ISHT >■£ (RVOFF ^^(RVSQN:^ (RVOFF >Tf(RVSO 
N}irr-CRVDFF>T" <189> 

25 PR I NT " (R I GHT , RVSON , SPACE , RVOFF > ^(RVSON 
>TfCR VOFF > TZSi, (RVSON > E (RVOFF > flf (RVSON > ¥( 
RVOFF ->?£$£$£," <024> 



26 PRINT" (YELLOW, SPACE}@@ g 0e@(2SPACE}S(5 
SPACE>55e<2SPACE>Ji N-V-HYX. HJ1_NHV_H (2SFACE> 

m hh" 

27 PRINT" (RVSON, 2SPACE>*"(SPACE, RIGHT, SPACE 
IS Si. *^F(RVOFF,SPACE>il(RVSON>£^& *-(RV0F 
F >tf,"g (RVSON , SPACE , RVOFF > N,(RVSQN >H(SPACE , 
RV0FF>M(RV5QN,SPACE>5(RV0FF>i!,(RVSaN>S(S 
PACE,RVOFF>ii(RVSON>W ¥£ ^(RIGHT , SPACE, 
R VOFF, SP ACE >E"s 

28 PRINT" (RVSON, 2SP ACE, R VOFF >£*-(R VSON, SPAC 
E,RVaFF}£(RVS0N>5(SPACE,RVOFF>,&(RVSaN,2 
SPACE>'n(4SPACE> , g^ (RIGHT, SPACE, RVOFF, SPA 
CE J ■§ (RVSON , SPACE , RVOFF >W(2SP ACE , RVSON ,S 
PACE,RVOFF>H(RVSON>'g(RVaFF>5(RVSON>¥(SP 
ACE , RIGHT >m (4SPACE>-g^(RV0FF>Ji(RVSaN , SPA 
CE, RVOFF >H" 

29 PRINT" (RVSON, SPACE, RV0FF>K(2SPACE, RVSON 
, SPACE , RVOFF >E(RVSON >^(RVOFF >£L(RVSON >H( 
SPACE , RVOFF >£L (RVSON >H (SPACE ,RVOFF>5?^,(RV 
SON , SPACE >W(SPACE , RVOFF > £(HQME> " 

30 POKE 0,13: FOR A=l TO 100: NEXT: GET A*: IF 

A*<>""THEN 32 

31 POKE 0,11: FOR A=l TO 100: NEXT: GOTO 30 

32 POKE 198,0: POKE Q,8 

33 DIM R*<51> ,G$U8> ,G<17) ,B*<16) 

34 FOR A=l TO 51: READ R* (A) s NEXT: FOR A=l T 
O 17s READ G*<A) ,G(A):NEXT 

35 FOR A=l TO 4: READ F*(A) ,F (A) : NEXT: FOR A 
=0 TO 2:F0R B=l TO 4:READ W(A,B):NEXT B 
,A - 

36 FOR A=l TO 16s READ B* (A) : NEXT: S*=" (HOME 
, 16D0WN>" :PRINT CHR*<142) 

37 "GOSUB 263 

38 Z=0:PRINT St" (BLACK, RVSON* I CH SEHE: (DOW 
N>"sFOR A«l TO 17: IF G(A)=PO THEN 40 

39 NEXT: GOTO 41 
PRINT G*<A) ,:Z=lsGOTO 39 
IF Z=0 THEN PRINT"NICHTS" 

42 FOR A=i TO 4: IF POOF(A)THEN NEXT:GOTQ 
44 

43 ON A GOSUB 339,333,326,337 

44 PRINT 

45 A*="":POKE 19,64: INPUT" (BLUE >»(20SPACE 
,19LEFT,BLACK>":A*;PQKE 19,0 



40 

41 



<023> 



<194> 



<221> 



<B07> 

<222> 
<23B> 
<151> 
<036> 

<077> 



<119> 

<226> 
<181> 

<251> 
<108> 
<031> 
<255> 

<048> 
<254> 
<146> 

<031> 



Listing ..DANGEROUS PYRAMID« fur den VC 20. 
Bitte beachten Sie die Eingabehinweise zum Abtippen 
von Listings auf Seite 129/130. 
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46 Ai*=LEFT*(A*,4) 

47 IF A1*=B*(11>THEN 61 
4B IF A1*=B*(12)THEN 67 

49 IF A1*=B*(15)THEN 219 

50 IF A1*=B*<16)THEN 242 

51 FOR A=l TO LEN<A*>:IF MID* <A*, A, 1 JO" " 
THEN NEXTsBOTO 59 

52 A1*=LEFT*<A*,A~1) : A2*=RIBHT* <A*,LEN <A*) 
-A) :A3*=LEFT*(A1*,4) : A4*=LEFT* <A2*,4) 

53 FOR A=l TO 16: IF B*(A)=A3*THEN 55 

54 NEXTsBOTO 56 

55 ON A GOTO 69,114,87,121,143,167,186,200 
,218,225,61,67,253,248,219,242 

56 BOSUB 414:PRINT S*" {DOWN ,RED>WAS 1ST DA 
S : " 

57 PRINT" {RVS0N>"A1*"N<:RV0FF, SPACE, RED>?" 

58 PRINT"DIESER BEFEHL 1ST MIR NICHT BEKAN 
NT !i!":GOSUB 410:SOTa 37 

59 BDSUB 414: PRINT 5*" -C2D0WN,RED>EIN BEFEH 
L BESTEHT<4SPACE>IMMER AUS<SPACE,RVSON> 
2 £R VOFF , SPACE > WOERTERN " 

60 BOSUB 410: GOTO 37 

61 PRINT" <CLR, BLUE, RVSON, SPACE >DAS 1ST DEI 
N BESITZs " 

62 Z=0: PRINT: FOR A=l TO 17s IF G(A)=52 THEN 

PRINT"{BLACK>"G*(A) : Z=l 

63 NEXT: IF Z=0 THEN PRINT" U3LACK>NICHTS" 

64 PRINT" C2D0WN, BLUE, RVSON , SPACE JDAS 1ST D 
EIN BESITZ: " 

65 IF Y=l THEN RETURN 

66 GOSUB 410: GOTO 37 

67 PRINT" £CLR>": GOSUB 305: POKE Q-12,40 

68 print s*" t2oowN, black >ytsftsssssflfts<yyyyy 

BSSgeWVSON, SPACE >AUF WIEDERSEHEN , . . . < 
SPACE, YELLOW >";: END * 
69 FOR A=l TO 4j IF MID* (R* (PO) , A, 1 KXJEFT* 
(A4*,1)THEN NEXT: GOTO 77 

IF P0=36 AND LEFT*(A4*,1>="S"THEN W=4:G 
OTO 399 

IF P0=46 AND B(5)<>0 AND LEFT*(A4*, 1 )=*" 
S"THEN W=4sG0T0 399 

IF P0=39 AND F(l)=39 THEN W=1:SOTO 388 

IF PO=50 AND F<2)=50 THEN W=2sG0T0 388 

IF P0=43 AND F(3)=43 THEN W=3:G0T0 388 

IF P0=1 AND LEFT*(A4*,1>0"R"THEN W=4:G 

OTO 399 

76 PO=PO+W<SW,A) :BOTO 37 

77 IF LEFT*(A4*,i)=MID*(R*<P0) ,6,1)THEN IF 

P0=1 OR PO=10 OR P0=11 THEN 80 

78 IF LEFT* <A4*,1)=MID*(R*<P0> ,5,1) THEN 84 

79 SOTO B6 

80 SW=SW~1:IF P0=1. THEN PO=B 

81 IF PO=10 THEN P0=21 

82 IF P0=11 THEN P0=27 

83 BOTO 37 

84 GOSUB 414:PRINT S*" C2D0WN,RED>DU KANNST 

DOCH NICHT £2SPACE>D IE WAENDE HOCHBEHEN 

85 BOSUB 410: BOTO 37 " 

B6 GOSUB 414:PRINT S*" -C2D0WN, RED, SPACE >D IE 
SE RICHTUNB GIBT<3SPACE>ES HIER NICHT ! 
H"s GOSUB 410:GOTO 37 

87 FOR A=l TO 17: IF A4*OLEFT* < B* < A ) , 4 > THE 
N NEXT: GOTO 89 

88 GOTO 93 

89 FOR B=l TO 4: IF A4*OLEFT* <F* (B) ,4) THEN 

NEXT: GOTO 96 

90 IF P0=33 AND B=4 THEN 110 

91 IF PO=F(B)THEN W=B:GOTO 388 

92 GOTO 96 

93 IF A<4 THEN 106 

94 IF A<6 THEN 109 

95 IF G(A)=P0 THEN 99 

96 BOSUB 4 14: PRINT S*" tDOWN.REDMCH SLAUBE 
, DU HASTOSPACE>T0MATEN AUF DEN AUBEN. 

97 PRINT"DIESEN BEBENSTAND BIBTES HIER DOC 
H BAR NICHT";: BOSUB 410: BOTO 37 

98 IF TR>=TD+SA THEN SK=TD+SA : GOSUB 414: GO 
TO 105 

99 IF A=9 AND G<7)=52 THEN W=5:Z=0:BOTO 38 
4 

100 IF A=7 AND G<9>=52 THEN W=5:Z=0:SOTO 3 
B4 



70 
71 

72 

73 
74 
75 



<006> 


101 


<055> 


102 


<067> 


103 


<145> 


104 


<021> 


105 


<167> 






106 


<148> 


107 


<250> 


108 


<220> 


109 




110 


<193> 






111 


<20B> 


112 


<098> 




<192> 


113 




114 


<055> 


115 


<031> 






116 


<0B2> 


117 


<117> 


118 


<074> 




<191> 


119 


<1B6> 




<037> 


120 


<195> 






121 


<026> 


122 




123 


<219> 






124 


<144> 


125 


<228> 


126 


<250> 




<005> 


127 


<152> 






128 


<09B> 




<046> 


129 


<234> 


130 


<25l> 




<153> 


131 


<205> 




<017> 


132 


<0S2> 




<133> 


133 




134 


<24B> 




<056> 


135 




136 


<229> 




<253> 


137 


<122> 




<022> 


138 


<091> 


a 


<046> 




<174> 


139 


<115> 




<186> 


140 


<236> 






141 


<213> 


142 


<238> 


143 


<141> 


144 




145 


<067> 


146 




147 


<007> 


148 



IF A=10 THEN SA=2 <253> 

IF A=15 AND PHOl THEN 112 <107> 

IF A=1S AND PH=1 THEN 369 <0B0> 

TR=TR4-1:G(A)=52:G0T0 61 <251> 

PRINT S*"{2D0WN,RED>DU DARFST DOCH NUR 
<BLUE,3SPACE>"SK" -CRED>GEGENSTAENDE TRA 
GEN. "sGOSUB 410:GOTO 37 <095> 

IF A=l AND POOB(1)THEN A=3 <243> 

IF POOS < A) THEN 96 <120> 

W=6sB0T0 391 <158> 

IF P0OG(A)AND POOF (B) THEN 96 <041> 

BOSUB 414: PRINT S*" <2D0WN,RED>ABER DAS 

KANN MAN DOCHNICHT NEHMEN ! ! ! " <010> 
BOSUB 410: BOTO 37 <082> 

GOSUB 414:PRINT S*:PRINT" -C2D0WN,RED>DI 
E "6*<15)" KANNST DU-C3SPACE>JETZT NOCH 

NICHT" <044> 

PRINT"NEHMEN !!!": GOSUB 410:GOTO 37 <054> 
FOR A=6 TO 17: IF LEFT*<G* <A> ,4)OA4*TH 
EN NEXT: GOTO 119 j <241> 

IF A=13 AND B(A)=52 AND PJD=46 THEN G(A 
)=0:G<5)=0:TR=TR-l:BaTO 37 <231> 

IF A=10 AND B(A>=52 THEN SA=0 <021> 

IF G(A)=52 THEN G <A)=PO: TR=TR-1:G0T0 3 
7 *-' <115> 

GOSUB 414: PRINT S*" <2D0WN,RED>DIESEN B 
EBENSTAND HASTDU ABER GAR NICHT !!<':G0 
SUB 410 j GOTO 37 <058> 

GOSUB 414: PRINT S*" -CDOWN,RED>WAS 1ST D 
ENN DAS FUER EIN ZEUG, DAS DU DA" <022> 
PRINT"ABLEGEN WILLST ???": GOSUB 410: BO 
TD 37 <040> 

FOR A-6 TO 17: IF A4*OLEFT*<G*CA> ,4)TH 
EN NEXT: GOTO 125 <175> 

IF PD=39 OR PO=50 OR P0=43 THEN 127 <143> 
IF G(A)=52 THEN S <A)=PO: TR=TR-1: GOTO 3 
7 <121> 

BOTO 118 <069> 

BOSUB 414: PRINT S*" CDOWN,REDJWAS 1ST D 
ENN DAS FUER EIN ZEUB, DAS DU DA" <028> 
PRINT"WEBWERFEN WILLST ???": GOSUB 410: 
GOTO 37 <048> 

IF P0=39 AND F<1)=39 AND B( 17)<>52 THE 
N W=1:GQT0 388 <11B> 

IF P0=39 AND FU)=39 AND A4*OLEFT*(G* 
< 17), 4) THEN W=1:G0T0 388 <075> 

IF PO=50 AND F(2>=50 AND S<8)<>52 THEN 

W=2:B0T0 338 <197> 

IF PO=50 AND F(2)=50 AND A4*OLEFT*<G* 
(8) ,4)THEN W=2:BOTO 388 <191> 

IF P0=43 AND F(3)=43 AND 6(16)052 THE 
N W=3:B0T0 38B <046> 

IF P0=43 AND F(3>=43 AND A4*OLEFT*<G* 
(16),4)THEN W=3:B0T0 388 <235> 

IF P0=39 THEN G< 17) =0:F(1)=0:TR=TR-1:G 
OTO 136 <112> 

IF PO=50 THEN G(8)=0:F(2>=0:TR=TR-i:GO 
TO 138 <095> 

IF P0=43 THEN B < 16) =0:F (3>=0* TR=TR-1:G 
OTO 140 <132> 

GOSUB 414: PRINT S*" -CPURPLEJDAS GLEISSE 
NDE LIGHT *2SPACE>DES "G*(17)"EN HAT DI 
E" <033> 

PRINT"BEFAEHRLICHE MUMIE ZU DEINEM GLU 
ECK VER-{!4SPACE>NICHTET !!!";:GOSUB 41 
0:BOTO 37 <116> 

BOSUB 414:PRINT S*" <DOWN,PURPLE>DER "B 
*<8>" STECKT JETZTIM KOPF DER "F*<2)" 
i"» <235> 

PRINT"D.H. SIE 1ST NUN TOT !";:BOSUB 4 
10: GOTO 37 <255> 

GOSUB 414: PRINT S*" {DOWN, PURPLE >DU HAS 
T DAS "BK16)" GENAU"; <233> 

PRINT"IN DEN RACHEN DER<!5SPACE>"F* <3) " 

GEWORFEN ! " <08B> 

PRINT"SIE 1ST ELEND ZUGRUNDEGEBANBEN . 
..";: GOSUB 4 10: BOTO 37 <037> 

FOR A=l TO 17: IF LEFT* (G* (A) ,4) OA4*TH 
EN NEXT: GOTO 199 <114> 

IF A>3 AND AO10 THEN 158 <056> 

IF P0O4 THEN 152 <159> 

IF A=l AND G(3)=4 THEN 161 <063> 

IF A=l AND SCOl THEN 163 <111> 

IF A=l AND SC=1 THEN B ( 1 ) =0:B(3) =4 <166> 



124 
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149 IF A=l AND G<6)=0 THEN G<6)=4 

150 IF flOl THEN 160 

151 SOTD 37 

152 IF FO=G(10)OR GC10)=52 THEN IF A=10 TH 
EN 165 

153 IF P0O39 THEN 157 

154 IF F(1)=0 AND A=2 THEN F(1)=39:G0T0 37 

155 IF F<1)=39 THEN W=1:G0T0 388 

156 IF F(l)-52 AND A=2 THEN 159 

157 GOTO 160 

158 GOSUB 414:PRINT S*" C2D0WN,RED>DAS KANN 
ST DU NICHT {3SPACEJ0EFFNEN !!!":GOBUB 
410:GOTD 37 

159 GOSUB 414: PRINT S*" <2DQWN,RED>DER "B* < 
2)" ISTSCHON OFFEN !!!" sGOSUB 410: GOTO 

37 

160 GOSUB 414:PRINT S*" <2D0WN,RED>S0 ETWAS 

GIBT ES HIER LEIDER NICHT !"; sGOSUB 4 
10: GOTO 37 

161 BDSUB 414:PRINT S*" <2DOWN,RED>DIE "S* < 
1) ■' ISTC3SPACE>DOCH SCHDN OFFEN, DU-C2S 
PACE } BL I NDSCHLE I CHE ! " ; 

162 GOSUB 410SGOTO 37 

163 GOSUB 414: PRINT S*" €2D0WN,RED>DU MUSST 

ERST EINMAL{2SPACE>DIE TRUHE AUF-" 

164 PRINT-SCHLIESSEN !«!":: B0SU8 410:GOTO 
37 

165 GOSUB 414: PRINT S*" *2DQWN, PURPLE >JUHU, 

DU SIEHST ETWAS HERRLICHES, NAEMLICH: 

166 FOR A=l TO 5000: NEXT: PR I NT" CRVSONJNICH 
TSCRVOFF,SPACE>. ..";: GOSUB 410:GOTO 37 

167 IF G<12)<>52 THEN 182 

168 IF A4*=LEFT*<G*(7> ,4)THEN 172 

169 IF A4*=LEFT*<G*<9) ,4)THEN t76 

170 IF A4$=LEFT*(G*<12> ,4)THEN 180 

171 GOSUB 414:PRINT S*" C2DOWN,RED>SO ETWAS 

KANNST DU-C4SPACEJNICHT ANZUENDEN !":G 
OSUB 410: GOTO 37 

172 IF G<7)=52 THEN W=5:G0T0 384 

173 IF G(75=PO THEN Z=1:G (7) =0: GOSUB 384: G 
QTO 37 

174 IF G<7>=0 AND PO=33 AND DV=1 THEN Z=l: 
GOSUB 384:R*<33)="N.0W. . " : F <4) =0: GOTO 
37 

175 GOTO 184 

176 IF P0=G(9)0R G<9)=52 THEN 178 

177 GOTO 184 

178 GOSUB 414: PRINT S$" {DOWN,PURPLE>DIE "G 
*<9>" BRENNT DOCHSCHON, DU BRAUCH5T SI 
E" 5 

179 PRINT"ALSO NICHT MEHR ANZU- ZUENDEN."; 
:GOSUE 410: GOTO 37 

180 GOSUB 414:PRINT S*" {DOWN,PURPLE>DAS HA 
ST DU ABER FEIN GEMACHT ! DAS STREICH- 

1B1 PRINT"HOLZ BRENNT NUN. "sGOSUB 410tSOTO 
37 

182 GOSUB 414:PRINT S*" CDOWN,RED>DU HAST D 
OCH GARC6SPACONICHTB, UM DIESEN" 

183 PRINT"GEGENSTAND ANZUZUENDEN"; : GOSUB 4 
10s GOTO 37 

184 GOSUB 414:PRINT S*" <DOWN,RED}WO SOLL D 
ENN DIESERC3SPACEJGEGENSTAND HIER" 

185 PRINT"LIEGEN ???"; :GOSUB 410:GOTO 37 

186 IF P0O4 AND P0O33 AND P0O3B THEN 19 
4 

187 IF P0=4 AND A4*=LEFT* <G* (11 > ,4) AND G(l 
1>=52 THEN SC=l:TR=TR-lsG<ll)=0:GOTO 3 
7 

188 IF P0=33 AND A4*=LEFT*(G*<7> ,4>AND G<7 
>=52 THEN DY=1:TR=TR~1:G<7)=0:SOTO 37 

189 IF P0=38 AND A4*=LEFT* <G* (6) ,4) AND G(6 
)=52 THEN PH=1:TR=TR-1:G<6)=0:GOTO 37 

190 IF P0=4 AND A4*=LEFT# CG* < 1 1 > ,4) AND G(l 
1><>52 THEN 118 

191 IF P0=33 AND A4*=LEFT* <G* <7> ,4) AND G(7 
)<>52 THEN 11B 

192 IF P0=38 AND A4*=LEFT* (G* <6> ,4) AND G(6 
K>52 THEN 11G 

193 GOTO 196 

194 GOSUB 414: PRINT S*" {DOWN ,RED>ES GIBT H 
IER NIGHTS, C2SPACE5WQHIN DU DEN GEGEN- 



<072> 


195 


<1B7> 




<201> 


196 


<086> 


197 


<032> 


198 


<028> 




<105> 


199 


<065> 




<1S1> 


200 




20 i 


<126> 






202 


<218> 


203 




204 


<056> 






205 


<076> 




<133> 


206 


<192> 






207 


<085> 






208 




209 


<1B1> 


210 




211 


<145> 




<025> 




<019> 


212 


<116> 




<047> 


213 




214 


<01B> 




<166> 


215 


<002> 


216 


<255> 


217 


<103> 




<156> 




<105> 


218 


■v 


219 


<179> 






220 


<001> 






221 


<105> 




<136> 


222 


<044> 






223 


<185> 






224 


<186> 




<126> 






225 


<076> 






226 


<027> 


227 




228 


<200> 


229 




230 


<174> 






231 


<033> 


232 


<0B4> 


233 


<208> 




<201> 





<233: 



PRINT"STAND HINSTECKEN -C6SPACE JKOENNTES 

T !":B0SU8 410: GOTO 37 

FOR A=6 TO 17: IF A4*OLEFT* <B* (A) ,4) TH 

EN NEXT: GOTO 199 

IF 6(A)<>52 THEN 118 

GOSUB 414:PRINT S*" -C3D0WN,RED >DAS GEHT 

LEIDER NICHT- "; : GOSUB 410: GOTO 37 
BBSUB - 4 1 4 : PR I NT B* " C3D0 WN , RED > W AS I ST 
DENN DAS ???": GOSUB 410:BOTO 37 
IF A4*OLEFT*(G*(14) ,4)AND A4*OLEFT* < 
G*C16> ,4) THEN 204 

IF A4*=LEFT*(G*(14) ,4)AND G(14)=52 THE 
N 205 

IF A4*=LEFT*(G*(16) ,4>AND G(16>=52 THE 
N W=7:G0TQ 391 
GOTO 118 

GOSUB 414:PRINT S*" {2D0WN,RED>ISITT ! 
HAST DU EINEN GESCHMACK I 1 ! " : BOSUB 410 
:BOTO 37 

PRINT" <CLR, RED JDER "G"*<14>" VER~" -. PRIN 
T"{DOWNJZAUBERT DICH IN EINENkSPACE,DO 
WNJZWERG. DIE KONSEQUENZ" ! 
PRINT" CDOWN>DARAUS 1ST, DASS DUC3SPACE 
,DDWN>NUR NQCH HALB S0VIEL<2SPACE,DQWN 
1TRAGEN KANNST, WIE" ' 

PR I NT " {DOWN > VORHER i ! f " : G < 1 4 ) =0 : TR=TR- 
1 

IF(TR-BA) ><TD/2)THEN 210 
TD=TD/2: GOSUB 410: GOTO 37 
GOSUB 410s Y=l: GOSUB 61:Y=0 
PRINT" {DOWN,RED>DU MUSST VON DEINEM-C3S 
PACE >BES I TZ {SPACE, PURPLE Jl-ERED, SPACE >G 
E6EN-" 

PRINT"STAND ABGEBEN '. ! {6SPACE,DaWN,GR£ 
EN>WELCHEN ???CDOWN>" 
PRINTsPOKE 19,64: INPUT" {BLUE}" ;C$: POKE 

19,0 
FOR B=6 TO 17: IF LEFTS <C$,4)OLEFT$ (G* 
(B),4)THEN NEXTsGOTO 217 

IF G(B)=52 THEN TR=TR-1 : G (B) =0: GOTO 20 
9 

PRINT" -CCLR, RED > KANN ES VIELLEICHT{4SPA 
CE>SEIN, DASS DU DAS GAR NICHT BESITZT 

??":GOTO 213 
PRINT" <CLR,'RED>WAS 1ST DENN DAS ???-C2S 
PACE>GIB BITTE ETWAS AN, {3SPACEJDAS DU 

AUCH BESITZT i":GOTO 213 
GOSUB 414: PRINT S*" {DOWN, GREEN > '"A2*" ' 
"j GOSUB 410: GOTO 37 
POKE Q,24:PRINT"-CCLR,RVS0N,BLACK>SPIEL 

STAND abspeichern<:rvoff,blue>" 

PRINT" C2D0WN, SPACE JPRESS {SPACE, RVSONJR 
ECORD {RVOFF , SPACE >«s {SPACE , RVSONJPLAY {R 
VOFF •, 9SPACE , DOWN JON TAPE" 
WAIT 37151, 64, 64: PRINT" C3UP, PURPLE, 5SP 
ACE >B I TTE WARTEN {5SPACE , DOWN , 1 4SPACE , 2 
DBWN>" 

OPEN l,l,l,"DATEN":FOR A=l TO 17: PRINT 
#l,G(A):NEXT:FOR A=l TO 4:PRINT#1 ,F <A> 
sNEXT 

PRINT#l,PO:PRINTttl,SW:PRINT#l,TRtPRINT 
#1,TD:PRINT#1,SA:PRINT#1,SC:PRINT#1,PH 
PRINT#l,DY:CLOSE 1: PRINT" {RED, SPACE >=> 
TASTE DRUECKEN <=":POKE 198,0: WAIT 19 
8,1: GOTO 37 

FOR A=l TO 4s IF MID* (R* (PO) ,A, DOLEFT 
*<A4*,1)THEN NEXT: GOTO 232 
IF P0=46 AND G(13)OPO AND LEFT*(A4$,1 
)="S"THEN W=4:G0T0 399 

IF P0=39 AND F<1)=P0 THEN W=l:GOTO 38B 
IF PQ=50 AND F(2)=P0 THEN W=2:GOTO 388 
IF P0=43 AND F(3)=P0 THEN W=3:. GOTO '388 
IF PO=l AND LEFT*(A4*, 1)<>"R"THEN W=4: 
GOTO 399 

PO=PO+W(SW,A) sGOTO 37 

IF LEFT* (A4*,1>=MID*(R*(P0) ,6,1) THEN I 
F PO=l OR PO=10 OR PO=ll THEN 80 
IF LEFT*<A4*,l)=MID*(R*(Pa) ,5,1)THEN 2 
38 



Listing »DANGEROUS PYRAMID« (Fortsetzung) 



<179> 

<I29> 

<097> 

<225> 
<101> 
<165> 
<1B2> 

<01B> 

<148> 

<064> 
<160> 

<038> 

<115> 

<024> 
<105> 
<057> 

<037> 
<057> 
<119> 
<113> 
<095> 

<195> 

<202> 
<059> 
<138> 

<173> 

<226> 

<135> 

<1BG> 

<1B4> 

<239> 

<052> 
<232> 
<246> 
<07Z> 

<253> 

<201> 

<133> 

<249> 
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234 IF LEFT*(A4*,1)="H"AND MID* CR*<PQ) ,5, 1 
><>"H ,, THEN 236 <247> 

235 B0T0 86 <053> 

236 POKE Q ,154s POKE Q- 1,15: POKE Q-2,200:FO 
R A=l TO 1500s NEXT: FOR A=15 TO STEP- 

- 1 <213> 

237 POKE Q- 1, A: NEXT i POKE 0-2,0: W=9: GOTO 39 

1 <117> 

238 SW=SW+1:IF P0=8 THEN P0=1 <117> 

239 IF P0=21 THEN PQ=10 <B63> 

240 IF P0=27 THEN P0=11 <099> 

241 GOTO 37 <035> 

242 POKE Q, 30 ; PRINT" {CLR, RVSON, BLUE, SPACE} 
SP I ELST AND {2SPACE >E I NLADEN {SPACE , RVOFF 

, BLACK >" <017> 

243 PR I NT " {2D0WN , 2SPACE >PRESB {SPACE , RVSON } 

PLAY {RVOFF, SPACE >ON TAPE" <1S3> 

244 WAIT 37 1 5 1,64, 64: PR I NT "CUP, PURPLE, 5SPA 
CE>BITTE WARTEN{4SPACE,WHITE,2D0WN>" <254> 

245 OPEN 1,1,0,"DATEN":FQR A=l TO 17: INPUT 
ttl,G<A) : NEXT; FOR A=l TO 4: INPUTttl ,F<A) 
:NEXT <166> 

246 INPUT#1 ,P0": -INPUT* 1 ,SW: INPUT*1 ,TR: INPUT 
#1,TD: INPUT#l,SAs INPUT#1 ,SC: INPUT#1 ,PH <192> 

247 INPUT#l,DYsCLOSE 1 : PRINT" {RED, SPACE >=> 

TASTE DRUECKEN <=":PQKE 198,0: WAIT 19 
8, Is GOTO 37 <127> 

248 FOR A=l TO 6: IF MID*<R*(PO> ,A, 1) OLEFT 
*<A4$,1)THEN NEXT: GOTO 86 <112> 

249 IF A<>5 THEN 251 <034> 

250 GOTO 238 <235> 

251 GOSUB 414:PRINT S*" {DOWN, RED} IN DIESE 
RICHTUNS{5SPACE>BRAUCHST DU NICHT" <144> 

252 PRINT"2U KLETTERN, DENN DU€2SPACE>KANN 

ST DAHIN GEHEN !!";:G8SUB 410:GOTO 37 <186> 

253 FOR A=i TO 3: IF A4*OLEFT* <G* (A) ,4) THE 

N NEXT: GOTO 260 <090> 

254 IF A=l AND P0=4 AND G ( 1 ) =4 THEN 261 <198> 

255 IF A =2 AND P0=39 AND F(1)=0 THEN 262 <104> 

256 IF A=2 AND P0=39 AND F(1)=P0 THEN W=l: 

GOTO 388 <185> 

257 IF A=l THEN A=3 <045> 

258 IF A=3 AND P0=4 THEN G< 1 )=4: G (3)=0:G<1 
1)=4:SC=0:GOTO 37 <210> 

259 GOTO 160 <029> 

260 GDSUB 414: PRINT S*" {2D0WN,RED}DAS KANN 
ST DU ABER GARNICHT SCHLIESSEN ! «. !":B0 

SUB 410: GOTO 37 <228> 

261 GOSUB 414:PRINT S*" {2D0WN,RED}DIE "G*< 
1)" IST{35PACE}SCH0N ZU i!!":GOSUB 410 v 
:GOTO 37 ' <205> 

262 GOSUB 414: PRINT S*" C2D0WN,RED>DER "G*( 
2)" IST{5SPACE}SCH0N ZU !H"s GOSUB 410 
sGOTO 37 <249> 

263 IF P0=1 THEN 344 <141> 

264 POKE Q,25 <071> 

265 PRINT" {CLR, BLACK }M,{20SP ACE > &• .".{18SPACE 
}&{3SPACE}fi{16SPACE},N," <224> 

266 PRINT" C3SP ACE > m&m&m&&&m@&&" <130> 

267 FOR A=l TO 7:PRINT" C3SPACE>f?C14SPACE>S 
":NEXT <209> 

268 F^INT"{3SPACE}HTTTTTrTTT77TTTJi" <162> 

269 PRINT" <2SPACE>MC16SPACE JJl-C3SPACE>ii< 18S 
PACEJfl iiC20SPACE>fl"; <142> 

270 FOR A=l TO 22: PRINT" -CRED>=";: NEXT <156> 

271 IF MID*CR*<PO) ,1,1)<>"N"THEN 275 <107> 

272 PR I NT " {HOME , 5D0WN > " T AB < 9 ) " -CBLACK , RVSON 
}.&{2SPACE }&{DOWN , 4LEFT , SPACE , RVOFF , 2SP 
ACE}"; <251> 

273 PRINT" {HOME, 5D0WN}"TAB (9) " <RVSON, SPACE 
, DOWN , 4LEFT , SPACE , RVOFF , 2SPACE , RVSON , S 
PACE , DOWN , 4LEFT , SPACE , RVOFF , 2SPACE , RVS 
ON , SPACE , DOWN , 4LEFT , SPACE , RVOFF , 2SPACE 

, RVSON, SPACE, DOWN, 4LEFT>"j <249> 

274 PRINT" {RV0FF}£{2SPACE}*{DQWN,4LEFT,4SP 

ACE, HOME >" <023> 

275 IF MID*<R*<PO) ,3, 1)<>"0"THEN 278 <154> 

276 PRINT" {HOME, 6D0WN}" TAB (20) " CBLACK >ti.'G<:b 
0WN,3LEFT,RVS0N>£<RV0FF,SPACE>?<D0WN,3 
LEFT, RVSON, SPACE, RVOFF, SPACE} 'a' {DOWN, 3L 
EFT, RVSON, SPACE, RVOFF, SPACE>'g<:D0WN,3LE 
FT ,RVSON, SPACE, RVOFF, SPACE JECDOWNjSLEF 
T , RVSON , SPACE , RVOFF , SPACE }^{DOWN , 3LEFT 
,2SPACE}"cT"; <088> 



277 PRINT"-CD0WN,2LEFT,SPACE>'§{H0ME>" <226> 

278 IF MID*<R*(PG> ,4, 1) <>"W"THEN 280 <102> 

279 PRINT" CHOME, 6D0WN, BLACK J Ffi{D0WN,2LEFT> 
ff {SPACE , RVSON >¥{RVOFF , DOWN , 3LEFT>1?{SPA 
CE, RVSON, SPACE, RVOFF, DOWN, 3LEFTJHCSPAC 
E , RVSON , SPACE , RVOFF , DOWN , 3LEFT >H {SPACE 
, RVSON , SPACE , RVOFF , DOWN , 3LEFT } ff{SPACE , 

' RVSON , SPACE , RVOFF , DOWN , 3LEFT >H{2SPACE , 
DOWN , 3LEFT >F-f SPACE , HOME > ■ < 207 > 

280 IF MID*<R*(PO> ,5,1><>"H"THEN 282 <002> 

281 PRINT" {HOME}"TAB<7)"{BLACK:>0Ee@35@E{DO 
WN , 8LEFT }5{RVS0N >¥{RVOFF , 4SPACE , RVSON } 
£{RVOFF >£{DDWN , 7LEFT >*{RVSON ^^SPACE > 
H{RVOFF>J,{HOME>" <036> 

282 IF MID*(R*<PO) ,6,1) <>"R"THEN 284 <102> 

283 PR I NT " {HOME > " TAB ( 8 ) " { 1 2D0 WN , BLACK , RVSO 
N>J6'B'{2SPACE>7?5P {DOWN, 7LEFT}£ {RVOFF JJ.C4S 
PACE ys {RVSON >¥ {RVOFF , DOWN ,8LEFT J Tf'f T"t"t' 

TT {HOME}" <187> 

284 FOR A=l TO 17: IF POOS (rfj» THEN 288 <215> 

285 ON A GOSUB 310, 317, 313, $22, 324, 320, 289 
,290,291,293 <099> 

286 IF A<10 THEN 288 <026> 

287 ON A- 10 GOSUB 296,297,299,301,305,302, 

303 +- <179> 

288 NEXT: RETURN <098> 

289 PRINT S*TAB < 15) "C3UP, RVSON, RED, 2SPACE, 
RVOFF , BLACK} J,{HOME } " : RETURN < 157> 

290 PRINT S*TABC5)"{3UP,RVS0N,PURPLE}+^{5 
PACE , UP , LEFT>¥{2D0WN , LEFT , RVOFF }£{RVSO 
N, UP, YELLOW, SPACE >TYiT{RVaFF}ro*P^{HOME} 

"s RETURN . <200> 

291 PRINT S*TAB(14) "{2UP,BLACK}WT{UP,2LEFT 
}TT{UP , 2LEFT , RVSON}^ {RVOFF ^OIP , 2LEFT , 
RVSON }T£R l «'0FF}'K'{UP,2LEFT,RVS0N}T-!:RVaFF 
}1?{UP , 2LEFT , YELLOW} Sgj= {UP , 2LEFT , RVBON , 2 
SPACE, UP, 3LEFT,RV0FF}*{RVS0N,2SPACE»RV 
OFF}£"; <064> 

292 PRINT"{UP,4LEFT,RVS0N,4SPACE,UP,4LEFT} 
£{2SPACE }¥{UP , 3LEFT } ¥£{HOME } " : RETURN < 083 > 

293 PRINT" {HOME}"TAB (12) " {2D0WN , BLACK }5WPT 
"3 {DOWN, 5LEFT}¥{RVS0N,3SPACE, RVOFF }£ {DO 
WN,4LEFT}3P {RVSON, SPACE, RV0FF}£CDOWN,3L 
EFT, RV,SON}£W {DOWN, 4LEFT>£{3SPACE}¥{DQ 

WN, 6LEFT, RVOFF }?f {RVSON, 3SPACE J"; <076> 

294 -PR I NT " {2SPACE , RVOFF ^ {DOWN , 7LEFT}'i?{RVS 

ON , 5SPACE , RVOFF }h {DOWN , 7LEFT mRVSON , 5 
SPACE, RVOFF }'j' {DOWN, 7LEFT}R {RVSON, 5SPAC 
E , RVOFF }H{DOWN , 7LEFT }ff {RVSON , 5SPACE , RV 
OFF}^": <147> 

295 PR I NT " {DOWN , 6LEFT }3P {RVSON , 3SPACE , RVOFF 
}&CD0WN,4LEFT}TTf {HOME}": RETURN <245> 

296 PRINT S*"{6UP,3RIGHT,BLACK}TTTCYELL0W} 
u{BLACK}ii{YELL0W}-{UP,3LEFT}iiAi{2DaWN, 
3LEFT }&3JL<6LEFT , BLACK , RVSON >S{HOME } " : R 
ETURN <069> 

297 PRINT S*TAB<12) " C4UP, PURPLE }e00S5{DOWN 
, 6LEFT , RVQFF }M{4SPACE , RVSON >£{RVOFF , DO 
WN,6LEFT}"; <150> 

298 PRINT" {YELL0W}5^PWT{PURPLE}£{H0ME}": RE 

TURN . <0BB> 

299 PRINT S*TAB <8> " {6UP,BLACK}fcfcfeWdfcfC*{D0W 
N,9LEFT}i!,{7SPACE}ii'g'{D0WN, 1 1LEFT}N{7SPA 
CE}iiii"5 <168> 

300 PRINT" {DOWN, 10LEFT}OY-f-fTtT£ii{DOWN,9LEF 

T }Tt*TYT"T"TY{HOME} " : RETURN <164> 

301 PRINT S*TAB<4) " {7UP,GREEN}?fs , {DaWN,3LEF 
T}iULii{D0WN,4LEFT} = {RED}'5F{GREEN}z.{D0W 
N,4LEFT} = ,{RED}'c r V'{BREEN}^{D0WN,4LEFT}Yi!; 
£5?{H0ME > " : RETURN < 234 > 

302 PRINT S*TAB<4)"{7UP,GREEN}W1'{D0WN,3LEF 
T }iiKJJ.{DOWN , 4LEFT } - {BLACK iW {GREEN } - {D 
0WN,4LEFT}-{BLACK"}W{GREEN}-{D0WN,4LEF 
T^iyfc^CHOME}": RETURN <02B> 

303 PRINT S*TAB(12) " {8UP, YELLOW }5{D0WN ,2LE 
FT}ii fi{D0WN,4LEFT}JidSJifl{D0WN,6LEFT}Njl|i 

fiKE,{DOWN,7LEFT}£ fl & rf{D0WN,7LEFT}" : <192> 

304 PRINT"flSiiTfl@M{HOME}": RETURN <146> 

305 POKE 0,120: PRINT" {HOMEVTAB < 1 1 ) ' '{RVSON 
, GREEN} 5? {DO WN,3LEFT, RVOFF, BLACK }HT{RVS 
ON , GREEN , SPACE , RVOFF , BLACK }TJ1 {DOWN , 6LE 
FT,BLUE,RVSaN}£{5SPACE}5f{D0WN,8LEFT,BL 

ACK, RVOFF }& Ji{3SPACE}Jl Jl": <13B> 

306 PRINT" {DOWN, 9LEFT, RVSON, BLUE, 2SPACE,RV 
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OFF , BLACK , SPACE >fi & [SPACE , RV50N , BLUE , 2 
SPACE, RVOFF, DOWN, 10LEFT}*!, F{25PACE,BLU 
E>n<2SPACE,BLACK>^ K{DOWN, 1 1LEFT ,RV5QN 
,BLUE>"| <156> 

307 PRINT" {35PACE, RVOFF, 2SPACE>E{2SPACE,RV 
SON , BLUE ,3SPACE , RVOFF , DOWN , 1 1 LEFT , BLAC 
K>£ KtSSPACE}^ ^{DOWN.iiLEFT, RVSON, BLU 
E , 3SPACE , RVOFF , SPACE , RED }'5i"f' {SPACE , RVS 

ON, BLUE, 3SP ACE, RVOFF}"; <074> 

308 PRINT" <D0WN,HLEFT,BLACK>?-C2SPACE>ilQo5 
&{2SPACE}-F?{D0WN,ULEFT,BLUE}¥{RVS0N,2S 
PACE , RVOFF >£CSPACE , BLACK , RVSON }T{RVQFF 
, SPACE , BLUE >5-[RVSQN , 2SPACE , RVOFF }£<DQW 
N,10LEFT>"? <212> 

309 PRINT" {BLACK }»{3SP ACE, BLACK, RVSON >T<RV 
OFF , 3SPACE } JiCDOWN , BLEFT J ft {SPACE , CYAN , R 
VSON >Tffi-CRVOFF , 2SPACE , BLACK }&{DOWN , 6LEF 

T }£!££&« {HOME}": RETURN <200> 

310 PR I NT " {HOKE } " T AB ( S ) " <7D0WN , BLACK , RVSON 
>^,-£5SPACE >H<RVOFF> G"<DaWN , 9LEFT , RVSON} £ 
{5SP ACE }& {RVOFF }££ {DO WN,9LEFT, RVSON >Tf 
TTT£-CRVOFF>£ W, <033> 

311 PRINT" {DOWN, 9LEFT1BCBPACE, PURPLE JTK2SP 
ACE, BLACK >Ti'{2SPACE>'g' {DOWN, 9LEFT>'5{PURF 
LE>g{GREEN>UJ.{PURPLEJ0{BLACK>f?{2SPACE> 
fi{DOWN , 9LEFT>'g' {SPACE , GREEN >2JL {BLACK , SP 
ACE>H &"', <176> 

312 PRINT" {DOWN, 8LEFT>S {SPACE, PURPLE >ff{BLA 
CK ,2SPACE>Hil<D0WN , 7LEFT } 'f 'ff ffTCHOME } " ; 

: RETURN <062> 

313 PRINT"{H0ME,4D0WN,4RIGHT,BLACK}Jift{DOWN 
, 3LEFT }£K2SPACE }fi{DOWN , 4LEFT , RVSON }^{R 
VOFF , 3SPACE}fl {DOWN , 5LEFT , RVSON , SPACE >3P 
{RVOFF ,3SPACE >f!Se@@0@ {DOWN, 12LEFT>5f{RV 

SON, SPACE >1?{RVaFF,2SPACE>J^'; <036> 

314 PRINT" {YELLOW, RVSON }iYJiVV {RVOFF, BLACK} 
HBttDOWN, 12LEFT}3?{R VSON, SP ACE }*{R VOFF >H 
{YELLOW , RVSON > .y , V,W.V. {RVOFF , BLACK }{J B {DO 
WN,llLEFT>*^rfTf£,{2SPACE>S"; <215> 

315 PRINT" {DO WN,9LEFT> - g' {SPACE, GREEN >yi.{SPA 
CE , BLACKJH{2SPACE}fl{D0WN , 9LEFT }g {SPACE 
, GREEN >AJL{BLACK, SPACE >ff ^{DOWN, BLEFT >W 
<4SPACE>HJi{D0WN,7LEFT}rTTTTf{H0ME>" <100> 

316 RETURN <120> 

317 PRINT S*TAB ( 4 ) « {9UP , RED > iiTf TfTtTfT f'fTfi 
{7RIGHT}it{14SPACE>fl{6RIGHT>iSgG@Geecee 

msm u i <i6B> 

318 PR T NT " f 6R I BHT T Bt. UE > ft {GREEN > V_+_V_+ V>_V+ V + V. 
+ V + {BLUE}.H{7RIGHT}.H.{FURFLE} ZZ_ZZ_Z_Z_Z_Z_Z_Z_Z. 
Z{BLUE >ii{9RI GHT >fi{RVSON >11F£.¥^J?£5f£5?{RVO 
FF>M"5 <242> 

319 PRINT" {10RIGHT,RVSON>£{10SPACE>5P{HOME> 

"s RETURN <198> 

320 PRINT" {HOME}"TAB( 14) "{RED}Ji£*£ {DOWN, 4L 
EFT }^^L=-£D0WN,4LEFT>i& {RVSON >rr {RVOFF > 
"jsFOR A=l TO 5sPRINT"{D0WN,2LEFT>^z{D 

OWN, 2LEFT, RVSON >TrC {RVOFF >";s NEXT . <125> 

321 PRINT"-tD0WN,2LEFT>3A{H0ME>":RETURN <124> 

322 PRINT S*TAB<7) " {4UP , BLACK, RVSON }£gTJ77 
■Fn?{D0WN,9LEFT>J. I{4SPACE}tf, *{RVOFF}"; <134> 

323 PRINT" {DOWN, 10LEFT>7 Tti WQTf{HOME}"!R 
ETURN <172> 

324 PRINT S*TAB(4) " {4UP, BLACK, RVSON >£"g'{10S 
PACE>Fif{7RIGHT>£ g-{10SPACE>'ri' 5?"; <159> 

325 PRINT" {5RIBHT>£{2SPACE>'G , {10SPACE>M'{2SP 
ACE>¥{HOME>"; RETURN <220> 

326 PRINT" {HQME>"TAB<7) " {RED>5{2RIGHT)'B , {D0 
WN , 5LEFT , GREEN , RVSON 1 £{RVOFF , YELLOW>g{ 
RVSON , GREEN } 3£{RV0FF , YELLOW } fi {RVSON , GR 
EEN>¥-C6RIGHT>£{D0WN,13LEFT,6SPACE,3RIG 
HT}£{2SPACE, RVOFF}*,"; <114> 

327 PRINT" {DOWN, 14LEFT,RVS0N>£{RV0FF>£{BLA 
CK>VVVV{GREEN>¥{RVS0N>5 ; i.{SPACE,RVQFF>£ 
{DOWN , 1 2LEFT , RVSON } .£ {SPACE , RVOFF , 6SPAC 

E , RVSON , SPACE > ft {RVOFF > i, {DOWN , 1 1 LEFT > " : < 1 76 > 

328 PR I NT " {RVSON , 2SPACE , RVQFF , 6SP ACE , RVSON 
, 2SPACE , DOWN , 1 0LEFT , 2SPACE , RVOFF , 6SPAC 
E , RVSON , 2SPACE , DOWN , 1 0LEFT , 2SP ACE , RVOF 
F,2SPACE, BLACK, RVSON >¥^,{RV0FF,2SPACE,G 
REEN, RVSON , 2SPACE}g¥{D0WN , 12LEFT} " ; <045> 

329 PRINT" {2SPACE>5?{RV0FF, SPACE, RVSON, BLAC 
K> HE {RVOFF , SPACE , RVSON, GREEN}£{2SPACE} 
£ 1f{D0WN,13LEFT,RV0FF>^{RVSaN,2SPACE>5f 
{BLACK } ft-g {GREEN }£{2SP ACE , RVOFF }£? {RVSO 



N,2SPACE>^{RV0FF,D0WN,13LEFT>"; <058> 

330 PRINT"*{RVS0N,6SPACE,RV0FF>£{2RIGHT>¥{ 
RVSQN ,2SPACE , DOWN , 1 2LEFT , RVOFF >¥{RVSON 
,4SPACE,RV0FF>£{3RIGHT,RVSGN?£{2SPACE, 
D0WN,11LEFT,4SPACE,3RIGHT>£{2SPACE,RV0 
FF>£"; <000> 

331 PRINT" {DOWN, 11LEFT, RVSON, 4SPACE,2RIGHT 
>£{2SPACE,RV0FF>i,"SPC<i2) "5P {RVSON, 3SPA 
CE>¥£{2SPACE,RV0FF>^,"SPC<14) "¥{RVS0N,3 
SPACE }ft{SPACE, RVOFF }£" <148> 

332 PRINT S$"{BLACK>EINE RIESIGE KOBRA BE- 
DROHT DICH, WAS WILLSTDU MACHEN ???":R 
ETURN <179> 

333 PRINT S$TAB (8) " {7UP , BLACK >.U^ r CC.*J. {DOWN , 
6LEFT } = <SPACE , RED >£|N.{SPACE , BLACK } = -CDOW 
N , 9LEFT > Ai3^yUA^£y&*i{D0WN , 12LEFT > " ; < 1 17> 

334 PRINT"^ii£i,w'{GREEN>^,{BLACK>5ii2ii{D0WN, 
12LEFT>= 3 = tBLUE> , ai'{BLACK> == ^{DOWN, 
12LEFT>i?c: K3*-»*ft =£"; <B7S> 

335 PRINT" {DOWN, llLEFT>Jt,T? TSS.T E£{6RIGHT,B 
LACK>EINE{3SPACE>-BGEFAEHVRLIttHE TARANT 
EL VERSPERRT DIR"; : <135>. 

336 PRINT"DEN WEG ..."sGQTQ 44 <003> 

337 PRINT"{HOME>"TAB(10)"{6DOWN,BLACK>iiL{D 
OWN, 2LEFT>i£" .-PRINT S*"IN DER WAND 1ST 

EIN{3SPACE>L0CH, IN DAS GENAU" <142> 

338 PRINT"EINE DYNAMITSTANGE{4SPACE>PASSEN 
WUERDE (WAS{4SPACE>FUER EIN ZUFALL) . 

.."jsRETURN <147> 

339 PRINT" {HOME>"TAB (9> " {DQWN,CYAN>JJA££{DO 
WN , 4LEFT > = WJin{DQWN , 4LEFT >^Hfc;<:DOWN , 4LE 
FT>,3.I.U.K,{DnWN, 51 FFT> .U,*.K.J-*-I. {DOWN ,6LEFT>- 
WWW.-." ? <071> 

340 PRINT" {DO WN,6LEFT}^iHJ4fct;a)aWN,6LEFT}^a 
H.H.-- {DOWN , 6LEFT > = ^M = ^{DOWN , 6LEFT W.H.H, 
3JLCDaWN,5LEFT>zJiI=* , ; <040> 

341 PRINT" {D0WN,4LEFT>=r^:-J:D0WN,5LEFT>ilJk^ 
.3.1, {DOWN , 6LEFT > ,J *.KJa.K. " <242> 

342 PRINT S*"{BLACK>DU HAST DIE MOERDER- {2 
SPACE>MUMIE AUFERWECKT. SIE WILL DICH 
JETZT UM-" ' <07S> 

343 PRINT"BRINGEN '. !!"sRETURN <051> 

344 POKE Q,254:PRINT"{CLR,YELL0W>"TAB(12)" 
±4{2SPACE,RVS0N,6SPACE>"; sPRINT SPC(16 
) "{6SPACE,PV0FF>": <245> 

345 PR I NT " {SPACE , C Y AN }tfp'dYd"p"E?{6SPACE , YELLO 
W 7 & ¥{RVSON , 5SPACE , RVOFF , SPACE , CYAN >TT 
TJ{RVS0N>T{RV0FF>UYT{5SPACE,YELL0W>K{3S 
PACE1¥{RVS0N, 4SPACE , RVOFF > " j < 175> 

346 PRINT" {CYAN , 6SPACE >ypo'iWG^3SPACE , YELL 
OW >& ¥ {RVSON , 3SPACE , RVOFF , 6SPACE , CYAN} 
TTO {RVSON >T<RV0FF>rjVf{2SPACE, YELLOW }&{ 
6SPACE,CYAN>'cfp-oTo"P"d{12SPACE,YELLOW> = " <073> 

347 PRINT" {CYAN>rYTJ{RVSON3-T{RVOFF>TTYT{10SP 
ACE, BLACK, RVSON >£*" : PR I NT TAB (16) " {RVS 
ON>£{2SPACE>¥" sPRINT TAB (15) " {RVSON>it 
4SPACE>5F" <223> 

34B PRINT TAB(14) "{RVS0N>£{6SPACE>¥{RVQFF} 
^ i R.R/f.»*.ccj.D.E.E.- f-vTr {RVSON 7 TT {RVOFF > TT7T{D 
OWN>" <159> 

349 FOR A=l TO 22sPRINT" {RED>={BLUE>" ; s NEX 
T:GOTO 44 <020> 

350 POKE Q, 254s PR INT" {CLR, BLACK, DOWN, 2SPAC 
E,RVSON>^. Hi. 5f{SPACE, RIGHT, SPACE>£ 5f{2 
SPACE >*{3SPACE,4RIGHT, SPACE, 2RIGHT, SPA 
CE,2RIGHT, SPACE, RIGHT, SPACE> , g'{RIGHT>W{ 
SPACE, RIGHT >K " <157> 

351 PRINT" {2SPACE>5?{RVS0N,SPACE>¥{SPACE,2R 
IGHT^SPACE}^ H{SPACE,RIGHT>H<2SPACE,7 
RIGHT>HiSPACE,2RIGHT, SPACE, RIGHT, SPACE 
>-g , {RIGHT>H<;SPACE,RIGHT>r! " <068> 

352 PR I NT " {2SPACE >¥{RVSON , SPACE , RVOFF 3 £¥{R 
VSON , SPACE , RVOFF >£, {RVSON , SPACE , R IGHT , S 
PACE>?{R IGHT >M-{2SPACE , RVOFF >£ {RVSON , 3S 
PACE>" <009> 

353 PRINT" {DOWN, BLUE>DU BIST LEIDER TOD," <049> 

354 ON W GOSUB 356,358,359,360,361,363,365 
,366,367 <055> 

355 PRINT" {DOWN} "s GOTO 380 <230> 

356 PRINT" {DOWN}WEIL DICH DIE MUMIE{3SPACE 
,DOWN>MIT IN DIE EWIGEN JAGD{DOWN}GRUE 
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NDE GENOMMEN HAT ! " 

357 RETURN 

358 PRINT" {DOWN > WEIL DIE TARANTEL DICH{DGW 
N>G£BISSEN HAT i ! i " : RETURN 

359 PRINT" -£DOWN>WEIL DIE BCHLANGE DIO-KDOW 
N>VERBPEISST HAT !!!":RETURN 

360 PR I NT " {DOWN > WEIL DU ABGESTUERZTOSPACE 
,D0WN>BIST '.!!": RETURN 

361 PRINT" {DOWN} WEIL DU MIT DER FACKEL{DOW 
N>DDER MIT EINEM STREIOUDDWN JHOLZ DAS 

DYNAMIT ANGE-" 

362 PRINT"ZUENDET HAST UND DABEI -CDDWN>EXPL 
QDIERT BIST !!!": RETURN 

363 PRINT" {DOWN} WEIL DU DIR AN EINEM-C2SPAC 
E,DOWN>GEGENBTAND, DEN DU{4SPACE,D0WNJ 
NEHMEN WOLLTEST, EINEN" 

364 PRINT"BRUCH GEHOBEN HAST !'." s RETURN 

365 PRINT" -CDOWN} WEIL DU DICH DURCH DAS {DOW 
N>TRINKEN DES GIFTES{4SPACE T DQWN>SELBS 
T VERGIFTET HAST": RETURN 

366 PRINT" {DOWNJWEIL DU DICH GE--€6SPACE,D0 
WN>SCHNITTEN ODER VER-{3SPACE,D0WN>BRA 
NNT HAST ! ! »•'!: RETURN 

367 PRINT" {D0WN1WEIL DU AN DIE DECKE-C2SPAC 
E,DOWN>GESPRUNGEN BIST UND {3SPACE, DOWN 
>DIR DEN SCHAEDEL EIN-" 

368 PRINT" {DO WN>GESCHLAGEN HAST !i!":RETUR 
N 

369 POKE Q,250sAZ=62: GOSUB 370; GOTO 373 

370 FOR A=2 TO 5: POKE Q-A,0: NEXT: POKE Q-l, 
8 

371 FOR A=l TO AZsREAD T,L,R:POKE Q-R,163+ 
TsFOR B=0 TO L* 175: NEXT B,A 

372 FOR A=8 TO STEP-. 05: POKE Q-l, A: NEXTs 
FOR A=2 TO 5: POKE Q-A,0j NEXT: RETURN 

373 POKE G, 186: PRINT" CCLR, BLACK, 2SPACE>£@ 
5@C2SPACE>3 5 50SPACE>g{3SPACE>M ttH 

KHHKVKVNVHH JJJ4E" 

374 PRINT" {SPACE, RVSON ,2SPACE>*-{2SPACE>*-.i, 
^■{SPACE , R I GHT , SPACE > £ ¥{R VOFF > HE"{R VSON 
, SPACE , RVOFF , SPACE >'B'{:2SPACE , RVSON , SPAC 
E , RVOFF } Ji-CRVSON , 2SPACE , RVOFF > ±4 {RVSON , 2 
SPACE, RVQFF>M<RVS0N,2SPACE, RIGHT, 2SPAC 
E, RIGHT, SPACE, RVOFF, SPACE>S<RVSON, SPAC 
E, RVOFF, SPACE y&" 

375 PRINT" {SPACE, RVSON, 5SPACE, RVOFF >£{RVSG 
N , 4SPACE , R IGHT , 2SPACE , R IGHT , SPACE , RVOF 
F , SPACE >^-CRVSON , SPACE , RVOFF , SPACE > E{2S 
PACE , RVSON , SPACE , RVOFF >Ji{RVSON , 2SFACE , 
RVOFF JS-CRVSON >¥{SPACE , R I GHT , 2SPACE , RVO 
FF > H {RVSON, 2SPACE, RVOFF >M {RVSON, SPACE, 
RVOFF >M{SPACE, RVSON, SPACE, RVOFF JMW" 

376 PRINT" {SPACE , RVSON , 2SPACE , RVOFF ?£{RVSO 
N , SPACE , RVOFF >ii {RVSON , 2SPACE , RVOFF >&{R 
VSON , SPACE , RVOFF >S {RVSON , SPACE , RVOFF }£ 
¥{RVSON, SPACE, RVOFF >£.{2SPACE, RVSONWR 
V0FF3-H" 

377 PRINT" {DOWN, BLUE >DU HAST DAS {SPACE , RVS 
ON > ADVENTURE {RVOFF , SPACE , DOWN>TATSAECH 
LICH GELOEST, {SPACE, DOWN >TROTZ DEN VIE 
LEN" 

379 PRINT"<DOWN}SCHWIERIGKEITEN UNDOSFACE 

,DOWN>FALLEN !!!!!" 
379 PRINT" {DOWN, PURPLE>HERZLICHEN{12SPACE> 

GLUECKWUNSCH" 
3S0 PRINT" {DOWN, RED>WILLST DU DICH N0CH{3S 

PACE>EINMAL VERSUCHEN ???{HOME>" 

381 GET A*: IF A*="J"THEN RUN 

382 IF A$="N"THEN POKE 0,0:SYS 

383 GOTO 381 

3B4 POKE Q-2, 140: FOR A=15 TO STEP-. 08: PO 
KE Q, 41s POKE Q~1,A:PQKE Q,121sNEXT 

385 IF Z=l THEN Z=0:POKE Q-2, 0s RETURN 

386 FOR A=l TO 1000s NEXT: POKE 0-2,0 

387 GOTO 391 

388 POKE Q,154 

389 FOR C=l TO 3s POKE Q-2, 150: FOR D=0 TO 1 
5' STEP. 3s POKE Q-l, Ds NEXT DsPOKE Q~2,0 

390 POKE Q, 42: FOR E=l TQ 100s NEXT EsPOKE Q 
,154s NEXT CsFOR F=l TO 1000: NEXT F 

391 POKE Q-l, 15 

392 A=225:B=4: GOSUB 397: B=3: GOSUB 397s B= Is 
GOSUB 397 sB=4s GOSUB 397 

393 A=229:B=3s GOSUB 397s A=228s B= Is GOSUB 39 



<122> 




<161> 


394 


<006> 


395 




396 


<16B> 


397 


<245> 


39S 




399 


<067> 






400 


<140> 


401 




402 


<240> 


403 


<076> 






404 


<iai> 





<160> 

<003> 

<103> 
<021> 

<106> 

<148> 

<065> 

<028> 



<195; 



<093> 



<120> 



<082> 
<089> 
<097> 

<127> 

<053> 
<036> 
<233> 

<136> 

<170> 
<003> 
<253> 
<1B9> 

<240> 

<196> 

<041> 

<009> 



405 

406 

407 

408 
409 
410 
411 

412 

413 

414 

415 
416 
417 

418 

419 

420 
421 
422 

423 

424 

425 
426 

427 

428 
429 
430 

431 

432 
433 

434 

435 

436 

437 

438 



7s B=3s GOSUB 397 

A=225:B=1: GOSUB 397: B=3j GOSUB 397:A=22 

3sB=liG0SUB 397 

A=225:B=6: GOSUB 397 

GOTO 350 

POKE Q-5,AsP0KE 0-4, As POKE Q, 24s FOR C= 

1 TO B*200: NEXT: POKE Q, 25: POKE Q~4,0 

POKE Q-5,0:FOR C=l TO 20: NEXTs RETURN 

PRINT" {CLR>"s POKE Q, 40 s POKE Q-1,15:B=2 

3: FOR A=220 TO 130 STEP-lsPOKE Q-3,AsB 

=B-.25 

IF B=INT<B)THEN GOSUB 402 

FOR C=l TO 5s NEXT C, A: GOTO 403 

POKE Q-15,35-BsP0KE Q-14 ,82-INT <B/2) *4 

s POKE Q-13,B-1:P0KE G~ 1 2, 2*B: RETURN 

POKE Q-15, 12s POKE Q-l 4, 38: POKE Q-l 3, 22 

sPOKE Q-l 2, 46: POKE Q-3,0:POKE Q-2, 130 

PRINT" {HOME, 6D0WNVSPCO) " {BLAOOS{4SP 

ACEJ0"SPC<15) "ri1?{3BPACE>?rR"BPC<16) "&&{ 

2SPACE}JihL"SPC (17) " U.CC.l. " ; 

PRINT SPC(9) "^{BREEN>S&{BjLACK}-"SPC<18 

) " = {BLUE>??{BLACK>z;"SPC ( IB) "&FLK."SPC ( 1 

7) "M{:2SPACE>iUl"SPC( 155 "rTM"{3SPACE}prR" 

PRINT SPC(8) "T{4SPACE>T":F0R A=15 TO 

STEP-. Is POKE Q-15;il:P0KE Q-l, A 
FOR B=l TO 10:NEXT BsPOKE Q-15,12sF0R 
B=l TO 10s NEXT B, As POKE Q-2,0 
FOR A=l TO 1500: NEXT: GOTO 391 
END 

POKE 198,0 

POKE 460 1,1 60: POKE 38393,2: FOR A=l TO 
350 s NEXT 

GET C*sIF C#=""THEN POKE 4601, 32s FOR A 
=1 TO 350: NEXTs GOTO 411 
POKE 460 1,32: RETURN 

FOR A=4096+16*22 TO 4096+23*22: POKE A, 
32 s NEXT: RETURN 

DATA NSOW.R,.S ,.S.W. . ,.S0.. . ,N. .W. 

. ,NSO. . . ,NS ,. . .WH. ,N.O. .. ,N R 

DATA .. .W.R,..OW.. ,.SQW. . , . SO. . . , . . . W. 

. ,.SQW..,N.O. ..,NS S.W. . ,N.OW. . 

DATA .SOWH. ,NSO. . . ,N. .W.. ,..0W. . ,N.OW. 

-,N.O S..H. ,.S.W. .,..0 S.W. . 

DATA .Sp. . . ,N, ,W. . ,. .OW. , ,. .OW. . ,NSO. . 

. ,NS ,.S.W , . . .W. . ,N.O. . . 

DATA NS.... ,NS.W.. ,.S0. . . , . . . W. . , . SO. . 

. ,NS ,N ,N. .W. . ,. .OW. . ,N.OW. . 

DATA N.O. . . 

DATA SCHATZTRUHE,4,BARK0PHAG,39,SCHATZ 

TRUHE , , KUHLE , 36 , FALLBRUBE , 46 , PHARAONE 

NSTAB 

DATA 0,DYNAMIT,5,DOLCH,12,FACKEL,14,SA 

CK , 1 6 , SCHLUESSEL , 22 , STRE I CHHOELZER , 25 

DATA BRETT , 29 , ZAUBERTRANK , 28 , MASKE , 38 , 

GIFT, 51 ,DIAMANT, 19 

DATA MUM I E , , TARANTEL , 50 , KOBRA , 43 , LOCH 
IN WAND, 33 

DATA-5,5,-l,l,-4,4,-l,l,~3,3,-l,l 

DATA BEHE,LEGE,NIMM,WIRF,OEFF,ZUEN,BTE 
C,TRIN,SAGE,SPRI,BESI,ENDE,SCHL,KLET 
DATA SAVE, LOAD 

DATA 32,2,3,0,0,4,46,2,3,-40,0,3,46,1, 
3,52,1,3,56,2,3,46,2,3,32,0,4,62,4,3,0 

,0,4 

DATA 56,3,3,-40,0,3,56,1,3,24,0,4,58,2 

,3,62,1,3,58,1,3,0,0,4,56,1,3,58,1,3,6 

2,2,3 

DATA 32,0,4,52,1,3,46,1,3,52,1,3,56,1, 

3,52,2,3,-40,0,4,32,2,3,0,0,4,46,2,3,- 

40,0,3 

DATA 46, 1 ,3,52, 1 ,3,56, 2,3,46,2,3,32,0, 

4,62,3,3,58,1,3,0,0,4,56,3,3,-40,0,3,5 

6,1,3 

DATA 24,0,4,58,1.1,3,62,1.2,3,0,0,4,56 

,1.3, 3, 58, 1.4, 3, 32, 0,4,52,. 2, 3, 56,. 2, 3 

DATA 52,. 2, 3, 56,. 2, 3, 52,. 2, 3, 56,. 2, 3, 5 

2,3.2,3,46,1.6,3,-40,0,3,0,0,4,46,6,3 



<107> 

<051> 
<113> 

<166> 

<053> 
<192> 



<010> 
< 1 18> 
<225> 

<249> 

<250> 



<150> 

<160> 

<135> 

<232> 
<231> 
<157> 

<064> 

<080> 

<101> 
<092> 

<133> 

< 1 1 1 > 

<038> 

<187> 

<120> 

<021> 
<193> 
<143> 

<095> 

<078> 

<063> 
<147> 

<239> 

<149> 
<0B7> 
<151> 

<158>. 
<175> 

<154> 

<217> 

<165> 

<195> 

<100> 
<213> 
<139> 



Listing »DANGEROUS PYRAMID« (SchluB) 
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VC 20 



EINGABEHILFE 



Checksummer 

20 V3 



Der Checksummer 20 V3 fur den VC 20 iiberpruft 
jede Basic-Zeile direkt nach der Eingabe, erkennt 
Fehleingaben und auch Vertauschungen von 
Zahlen und Ziffern, und erspart Ihnen deshaib 
eine aufwendige Fehlersuche. 



Der Checksummer 20 V3 ist ein kleines Maschinen- 
programm, das Sie sofort unterrichtet, ob Sie die jewei- 
lige Programmzeile korrekt eingegeben haben. 
So gehen Sie vor: 

1 . Programm abtippen und speichern. 

2. Starten mit RUN. 

3. Anschalten des Checksummer 20 V3 mit SYS 981. 

4. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drucken die RETURN-Taste. Am Biidschirm oben links sollten 
Sie die Prufsumme <63> sehen. 

5. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Kiammern < > stent, in 
den Biidschirm eingeblendet. StimmendieZahien nicht uber- 
ein, so liegt vermuttich ein Eingabefehler vor. 

Die Zahl in den Kiammern und auch die Kiammern selbst 
durfen beim Abtippen nicht mit eingegeben werden! 

6. Dieser Checksummer 20 V3 bemerkt auch Vertau- 
schungen von Zahlen und Buchstaben. 

7. Abscnaltung wird mit »SYS 58459« vollzogen. 
Aehtung: Nehmen Sie keine Kassetten-Operationen vor, 

wenn der Checksummer VC 20 eingeschaltet ist. Da das 
Betriebssystem den Kassettenpuffer mit Daten belegt, kann 
der Checksummer VC 20 uberschrieben werden. Wollen Sie 
deshaib ein Programm auf (von) Kassette speichern (laden), 
so mussen Sie erst den Checksummer VC 20 abschalten. 
Als Sicherung wird bei der tnitialisierung gepruft, ob das 
zuletzt angesprochene Peripherie-Gerat der Kassettenre- 
corder war. Ist das der Fall, so werden die Betriebssystem- 
routinen LOAD und SAVE fur die Benutzung gesperrt. Der 
Computer meidet bei Aufruf einer dieser beiden Routinen 
READY, ohne weitere Aktionen durchzufuhren. Diese Siche- 
rung kann man nach derTipparbeitaufheben, wenn man den 
Checksummer VC 20 mit SYS 58459 abschaltet. Weiterhin 
wird dann durch gleichzeitiges Drucken der Tasten »Run- 
Stop & Restore« erreicht, daB die Betriebssystemroutinen 
LOAD und SAVE wieder eingerichtet werden. 
- Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu acnten, daB bei LOAD beziehungsweise SAVE der 
Checksummer VC 20 uberschrieben wird, da der Kassetten- 
puffer fur die Diskettenstation normaierweise nicht genutzt 
wird. Bitte beachten Sie auch die folgende Seite. 

(F. Lonczewski/gk) 



5 PRINTCHR$(14> 
10 PRINT":}" 

20 PRINT" 1 — 

30 PRINT"*IeMW 1 EST 3 

40 PR I NT " WWVWWWWWWWWWWWWUV 1 



H" 



10 REM*************** 

11 REM* * 

12 REM* CHECKSUMMER * 

13 REM* * 

14 REM* V3 VC20 * 

15 REM* * 

16 REM* WRITTEN * 

17 REM* MAERZ 1985 * 

18 REM* BY * 

19 REM*F. LQNCZEWSK1* 

20 REM*************** 

21 PRINT" iCLR, SPACE, RVSQN>CHECKSUMMER V3 V 
C-20<RVOFF>" 

22 PRINT" <2D0WN>EINEN MOMENT, BITTE..." 

23 FOR 1=827 TO 1019: READ A: POKE I, A 

24 PS=PS+A+1:NEXT I 

25 IF PS024464 THEN PRINT" {DOWN >PRUEFSUMM 
ENFEHLER !"sEND 

26 SYS 981: PR I NT "CHECKSUMMER AKTIVIERT." 

27 PR I NT "AN :SYB981" j 

28 PRINT" {DOWN* AUS :SYS58459, 1 BEI CAS-14SPA 
CE5SETTE ZUSAETZLICH<5SPACE>RUN/ST0P & 
RESTORE" 

29 PRINT" CDOWNJBEI AKT-IVIERTEM CHECK-SUMME 
R KEIN"; 

30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE) Z2 
SPACE >ERLAUBT » " : NEW 

31 DATA 32,95,3,134,122,132,123,32,115,0,1 
70 , 240 , 243 , 1 62 , 255 

32 DATA 134,58,144,10,162,0,134,255,32,121 
,197,76,225,199,162 

33 DATA 1,134,255,76,156,196,166,255,224,1 
,240,3,76,96,197 

34 DATA 160,2,169,0,170,133,254,177,95,240 
,40,201,32,208,3 

35 DATA 200,208,245,133,253,138,41,7,170,2 
40,14,72,165,253,24 

36 DATA 42,105,0,202,208,249,133,253,104,1 
70 , 232 , 165 , 253 , 24 , 101 

37 DATA 254,133,254,76,119,3,192,4,48,219, 
198,214,165,214,72 

38 DATA 162,3,169,32,157,1,4,189,209,3,32, 
210,255,202,16 

39 DATA 242,166,254,169,0,32,205,221,169,6 
2,32,210,255,104,133 

40 DATA 214,32,135,229,169,141,32,210,255, 
162,0,134,255,240,148 

41 DATA 9,60,18,19,169,59,141,2,3,169,3,14 
1,3,3,165 

42 DATA 186,201,1,208,16,169,116,141,48,3, 
141,50,3,169,196 

43 DATA 141,49,3,141,51,3,173,136,2,141,17 
0,3,96 



Listing. Checksummer VC 20 V3 



5 PRINT CHR*U4> 5 242 > 

10 PRINT" <CLR>" x2S4> 

20 P R T MT " K^*******.***.****3t-*.*****.*** a" <130> 
30 PRINT" C4DDWN,2SPACE>IEST {SPACE, BLUE, 65P 

, ACE>" ^^__^ <022> 

40 PRINT" BBBttttaB ' i^ i^d ttttSa6Stt«tim^ K ^ " <108> 

© G4'ee 



Bild 2. Auf dem Biidschirm oder Ihrem Drucker sieht das Listing 
(Bild 1) so aus 



Bild 1. So konnte ein Teil eines Listings abgedruckt sein. In Zeile 
10 mussen Sie nach den Anfiihrungsstrichen die CLEAR/HOME- 
Taste drucken und nicht die Kiammern mit dem Wort CLR. In 
Zeile 20 drucken Sie nach den Anfiihrungsstrichen die 
Commodore-Taste und den Buchstaben Q, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluft die Commodore-Taste 
und den Buchstaben W. In Zeile 30 ist es viermal die Cursor- 
nach-unten-Taste, gefolgt von zweimal die Leertaste, dann SHIFT 
und T und normal EST, zum SchlufS noch einmal die Leertaste, 
die Farbtaste Blau (Control und 7) und sechsmal die Leertaste. 
Zeile 40 besteht lediglich aus mehreren Grafikzeichen, die mit 
der Commodore-Taste und < B > erzeugt werden. (gk) 
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EINGABEHILFE 



Wie unsere 

Basic-Programme 



einzugeben sind 



Sie haben kein Problem mehr mit dem Abtippen 
von Basic-Prog ram men, wenn Sie die folgenden 
Hinweise zum Abtippen beachten. 



Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen 
zwischen geschweiften Klammern. Deshalb sind 
weder die Klammern noch was dazwischen steht, abzutip- 
pen, sondern die in Tabelle 1 aufgef ubrten Tasten zu drucken. 
Auf Ihrem Bildschirm erhalten Sie.dann wieder die entspre- 
chenden Grafikzeichen (siehe Bild 1 und 2 auf Seite 129). 
Alle Grafikzeichen werden ebenfalls ersetzt durch unter- 
strichene Oder ubersthchene GroBbuchstaben. 

Unterstrichene Buchstaben bedeuten, daB Sie die 
SHIFTTaste und den angegebenen Buchstaben drucken 
mussen, uberstrichene jedoch die Commodore-Taste mit 
dem Buchstaben. 

Auch hier erhalten Sie am Bildschirm das entsprechende 
Grafikzeichen und nicht etwa das im Listing erkennbare Zei- 
chen (siehe Bild 1 und 2 auf Seite 129). 



Die Leerzeichen zwischen den feinzeinen Basic-Befehien 
konnen beim Abtippen entfallen. Dies ist besonders bei spei- 
cherkritischen Programmen wichtig. 

Ebenso mussen Zeilen^die mehr als 80 Zeichen pro Zeile 
enthalten, mit den bekannten Abkurzungen fiir die Basic- 
Befehle (siehe auch das Handbuch zum C 1 6, Seite 202) ein- 
gegeben werden. Die in den eckigen Klammern (< . . . >) 
stehenden Zahlen am Ende jeder Basic-Zeiie sind Prufsum- 
men. Sie werden benotigt, wenn Sie den Checksummer 
(siehe Seite 129) verwenden. Dteser Checksummer ist 
jedoch nur fiir den VC 20 giiitig. Deshalb wurden auch nur 
VC20-Listings mit Prufsummen versehen. Selbstverstand- 
lich konnen Sie die Basic-Listings auch ohne den Checksum- 
mer eingeben. Dann sind die Prufsummen fur Sie ohne 
Bedeutung. 

Programme fiir den C 16 sind auch giiitig fur den C 116. 
Auch wenn Sie Pius/4-Besitzer sind, durfte es kaum Pro- 
bleme geben. VC 20-Listings konnen C 16-, C 116- und 
Plus/4-Besitzer nur bedingt verwenden: Wenn Sie in einem 
VC 20-Listing POKE-Befehle finden, iauft das Programm auf 
dem C 16, C 116 oder Plus/4 mit groBer Wahrscheinlichkeit 
nicht. (gk) 



(CTRL) 


steht fiir Control-Taste, so bedeutet [CTRL-A], daB 


(CTRL) Control-Taste 




Sie die Control-Taste und die Taste »A« drucken 


(BLACK) Control-Taste S 1 




mOssen. Im folgenden steht: 


SWHITE) Control-Taste & 2 


(DOWN) 


Taste neben rechtem Shift, Cursor unten 


(RED) Control-Taste & 3 


{UP} 


Shift-Taste & Taste neben rechtem Shift; Cursor 


(CYAN) Control-Taste & 4 




hoch 


(PURPLE) Control-Taste & 5 


fCLR] 


Shift-Taste & 2. Taste ganz rechts oben 


(GREEN) Control-Taste & 6 


(INST) 


Shift-Taste & Taste ganz rechts oben 


(BLUE) . Control-Taste & 7 


[HOME] 


2. Taste von ganz rechts oben 


(YELLOW) . Control-Taste & 8 


(DEL) 


Taste ganz rechts oben 


(RVSON) Control-Taste & 9 


(RIGHT) 


Taste ganz rechts unten 


(RVOFF) Control-Taste & 


. [LEFT) 


Shift-Taste & Taste unten rechts 


m (ORANGE) Commodore-Taste & 1 


(SPACE) 


Leertaste, Hinweis: (13 SPACE) bedeutet 13mal die 


" (BROWN) Commodore-Taste & 2 




Leertaste drucken 


(LIG.RED) Commodore-Taste & 3 


(SHFT-SPCE) 


Shift-Taste & Leertaste 


•(GREY 1 j Commodore-Taste & 4 


(F1] 


grauer Tastenbiock rechts 


(GREY 2) Commodore-Taste & 5 


fF3) . 


grauer Tastenbiock rechts 


(LIG.GREEN) Commodore-Taste & 6 


(F5) 


grauer Tastenbiock rechts 


(LIG.BLUE) Commodore-Taste & 7 


(F7) 


grauer Tastenbiock rechts 


(GREY 3) Commodore-Taste & 8 


(F2) 


grauer Tastenbiock rechts & Shift 


Wenn Sie sich erst einmal an die in Klartext geschriebehen Steuer- 


(F4) 


grauer Tastenbiock rechts & Shift 


zeichen gewohnt haben, werden Sie den Vorteil dieser Schreibweise 


(F6) 


grauer Tastenbiock rechts & Shift 


erkennen. Der zu dem jeweiligen Steuerzeichen gehorende Klartext 


(F8) 


grauer Tastenbiock rechts & Shift 


ist so verfaBt, daB Sie leicht die Taste beziehungsweise die Tasten- 


(RETURN) 


Shift-Taste & Return 


kombination finden, die Sie drucken mussen. 
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Tabelle 1. Die Steuerbefehle fiir den C64/VC20/C16 im Klartext 
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C16, C116, Plus/4 



TIPS&TRICKS 



Directory einmal anders 



Wenn Sie der schwache Informationsgehalt des 
Directory einer Diskette stort, dann schafft das 
folgende Programm Abhilfe. Es druckt ein Inhalts- 
verzeichnis mit alien wichtigen Informationen auf 
dem Drucker aus. 



Directory-List arbeitet auf dem C16, C116 und Plus/4 
und erlaubt das Ausdrucken von sehr komfortablen 
Directories- Dieser Ausdruck enthalt Fiietyp und 
-lange, sowie Startadresse eines Programms im Speicher, 
Starttrack und -sektor auf der Diskette und den Block, unter 



dem es im Directory gespeichert ist (Blld 1 zeigt einen Bei- 
spielausdruck). 

Listing 1 enthalt das Programm zu »Directory-List«. Da wir 
fur den C16 und den Plus/4 feider noch keinen Checksum- 
mer anbieten kdnnen, wurde das Listing ohne Prufsummen 
abgedruckt. 

Die Handhabung ist denkbar einfach: Nach dem Starten mit 
RUN kann die gewunschte Diskette in das Laufwerk einge- 
legt werden. AnschlieBend wird der Ausdruck durch einen 
Tastendruck gestartet. Das Programm meidet sich nach 
Beendigung des Druckvorgangs mit dem Status der Floppy- 
station und muB bei weiteren Ausdruckjen erneut mit RUN 
gestartet werden. (S.Giero/ks) 



Name iW^m^m^j^EsmmmBS^^m 


ID 


:«0 F 


Qrmat:£H 




>■ 








Fi lename : 


Fiietyp: 


Bloecke ; 


Startadresse : 


Spur: Sektor: 


Dirbl 


ock: 




================ 


:::s::s:::: 


= = = 


= = = = = 


_ j. s _ _ _ _ _ _ _ = _ -.- 


======== 


====== 


====== 


======= 


== = = = ■ 


how to use 


prg 




14 


$0801/ 2049 


17 ■ 





18 


1 




how part two 


prg 




8 


$0801/ 2049 


17 


5 


18 


1 




how 'part three 


prg 




7 


$0801/ 2049 


19 





18 


1 




vic-20 wedge 


prg 




4 


$0401/ 1025 


19 


4 


18 


1 




c-64 wedge 


prg *. 




1 


S0401/ 1025 


19 






, 




dos 5*1 


- — 













18 


7 






Ftg 




8 


$0401/ 1025 


12 


19 


18 


7 




unscratch 


prg 




7 


$0401/ 102 5 


24 


1 . 


18, 


10 




header change 


prg 




5 


$0401/ 1025 


24 


10 


18 


10 




Bloecke: insgesamt = 664. 


be 


legt = 261 


frei = 


403 










Bild 1 


Beispielausdruck eines erweiterten Directory 











80 COLOR 0,1b COLOR 4,2,2: COLOR 1,14: SCNCLR 

96 T=lBs S==l 

100 FOR 1=1 TO 4: READ F* < I ) : NEXT 

110 DATA SEQ,PRS,USR,REL 

156 PRINT " CRVSONJDI RECTORY LIST-C2SPACE1BY SVEN 

GIERO, BURGDORF ": PRINT 
160 PRINT "DIESES PROGRAMM DRUCKT DAS DIRECTORY" 
170 PRINT "EINER DISKETTE MIT ALLEN DAZUGEH0ERI6 

EN" 
180 PRINT "DATEN ( SPUR, SEKTOR, STARTADRESSE US 

W ) " 
190 PRINT "DER EINZELNEN FILES AUF DEM DRUCKER A 

US.": PRINT 
200 PRINT "8ITTE SCHALTEN SIE DEN DRUCKER AN, LE 

GEN" 
210 PRINT "DIE ENTSPRECHENDE DISKETTE INS LAUFWE 

RK" 
220 PRINT "UNO DRUECKEN SIE EINE TASTE !" 
230 GET KEY A*: SCNCLR 
240 POKE 65286, PEEK < 65286) AND 239 
290 OPEN 1,8, 15, "10": IF DS THEN 790 
300 OPEN 2,8,2, "#" 
310 OPEN 4,4,7: PRINTB4 
320 PRINT#1 , "Ul 2 18 0" 
330 PRINTttl,"B-P 2 144" 
340 FOR 1=1 TO 16 
350 GET #2, A*: N*=N*+A* 
360 NEXT 

370 BET #2,A*,A*,A*,B*: I*=A*+B* 
380 GET #2,A*,A*,B$: F$=A*+B* 
390 PRINT#4,"£iAME: tR VSON } " N* " -ERVOFFI- XS: -CRVS0N3 ■" 

I*"IRVOFFJ FORMAT: CRVSON] "F$: PRINT#4 
400 PR I NTW4," FILENAME : " SPC <9> "OLETYP: S_OECKEs 

410 PR I NT#4," STARTADRESSE: SPUR: SEKTOR: SIRBLOC 



420 
470 
480 
490 
500 
51 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
6B0 
690 
700 
710 
72© 
730 
■740 
750 
760 
770 

780 
790 

800 

810 



NEXT 



PRINT#4 



FOR 1=1 TO 80: PRINT#4,"= 
IF T=0 THEN 760 
PRINT#1,"U1 2 0";T:S 
Z=2: Tl=Ts S1=S 

GET #2,A$,B*: T=ASC(A*>: S=A5C(B$) 
IF Z>256 THEN 470 
PRINT#1 ,"B-P 2";Z: N*="" 
GET #2,A*,B$,C* 

FT=ASC(A*) AND 7: ET=ASC(B*>: ES=ASC(CS) 
FOR 1=1 TO 16 
GET #2, A*: N*=N*+A$ 
NEXT 

IF N*="" THEN 760: ELSE IF FT=0 THEN 750 
OPEN 3,8,3,N*+LEFT*(F*(FT) , 1)+"R"- 
GET #3,A*,B*s CLOSE 3 
SA=ASC ( B$ ) *256+ASC < A* ) 
FOR I«l TO 9; GET #2, A*: NEXT 
GET #2,A*,B*: B=ASC <B$) *256+ASC CA*> 
„BB=BB+B 

PRINT#4,N* SPC<4)F*{FT) SPC<6) 
PRINT#4, USING "###"; B; 
PRINT#4,SPC(5) "*" HEX*(SA> "/": 
PRINT#4, USING "##«##"; SA; 
PRINT#4,USING " -t3SPACEJ#tt" ; ET; 
PRINT#4, USING " -C5SPACE>##" ; ES; 
PRINT#4,SPC(4)T1" "SI 
Z=Z+32s GOTO 510 

FOR 1=1 TO 80: PRINT#4, "-" ; : NEXT s PRINT#4 
PRINT#4, "JLOEGKE: " SPC <5> " INSGESAMT = 664" S 
PC (5) "BELEBT = "88; 

PRINT#4,SPC<4) "FREI = "664-BB: PRINT#4 
CLOSE 4: CLOSE 2: CLOSE 1 
POKE 65286, PEEK < 65286) OR 16 
PRINT DS*: END 



Listing 1. Das Programm zu »Directory-List« 
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TIPS&TRICKS 



C16, C116, Plus/4 



Spitzen-Diskmoniflor fiir C 16 

und Plus/4 



Mit »Disk Mon 16« wollen wir Ihnen einen durch- 
aus professionellen Disketten-Monitor fiir den 
C16, den C116 und den Plus/4 anbieten. Es han- 
delt sich hier sicherlich um das beste bisher ver- 
offentlichte Programm. 



B 



, ei »Disk Mon 1 6« handelt es sich um ein professionelies 
Maschinenprogramm, das wir Ihnen als Basic- Lader 
'anbieten (Listing 1). Angefangen bei Befehlen wie 
Block lesen und Block schreiben konnen Sie mit dem 
Disketten-Monitor auch alle Byte eines Blocks andern, 
Befehle an das Diskettenlaufwerk senden, das Directory 
anzeigen und Zahlen in verschiedene Zahlensysteme 
umrechnen. 

Wenn Sie das Programm (Listing 1) abgetippt und gespei- 
chert haben, starten Sie es mit »RUN«. Die DATAs werden nun 
im Speicher des Computers als Maschinenprogramm abge- 
legt (das dauert etwa 96 Sekunden). AnschlieBend startet 
sich der Monitor automatisch. 

Wenn alles stimmt, erscheint jetzt ein Titelbiid auf dem 
Monitor, das das Hauptmenu enthalt. Naturlich wolien Sie 
nicht jedesmal wieder das Basic- Programm laden und dann 
96 Sekunden auf den Start des Dtsketten-Monitors warten. 
Sie konnen das eigentfiche Maschinenprogramm nun auch 
direkt auf Diskette speichern und anstatt des Basic-Laders 
laden und starten, was folgendermaBen funktioniert: 

Verlassen Sie mit <E> den Disketten-Monitor. Es 
erscheint »READY«, und Sie befinden sich wieder im Basic. 
AnschlieBend tippen Sie 
MONITOR 

und drucken die < RETURN > Taste. Haben Sie alles richtig 
gemacht, dann befinden Sie sich jetzt im Maschinensprache- 
Monitor Ihres Computers. Die Anzeige auf dem Bildschirm 
sieht etwa so aus: 

MONITOR 

PC SR AC XR YR SP 
; FFOO 00 00 FF 00 F2 

Unterhalb dieser Zeilen blinkt der Cursor, und der Compu- 
ter wartet auf Ihre Eingabe. Tippen Sie jetzt bitte ■. 
S"DISK MON 16",08,3835,3ED7 

und drucken Sie wiederum die < RETURN > -Taste. Das Lauf- 
werk lauft nun an und speichert den Disketten-Monitor auf 
Diskette. Das Ergebnis auf der Diskette ist ein Programm mit 
dem Namen »DISK MON 16«, das nur sieben Blocke lang ist 

Speichern des Disk Mon 16 

Wollen Sie das Programm auf der Datasette speichern, so 
rnussen Sie die Angabe »,08,« hinter dem Fiienamen im 
Maschinensprache-Monitor ledigfich in »,01,« fur die Data- 
sette andern. 

Wollen Sie diesen »reinen« Disketten-Monitor nun wieder 
in den Computer laden und starten, so geben Sie 
LOAD * DISK MON 16 * , 8, 1 
beziehungsweise fur die Datasette 
LOAD "DISK MON 16" , 1,1 
ein. AnschlieBend kommen Sie mit dem Befehl 
SYS 14389 
wieder in den »Disk Mon 16«. 



Wir gehen einmal davon aus, daB der Disketten-Monitor 
gestartet ist. Dann erscheint das Hauptmenu mit alien zur 
Verfugung stehenden Befehlen. 

Mit dem Befehl <M> ist es moglich, jederzeit wieder ins 
Hauptmenu zuruckzukehren. Das istzum Beispiel dann not- 
wendig, wenn wir den Befehl fur das Lesen eines Sektors 
nicht mehr wissen und noch einmal nachsehen wollen. 

Mit dem Befehl <L> konnen Sie einen beliebigen Block 
von der Diskette in den Speicher des Computers lesen. Der 
Block steht dabei im Bereich von $^EFE bis $3FFD (16126 
bis 16381). Die Syntax des <L>-Befehls lautet dabei 
L Track Sektor 

wobei fur »Track« die Spuraummer (von 01 bis 35) und fur 
Sektor die entsprechende Sektornummer (je nach Spur von 
00 bis 20, 18, 17, 16) eingegeben werden kann. 

Arbeit mif drei Zahlensystemen 

Die Angabe der Track- und der Sektornummer kann dabei in 
einem der drei Zahlensysteme hexadezimal, dezimaf oder 
Dinar eingegeben werden. Werden dezimale Werte verwen- 
det, so erubrigt sich ein Kennzeichen. Bei hexadezimalen 
Werten rnussen Sie ein < $ > und bei Binarwerten ein < % > 
vor den betreffenden Wert setzen. 

Wollen Sie einen Sektor wieder auf die Diskette schreiben, 
dann verwenden Sie den Befehl <S>. Seine Syntax ist 
gleich der des <L>-Befehls, wobei wiederum alle drei Zah- 
lensysteme vetwendet werden konnen, also zum Beispiel: 
S $01 #000000.00 

Dieser Befehl schreibt einen Block bei Spur 1 Sektor auf 
die Diskette. Die Tracknummer wurde dabei hexadezimal und 
die Sektornummer binar angegeben. 

Haben Sie einen Block gelesen, dann wollen Sie sich des- 
sen Inhalt naturlich auch gleich ansehen. Dazu dient der 
Befehl <A>. Wird kein AdreBbereich angegeben, so wird 
der gesamte Sektor aufgeiistet. Die Angaben sind dabei alle 
hexadezimal. 

Bremsen konnen Sie das Auflisten mit der Commodore- 
Taste, abbreehen konnen Sie mit < RUN/STOP >. 

Wollen Sie nur eine bestimmte Anzahl von Bytes auf dem 
Bildschirm ausgeben, so geben Sie den AdreBbereich an, 
der angezeigt werden soil. Beide Angaben werden dabei 
hexadezimal entgegengenommen, wenn kein Kennzeichen 
angegeben wird und durfen Werte zwischen $00 und $FF 
enthalten. Wollen Sie sich also nur die erste Halfte eines Sek- 
tors ansehen, den Sie zuvor eingelesen haben, so tippen Sie 
A -00 7F 

oder aber auch 
A $00000000 #01111111 

Der nachste Befehl ist vor allem fiir Maschinensprache- 
Programmierer interessant. Es handelt sich um den Befehl 
< t >, der das Springen in den Maschinensprache-Monitor 
gestattet. Hier kann der entsprechende Block dann zum Bei- 
spiel disassembliert oder assembliert werden. Die Ruckkehr 
erfolgt entweder uber Basic (siehe oben) oder mit »G 3835«. 

Einen einmal eingelesenen Sektor konnen Sie naturlich 
auch verandern. Dazu lassen Sie sich den betreffenden Teil 
anzeigen (mit dem <A> -Befehl). AnschlieBend gehen Sie 
mit den Cursortasten auf das entsprechende Byte und 
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andern es demgemaB ab. Die Eingabe wird in jeder Zeile mit 
< RETURN > abgeschlossen. 

Wolien Sie eine Zeile direkt eingeben, dann schreiben Sie 
einen Doppelpunkt »:«, der dem Eingabe-Befehl entspricht, 
und geben anschlieBend eine Adresse und nachfolgend bis 
zu acht Byte ein. Wie Sie sicherlich bemerken, steht beim 
Auflisten eines Sektors an jedem Zeilenanfang schon auto- 
matisch der Doppelpunkt »:«, so daB ein einfaches Andern 
der Bytes Oder der Adresse genugt. 

Naturlich ist es unter »Disk Mon 16« auch moglich, einen 
Befehl an die Diskettenlaufwerk zu senden. Dazu tippen Sie 
den Befehl <0> und nachfolgend die Zeichenkette fur die 
Floppy ein. Wolien Sie also eine Diskette formatieren, dann 
tippen Sie zum Beispiel: 



Befehl 


Wirkung 


Syntax 


M 


Anzeige des Hauptmenus 


M 


L 


Lesen eines Sektors -- . ■ 


L Track Sektor 


S 


Schreiben eines Sektors 


S Track Sektor 


A 


Anzeigen eines Blockinhalts 


A Start-, Endadresse 


t 


Sprung in den TEDMON 


t 




Eingabe von Bytes 


: Adresse Bytes.... 





Befehl an die Floppy senden 


Befehl 


F 


Fehierkanal der Floppy ausiesen 


F 


$ 


Directory anzeigen 


$ 


Z 


Umrechnen in andere Zahlensysteme 


ZWert 


E 


Rilckkehr ins Basic 


E 



Tabelle 1. Komplette ubersicht Liber alle Befehle des 
Disketten-Monitors 



ON:TESTDISKETTE,TD 

Beim Arbeiten mit dem Laufwerk kommt es naturlich auch 
vor, da(3 zum Beispiel ein Fehler des Laufwerks durch das 
charakteristische Blinken angezeigt wird. Wolien Sie die Feh- 
lermeldung im Klartext lesen, dann reicht die Eingabe von 
< F > und ein anschlieBendes < RETURN > , urn den Fehier- 
kanal auszulesen und aufdem Bildschirm anzuzeigen. 

Mit dem Befehl <$> konnen Sie sich das Directory der 
eingeiegten Diskette anzeigen lassen. 

Wolien Sie vielleicht auch einmal wissen, welcher Wert der 
hexadezimalen Zahl $6B entspricht? Dann kann Ihnen der 
Befehl <Z> weiterhelfen. Ererlaubtdas Umrechnen einer 
Zahi aus einem derdrei Zahlensysteme Dezimal, Hexadezi- 
mal und Binar in die jeweils anderen Systeme. Dazu ein Bei- 
spiel: Die Eingabe 
Z $6B 

ergibt den Ausdruck 
HEX = $6B ■{ 

DEZ = 107 
BIN = £01101011 

Ebensogut konnen Sie als Ausgangswert jedes der beiden 
anderen Zahlensysteme angefeen. Binarzahlen erfordern 
dabei ein < % > vor dem Wert. 

Die beiden letzten Befehle <M> und <E> wurden 
schon besprochen. Sie lassen das Hauptmenu (<M>) 
anzeigen oder ins Basic zuruckkehren ( < E> ). Eine Aufstel- 
lung aller Befehle zeigt noch einmal Tabelle 1. 

Fur die Arbeit mit dem Disketten-Monitor gilt: generell ist 
nur die Angabe zweistelliger Hex-Werte bis $FF zulassig. Alle 
hoheren Werte (dezimal 255 oder auch binar %1 11 111 11) 
fuhren zu Fehlfunktionen. 

Vorsicht ist prinzipiell immer beim <S> -Befehl geboten. 
Ein einmal uberschriebener Block kann nicht mehr zuruck- 
geholt werden! (T. Pohl/ks) 




10 REM 

20 REM C16/C116 DISKMONITOR V3.5 

30 REM 

40 REM LOADER 

50 REM 

60 : 

65 POKE 55,14389 AND 255 : POKE. 56, 143B9 / 256 : 

CLR 
70 : 

75 Z=1000: PS=0s AD= 14389 
80 : 
90 PRINT "<RVSON,CLR,DOWN>BITTE 96 SEK. MARTEN!* 

RVOFF>" 
95 : 

100 FDR 1=0 TQ 7 
105 s READ A* 
110 : H=ASC(LEFT*(A*,l))s IF H>58 THEN H=H-55: G 

OTD 120 
115 8 H=H-48 
120 s L=«ASC(RIGHT*(A*,1))5 IF L>58 THEN L=L-55s 

BDTO 130 
125 : L=L-4B 
130 : P=L+(H*16) 
135 : POKE AD+I.P 
140 s PB==PS+P 
145 NEXT I 
150 READ B 
155 IF BOPS THEN PRINT "FEHLER IN ZEILE"; Z s EN 

D 
160 Z=Z+ls IF Z>1212 THEN SYS 14389 
165 AD=AD+8 
170 PS=0 
175 GOTO 100 
180 : 

1000 DATA 20,7E,3B,A9,0D,20,D2,FF, 896 

1001 DATA A9, 5D, 20, D2,FF,A9, 00,85, 1061 

1002 DATA 6A,20,58,39,C9,5D,F0,F9, 1066 

1003 DATA C9,20,F0,F5,A2,0C,DD,22, 1147 

1004 DATA 3B,D0,11,86,69,BD,38,3B, 827 

1005 DATA 8D,68,38,BD,2D,3B,BD,67, 838 
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1043 


DATA 


FF,E8,E0, 1B,D0,F5,A9,18, 


1384 


1129 


DATA 


0D,5D,5E,20,3D,20,56,45, 


480 


1044 


DATA 


85,CA,20,CF,FF,C9,4A,F0 


1344 


1130 


DATA 


52, 5A, 57, 45, 49, 47, 54, 20 


588 


1045 


DATA 


03 , 4C , 38 , 38 , A9 , 0D , 20 , D2 , 


615 


1131 


DATA 


49,4E,20,43,42,4D,20,4D 


502 


1046 


DATA 


FF,A9,08,85,AE,20,B1,FF 


1203 


1132 


DATA 


4F , 4E , 49 , 54 , 4F , 52 , 0D , 5D 


581 


104? 


DATA 


A9 , 6F , 85 , AD , 20, 93 , FF , A2 , 


1182 


1133 


DATA 


3A, 20, 3D, 20, 42, 59, 54, 45 


491 


1048 


DATA 


00,BD,D6,3E,20,A8,FF,E8 


1152 


1134 


DATA 


53, 20, 41, 45, 4E, 44, 45, 52 


546 


1049 


DATA 


BD,D6,3E,C9,0D,D0,F5,20 


1164 


1135 


DATA 


4E , 0D , 5D , 4F , 20 , 3D ,20,46 


458 


1050 


DATA 


AE,FF,4C,55,3B,0D,82,11 


809 


1136 


DATA 


4C,4F,50,50,59,2D,42,45 


584 


1051 


DATA 


53, 49, 4E, 44, 20, 53, 49, 45 


559 


1137 


DATA 


46 , 45 , 48 , 4C , 20 , 53 , 45 , 4E 


549 


1052 


DATA 


20,53,49,43,48,45,52,20 


510 


1138 


DATA 


44, 45, 4E,0D, 50,46,20, 3D 


484 


1053 


DATA 


3F,20,2B,4A,2F,4E,29,83 


506 


1139 


DATA 


2 , 46 , 45 , 48 , 4C , 45 , 52 , 20 


502 


1054 


DATA 


20,F5,3C,B0,03,4C,6C,38 


756 


1140 


DATA 


41 ,4E,5A,45,49,47,45,4E 


593 


1055 


DATA 


8D,91,3A,A5,DA,C9,0D,F0 


1181 


1141 


DATA 


0D,5D,24,20,3D,20,44,49 


408 


1056 


DATA 


05,20,F5,3C,B0,03,4C,6C 


705 


1142 


DATA 


52 , 45 , 43 , 54 , 4F , 52 , 59 , 20 


584 


1057 


DATA 


3B,8D,94,3A,20,B3,3A,A5 


83? 


1143 


DATA 


41,4E,5A,45,49,4?,45,4E 


593 


1058 


DATA 


69,C9,01,F0,25,A9,31,20 


834 


1144 


DATA 


0D,5D,5A,20,3D,20,5A,41 


476 


1059 


DATA 


57,3A,A2,0D,20,C6,FF,A2 


967 


1145 


DATA 


48 , 4C , 45 , 4E , 53 , 59 , 53 , 54 


634 


1060 


DATA 


00,20,CF,FF,9D,FE,3E,E8 


1199 


1146 


DATA 


45 , 4D , 45 , 0D , 5D , 4D , 2 , 3D 


491 


1061 


DATA 


D0,F7,20,CC,FF,A9,0D,20 


1160 


1147 


DATA 


20, 4D, 45, 4E, 55, 45, 20, 41 


507 


1062 


DATA 


C3,FF,A9,0F,20,C3,FF,4C 


1192 


1148 


DATA 


4E , 5A , 45 , 49 , 47 , 45 , 4E , 0D 


541 


1063 


DATA 


38,38,20,96,3A,A2,0D,20 


559 


1149 


DATA 


5D,45,20,3D,20,j5A,55,52 


544 


1064 


DATA 


C9 , FF , A2 , 00, BD , FE ,3E , 20 


1155 


1150 


DATA 


55 , 45 , 43 , 4B , 20 J 49 , 4E , 53 


562 


1065 


DATA 


D2,FF,E8,D0,F7,20,CC,FF 


1643 


1151 


DATA 


20, 42,41, 53, 49 ,43, 0D, 00 


399 


1066 


DATA 


A9,32,20,5?,3A,A9,0D,20 


610 


1152 


DATA 


A9 , 00, 85 , 6B , 20, CF , FF , C9 


1104 


1067 


DATA 


C3,FF,A9,0F,20,C3,FF,4C 


1192 


1153 


DATA 


20,F0,F5,C9,0D,D0,02,1B 


965 


1068 


DATA 


38,38,8D,8A,3A,A2,0F,AD 


799 


1154 


DATA 


60,C9,2£',F0,39,C9,25,F0 


1108 


1069 


DATA 


91,3A,20,E2,3A,8E,91,3A 


864 


1155 


DATA 


53,20,B6,3D,E0,01,F0,26 


861 


1070 


DATA 


8D,92,3A,AD,94,3A,20,E2 


982 


1156 


DATA 


E0, 02, F0, 14, AD, 85, 3D, 20 


885 


1071 


DATA 


3A,8E,94,3A,8D,95,3A,A2 


916 


1157 


DATA 


E6, 3D, AD, 86, 3D, 20, F4, 3D 


996 


1072 


DATA 


0F,20,C9,FF,A2,00,BD,89 


991 


1158 


DATA 


AD, 87, 3D, 20, 02, 3E, 38, £0 


617 


1073 


DATA 


3A,20,D2,FF,E8,E0,0D,D0 


1232 


1159 


DATA 


AD, 85, 3D, 20, F4, 3D, AD, 86 


1011 


1074 


DATA 


F5 , 4C , CC , FF , 55 , 3 1 , 3A , 3 1 


, 1021 


1160 


DATA 


3D ,20, 02, 3E, 38, 60, AD, 85 


615 


1075 


DATA 


33,20,30,20,00,00,20,00 


195 


1161 


DATA 


3D , 20, 02 , 3E , 38 , 60, 20 , B3 


520 


1076 


DATA 


00,A2,0F,20,C9,FF,A2,00 


, 827 


1162 


DATA 


3D, AD, 85, 3D, 20, DA, 3D, 0A 


749 


1077 


DATA 


BD,AB,3A,20,D2,FF,E8,E0 


1371 


1163 


DATA 


0A,0A,0A,8D,82,3D,AD,86 


669 


107B 


DATA 


08,D0,F5,4C,£.C,FF,42,2D 


, 1107 


1164 


DATA 


3D , 20 , DA , 3D , 0D , 82 , 3D , 8D 


, 717 


1079 


DATA 


50,20,31 ,33,20,30,A9,0F 


476 


1165 


DATA 


82 , 3D , 38 , 60, 20 , B3 , 3D , 8E 


757 


1080 


DATA 


AB,A2,08,20,BA,FF,A9,00 


, 980 


1166 


DATA 


83, 3D, A2, 00, BD, 85, 3D, 20 


769 


1081 


DATA 


20,BD,FF,20,C0,FF,A9,0D 


1137 


1167 


DATA 


DA , 3D , 29 , 01 , 0D , 82 , 3D , 8D 


666 


1082 


DATA 


A8,A2,08,20,BA,FF,A9,01 


, 981 


1168 


DATA 


82 , 3D , 0E , 82 , 3D , E8 , EC , 83 


995 


1083 


DATA 


A2,D7,A0,3A,20,BD,FF,4C 


114? 


1169 


DATA 


3D,D0,E9,38,60,00,0C,00 


654 


1084 


DATA 


C0,FF,23,A9,0D,20,C3,FF 


, 1146 


1170 


DATA 


00, 00,00, 00,00, 00, 00,00 





1085 


DATA 


A9,0F,4C,C3,FF,A2,30,38 


976 


1171 


DATA 


00,A2,64,2C,A2,0A,8E,A7 


787 


1086 


DATA 


E9,0A,90,03,EB,B0,F9,69 


, 1152 


1172 


DATA 


3D, 8D,8D, 3D, A9, 00,80,84 


846 


1087 


DATA 


3A,60,98,38,E9,08,A8,A9 


940 


1173 


DATA 


3D,A2,08,4E,8D,3D,90,03 


658 


1088 


DATA 


20,20,D2,FF T A9,12,20,D2 


, 958 


1174 


DATA 


1 8 , 69 , 00 , 6A , 6E , 84 , 3D , CA 


740 


1089 


DATA 


FF,A2,08,B9,FE,3E,29,7F 


1094 


1175 


DATA 


00, Fl, AD, 84, 3D, 60, 20, CF 


1150 


1090 


DATA 


C9,20,B0,04,A9,2E,D0,03 


, 839 


1176 


DATA 


FF,A2,00,9D,85,3D,E8,E0 


1224 


1091 


DATA 


B9,FE,3E,20,D2,FF,C8,CA 


1400 


1177 


DATA 


08,F0,12,20,CF,FF,C9,20 


993 


1092 


DATA 


D0,E9,A9,92,4C,D2,FF,20 


, 1329 


1178 


DATA 


D0,07,C9,47,B0,07,4C,D2 


956 


1093 


DATA 


BC,C8,4C,38,38,4C,53,41 


800 


1179 


DATA 


3D , C9 , 0D , D0 , E6 , S5 , DA , A9 


1233 


1094 


DATA 


5E,3A,4F,46,24,5A,4D,45 


, 573 


1180 


DATA 


00,8D,82,3D,60,C9,41 ,90 


838 


1095 


DATA 


E5,E5,9E,43,ED,62,55,1C 


1131 


1181 


DATA 


04, 38, E9, 37, 60, 38, E9, 30 


781 


1096 


DATA 


0D, 35, 0A, 39, 39, 38,36,38 


, 361 


1182 


DATA 


60,20,DA,3D,20,8E,3D, 18 


666 


1097 


DATA 


39,3B,3B,3E,38,80,A9,93 


737 


1183 


DATA 


6D , 82 , 3D , 8D , 82 , 3D , 60 , 20 


760 


1098 


DATA 


20, D2 , FF , 4C , 52 , FF , A6 , 9 1 


1221 


1184 


DATA 


DA, 3D, 20, 91, 3D, 18,60,82 


780 


1099 


DATA 


E0,7F,D0, 03,40,38,38,60 


846 


1185 


DATA 


3D , 8D , 82 , 3D , 60 , 20 , DA , 3D 


800 


1100 


DATA 


A9, 00, 85, 90, A9, 00,2*0,02 


870 


1186 


DATA 


18, 6D, 82, 3D, 8D, 82, 3D, 60 


752 


1101 


DATA 


FF,A9,08,85,AE,20,B4,FF 


1206 


1187 


DATA 


20,F5,3C,B0,03,4C,6C,38 


756 


1102 


DATA 


A9,6F,85,AD,20,96,FF,20 


1055 


1188 


DATA 


8D , C5 , 3E , A2 , 00 , BD , AD , 3E 


986 


1103 


DATA 


AS, FF, 24, 90, 70, 05, 20, D2 


959 


1189 


DATA 


20,D2,FF,E8,E0,09,D0,F5 


1415 


1104 


DATA 


FF,D0,F4,20,AB,FF,4C,38 


1297 


1190 


DATA 


AD,C5,3E,29,F0,4A,4A,4A 


935 


1105 


DATA 


38,A0,00,A9,A8,A2,3B,85 


907 


1191 


DATA 


4A,AA,BD,C6,3E,20,D2,FF 


1190 


1106 


DATA 


D8 , 86 , D9 , 78 , 8C , 15 , FF , 8C 


1243 


1192 


DATA 


AD , C5 , 3E , 29 , 0F , AA , BD , C6 


1045 


1107 


DATA 


19 , FF , 58 , B 1 , D8 , 20, D2 , FF 


1258 


1193 


DATA 


3E,20,D2,FF,A2,00,BD,B6, 


1092 


1108 


DATA 


E6,D8,D0,02,E6,D9,A5,D8 


1484 


1194 


DATA 


3E,20,D2,FF,E8,E0,07,D0 


1230 


1109 


DATA 


C9,F4,D0,EF,A5,D9,C9,3C 


1535 


1195 


DATA 


F5,A9,30,85,61,85,62,85, 


1056 


1110 


DATA 


D0,E9,60,99,93,11,20,20 


918 


1196 


DATA 


63 , A2 , 00, AC , C5 , 3E , C0, 00 


884 


1111 


DATA 


43,31 ,36, 2F, 43, 31 ,31 ,36 


436 


1197 


DATA 


F0,06,20,99,3E,88,D0,FA, 


1087 


1112 


DATA 


20 , 44 , 49 , 53 , 4B , 2D , 4D , 4F 


532 


1198 


DATA 


A2,02,B5,61,20,D2,FF,CA 


1141 


1113 


DATA 


4E,49,54,4F,52,20,56,33 


565 


1199 


DATA 


10,F8,A2,00,BD,BD,3E,20, 


898 


1114 


DATA 


2E,35,0D,0D,20,20,20,20 


253 


1200 


DATA 


D2,FF,E8,E0,08,D0,F5,A2 


1544 


1115 


DATA 


20, 20, 28, 57, 29, 20, 34, 2F 


363 


1201 


DATA 


08,AD,C5,3E,0A,48,90,03 


669 


1116 


DATA 


38 , 36 , 20 , 42 , 59 , 20, 54 , 2E 


459 


1202 


DATA 


A9,31 ,2C,A9,30,20,D2,FF 


976 


1117 


DATA 


50,4F,48,4C,0D,0D,0D,2D, 


391 


1203 


DATA 


6S,CA,D0,F0,A9,0D,20,D2, 


1178 


1118 


DATA 


2D, 2D, 2D, 2D, 2D, 2D, 2D, 2D 


360 


1204 


DATA 


FF , 4C , 38 , 38 , F6 , 6 1 , B5 , 61 


1064 


1119 


DATA 


2D , 2D , 2D , 4D , 45 , 4E , 55 , 45 


513 


1205 


DATA 


C9,3A,F0,01,60,A9,30,95 


962 
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DATA 


2D , 2D , 2D , 2D , 2D , 2D , 2D , 2D 


360 
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DATA 


61,E8,20,99,3E,A2,00,60 


834 
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DATA 


2D,2D,2D,2D,2D,0D,0D,5D 


344 
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DATA 


0D,1 1,48, 45, 58, 20, 3D, 20, 


384 
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DATA 


4C,20,3D,20,42,4C,4F,43 


489 


1208 


DATA 


24 , 0D , 44 , 45 , 5A , 2 , 3D , 2 


401 


1123 


DATA 


4B,20,4C,45,53,45,4E,0D, 


495 


1209 


DATA 


0D, 42, 49, 4E, 20, 3D, 20, 25 


392 


1124 


DATA 


5D , 53 , 20, 3D , 20, 42 , 4C , 4F 


522 


1210 


DATA 


00,30,31 ,32,33,34,35,36 


357 


1125 


DATA 


43 , 4B , 20, 53 , 43 , 48 , 52 , 45 , 


54? 


1211 


DATA 


37,38,39,41,42,43,44,45 


503 


1126 


DATA 


49, 42, 45, 4E,0D, 50,41,20 


489 


1212 


DATA 


4&,00,00,FF,FF,00,00,FF 


835 


1127 


DATA 


3D , 20 , 42 , 4C , 4F , 43 , 4B , 20 


488 


Listinq 1. Basic-Lader zum beauemeren 


Eingeben 


1128 


DATA 


4 1 , 4E , 5A , 45 , 49 , 47 , 45 , 4E 


593 


des » 


Disk Mon 16« 





134 



SONDERHEFT 8/86 



C16, C116, Pius/4 



TIPS&TRICKS 



Super Copy fiir C 16 und Plus/4 



Nun gibt es auch fur alle C16- und Plus/4-Besitzer 
ein File Copy. Mit diesem komfortablen Programm 
ist es ein Kinderspiel, sich von wichtigen Daten 
eine Sicherheitskopie zu machen. 

Das Programm »Super Copy« gibtes in einer neuen Ver- 
sion jetzt auch fiir den C16 (allerdings nur fur die 
64-KByte-Version) und den Plus/4, wobei sowohl das 
Floppy-Laufwerk 1541 alsauch die neue 1551 angeschlos- 
sen werden konnen. Die 1551 hatdabei naturltch den Vorteii 
der hoheren Verarbeitungsgeschwindigkeit. 

Super Copy finden Sie in Listing 1 als Ausdruck mit dem 
eingebauten Monitor. Da uns fur den C 1 6 und den Plus/4 iei- 
der noch kein MSE zur Verfugung stent, mussen wir an Ihre 
Vorsicht beim Abtippen des Programms appellieren. 

Haben Sie noch nicht mit dem Monitor gearbeitet, dann 
mochten wir Sie an dieser Stelle auf unseren Kurs uber den 
eingebauten Maschinensprache-Monitor des C16 und des 
Plus/4 verweisen. Dieser Artikel befindet sich auch in dieser 
Ausgabe und erlautert Ihnen die Bedienung des sehr hlifrei- 
chen Werkzeugs. Sie werden erkennen, daB Sie auch als 
Basic-Programmierer die vbrteiie des Monitors nutzen kon- 
nen und daB dessen Bedienung einfacher ist, als man denkt. 

Haben Sie die Eingabe beendet, dann speichern Sie das 
Programm bitte vor dem Start. Das geschieht im 
Maschinensprache-Monitor auf die folgende Weise: 
S " SUPER COPY " , 08, 1001, 1B00 

Nach Eingabe der Zeile drucken Sie < RETURN > , und 
Super Copy wird auf die Diskette gespeichert. Wollen Sie ein 
Speichern auf der Datasette, so setzen Sie hinter dem Filena- 
men start »,08,« den Wert »,01,« ein. 

Drucken Sie jetzt am besten den Reset-Knopf an Ihrem 
Computer und laden Sie Super Copy von neuem. 

Super Copy stent am Start des Basic -Speic hers und ent- v 
halt eine einzige Basic-Zeiie. Der Start erfolgt mit < RUN > , 
worauf Ste sich im Hauptmenu wiederfinden. 



Jetzt haben Sie sechs Moglichkeiten zur Auswahl. Sie k6n- 
nen sich unter < 1 > das Directory der eingeiegten Diskette 
anzeigen iassen. Punkt <3> dient dem Formatieren einer 
Diskette, worauf Sie den Diskettennamen und die zweistel- 
lige ID angeben mussen. Bei der Wahl von < 4 > konnen Sie 
mehrere Files von der Diskette loschen. Sie werden dabei 
aufgefordert, die entsprechende Diskette einzulegen und 
sich die einzelnen Files durch Angabe von < J> fOr Ja und 
< N > fur Nein auszusuchen. Bet der Angabe von Ja wird das 
entsprechende File dann anschlieBend geioscht. 

Bei der Auswahl von < 5 > im Hauptmenu konnen Sie eine 
Diskette vaiidieren. Genaueres zu diesem Befehl steht im 
Handbuch zu Ihrem Diskettenlaufwerk. I 

Entscheidend ist der Menupunkt <2>. Hier werden Sie 
wie schon bei Punkt <4 > aufgefordert, eine Diskette einzu- 
legen und anschlieBend die Files durch Angabe von »J« und 
»N«furdasKopierenherauszusuchen. Haben Sie diesen Vor- 
gang fur das gesamte Directory durchgefuhrt, so konnen Sie 
sich noch einmal das Directory anzeigen Iassen, eine Dis- 
kette formatieren oder vaiidieren. 

Mit < SPACE > konnen Sie den Kopiervorgang sofort 
beginnen, wobei die Files von der Quelldiskette nun in den 
Speicher des Computers getesen werden. 

AnschlieBend werden Sie gefragt, ob der Kopiervorgang 
fortlaufend oder einzein erfolgen soil. Beim fortlaufenden 
Betrieb werden aile Fiiesauf eineZieldiskette kopiert. Anson- 
sten konnen Sie auch verschiedene Zield'tsketten verwen- 
den. 

Jetzt erfolgt nach einer Abfrage die Aufforderung, die Ziel- 
diskette einzulegen. 

Wollen Sie mehr Files kopieren als auf einmal in den Com- 
puter passen, so konnen bis zu drei Diskettenwechsel not- 
wendig werden . Der Computer fordert Sie in diesem Fall auto- 
matisch dazu auf. Aile Wechsel sind dabei jeweils durch einen 
Tastendruck zu bestatigen. 

(H.J. Knacke/ks) 
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>16S9 


20 


>1661 


4C 


>1669 


0A 


>1671 


FF 


it 679 


4A 


> 1 68 1 


OF 


5-1689 


OF 


>169i 


00 


M699 


A3 


>16A1 


28 


>16A9 


64 


>16B1 


20 


>16B9 
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OA 
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BD 
C3 
OA 
29 
4A 
18 
A2 
20 
16 
60 
16 
FO 
16 
2B 
90 
DF 
16 
32 
FO 
4C 
FO 
20 
10 
b T 
F6 
41 
A2 
41 
AD 
03 
03 
03 
AD 
30 
A2 
OA 
03 
20 
60 
20 
53 
50 
2 A 
20 
20 
20 
20 
OD 
52 
20 
49 
33 
54 
20 
54 
20 
52 
20 
OD 
54 
45 
20 
49 
41 
20 
49 
4C 
45 
9D 
92 
12 
45 
59 
20 



FF 
FF 
OA 
OF 

4 A 
69 
08 
BD 
08 
A2 
C9 
16 
20 
08 
EF 
AO 
C9 
DO 
FB 
D2 
01 

Ev- 
es 

FO 

60 
03 
08 
03 
40 
D8 
09 
29 
41 
BD 
00 
A9 
90 
D2 
93 
20 
55 
59 
2A 
20 
43 
36 
2A 
20 
45 
20 
45 
2E 
49 
34 
43 
56 
45 
45 
20 
45 
4E 
92 
4C 
4E 
4B 
53 
20 
49 
9D 
20 
20 
52 
50 
12 
4E 
00 



20 CO 
20 A5 
OA 85 
05 57 
20 SO 
30 4C 
A8 20 
FF 20 
A9 OF 



OF 
01 



20 
08 



20 FO 
A5 FF 
90 F5 
20 CC 

19 20 
3i DO 
F3 38 
60 A9 
FF 20 
60. A9 
FF A2 
57 84 
06 20 
A2 00 
AE 00 
48 68 
6D 41 
03 6D 
CA DO 

30 8D 
OF 09 
03 4A 
41 03 
BD 40 

20 9D 
EF A2 
FF E8 
OD OD 
20 2A 
50 45 
20 31 
2A 2A 
20 20 

31 36 
34 4B 
2A 2A 
20 31 
43 54 

32 2E 
52 45 
20 46 
45 52 
2E 20 
48 OD 
41 4C 
4E OD 
4E 44 
20 12 
20 57 
20 53 
20 00 

45 20 
47 00 
4F 50 
54 45 
92 00 
4E 9D 
00 1 2 
20 20 

46 41 
20 46 
20 92 
5E 5E 
45 49 
OD OD 
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FF A9 OF 
FF 29 OF 

57 20 A5 
60 48 4A 
16 68 29 
D2 FF A9 
BA FF A9 
CO FF 20 
20 C3 FF 
C6 FF 20 
90 OB 48 
16 68 20 
C9 OD FO 
20 D2 FF 
FF 28 60 
OB 17 20 

02 18 60 
60 20 E4 

2C A9 
16 C9 
20 C3 
9A 4C 

58 AO 00 
D2 FF CB 
8E 40 03 
04 BD AO 
OA 48 F8 

03 8D 41 
40 03 8D 
E6 68. AD 
40 03 AD 
30 BD*42 
4A 4A 4A 
A9 ID 85 
03 C9 30 

40 03 E8 
00 BD 40 
EO 03 90 
20 20 20 
2A 2A 2A 

52 20 43 
34 31 
20 20 

2A 2A 2A 
2F 31 31 
20 52 41 
2A OD OD 
"2E 20 44 
4F 52 59 
20 4B 4F 
4E OD 20 
4F 52 4D 
45 4E OD 

53 43 52 
20 20 35 
49 44 49 

20 20 36 

45 OD OD 

20 42 49 

41 45 48 
49 45 20 
OD OD 20 
5A 55 20 
OD OD 20 
49 45 52 
20 56 4F 
4A 41 2F 
9D 9D 9D 
20 4A 41 
00 OD 20 
4C 53 43 
49 4C 45 
20 20 20 
5E 92 OD 
4E 92 20 
OD OD 20 
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>1SB9 4B 

>iaci 52 

>1BC9 20 
>18D1 54 
>18D9 OD 
>1SE1 4E 
>18E9 00 
>1BF1 44 
>18F9 59' 
>1901 4C 
>i909 OD 
>1911 4D 
>1919 OD 
>192i 49 
>1929 2E 
>1931 12 
>1939 44 
>194i 20 
>1949 4E 
>1951 52 
>1959 00 
>1961 45 
>1969 54 
>1971 45 
>1979 OD 
>19S1 4E 
>1989 12 
>1991 4? 
>1999 45 
>19A1 47 
>19A9 OD 
>19B1 41 
>19B9 20 
>19C1 45 
>19C9 OD 
>19D1 49 
>19D9 43 
>19E1 20 
>19E9 45 
>19Fi 45 
>19F9 2E 
>1A01 56 
MA09 3F 
>1A11 45 
>1A19 46 
>1A21 20 
>1A29 54 
>1A31 20 
>1A39 4E 
>1A41 12 
>1A49 20 
>1A51 43 
>1A59 54 
>1A61 OD 
>1A69 48 
>1A71 4C 
>1A79 55 
>1A81 45 
>1A89 4C 
>1A91 55 
>i'A99 48 
>1AA1 20 
>1AA9 43 
>iABl 20 
>1AB9 49 
>1AC1 20 
>1AC9 41 
>1AD1 49 
>iAD9 2E 
>1AE1 4C 
>1AE9 45 
>1AFI 2C 
>1AF9 57 



4F 50 49 
47 41 4E 
20 31 2E 
4C 41 55 
20 20 32 
5A 45 4C 
OD OD OD 
49 52 45 
OD 20 32 
49 44 49 
20 33 2E 
41 54 49 
00 OD OD 

44 49 45 
2E 2E OD 
20 51 55 
49 53 4B 

45 49 4E 
20 92 OD 
45 41 44 
OD OD 20 
4C 2D 44 

4 



54 
47 
OD 
47 



20 4B 





45 4E 
20 57 
20 00 
20 



2 <J 
20 

20 
20 
4D 
49 44 



45 20 
52 20 
21 20 
20 44 

45 4E 



>U 



42 45 4E 
20 4E 4F 

4E 



43 



31 



10 56 
20 3F 

E 



4E 



3F 

45 



20 4E 
45 52 53 
OD 00 OD 
43 48 53 
49 4C 45 
20 12 20 
43 48 2D 
45 49 4E 
20 92 OD 
20 53 49 
3F 20 2D 
45 2C 20 
20 5C 20 
20 53 43 
49 4E 47 
4F 45 43 
20 4B 4F 
4E 20 92 
4F 45 43 
20 53 43 
45 4E 20 
2A 2A 2A 

45 20 2A 

46 55 45 
54 45 52 
42 49 54 
45 48 4C 
45 20 92 
20 4E 4F 
20 4B 4F 
4E OD 00 
58 2C 52 
00 00 00 



45 52 
47 3A 
20 46 

46 45 
2E 20 
4E OD 
20 31 
43 54 
2E 20 
45 52 
20 46 
45 52 
20 56 
52 45 
00 OD 
45 4C 
45 54 
4C 45 
00 OD 
49 4E 
12 20 
49 53 
45 49. 
20 92' 
52 49 
OD OD 
4F 20 
20 20 
54 20 
92 OD 
49 53 
20 55 
45 49 
OD OD 
43 48 
45 52 
OD 00 
20 55 

49 
20 
45 
43 
20 
45 



—<^ 
OD 
•_iD 
55 
OD 
54 



20 3A 
53 43 

44 49 
4C 45 
00 OD 
43 48 
20 53 

53 4F 
92 OD 
52 41 
20 00 
4B 45 
50 49 
OD 00 
4B 45 
52 41 
92 OD 
20 53 
2A 2A 
52 20 
OD OD 

54 45 

45 4E 
OD 00 
43 48 
50 49 
24 00 
00 2C 
00 00 



56 4F 
OD OD 
4F 52 
4E 44 
45 49 
OD OD 
2E 20 
4F 52 
56 41 
45 4E 
4F 52 

45 4E 
41 4C 
4E 20 
OD 20 
4C 2D 
54 45 
47 45 
OD 20j 

47 20! 
5A 49 
4B 45 
4E.4C 
OD 00 
54 49 
20 20 
50 20 

46 20 
49 20 
00 OD 
4B 4E 
4E 44 
4E 47 
00 OD 
20 45 
53 55 
OD OD 
45 42 
4E 47 
20 32 

52 20 

48 20 
4E 41 

53 20 
00 OD 

52 41 

53 4B 

47 45 



4E 53 
00 OD 
54 43 
20 42 
20 5A 
45 52 
20 42 
20 5A 
54 43 
00 OD 
50 41 
OD 20 

57 45 
20 i2 
20 57 
20 53 
20 34 
4D 41 
45 52 
49 00 

58 2C 
00 00 
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Listing 1. Geben Sie das Programm »Super Copy« 
bitte mit dem TEDMON ein 
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Formatieren 
in 30 Sekunden 



Schnelles Formatieren ist auch vom VC 20 aus 
mdglich. Die neue Routine ist fast dreimal schnel- 
ler als die des Betriebssystems. Dabei berichtigt 
das Programm auch einen kleinen Schonheits- 
fehler des DOS. 

Die Fbrmatierungs-Routine der Floppy 1541 ist, vor 
ailem bei haufiger Anwendung, nervtotend langsam. 
Doch mit wenig'Aufwand laBt sich eine etwa dreimal 
schnellere Fbrmatierungs-Routine ins Betriebssystem des 
VC 20 einbauen. 

Der Trick an der Sache ist, daB anstelie der Berechnung 
des Sektoren-Abstandes Erfahrungswerte genommen wer- 
den. So spart man fast zwei Drittel der Zeit gegenuber dem 
normalen Formatierungs-Vorgang. 

Dafur verzichtet die Routine nicht auf das notwendige Ver- 
ify, da das Formatieren die einzige Moglichkeit bietet, defekte 
Disketten noch vor dem ersten Datejiverlustzu erkennen und 
gegebenenfalls auszusortieren. Dazu benbtigt das Verifizie- 
ren nur wenige Sekunden, die Datensicherheit geht vor. 

So quasi nebenbei wird noch ein »Schonheitsfehler« des 
DOS korrigiert. Jeder Block wird mit 256 Nulien gefullt, 



anstelie eines $4B, gefolgt von 255 $01-Byte Geben Sie 
das »Disk-Format-System« (siehe Listing) bitte ein und spei- 
chern Sie es. Es wird mit RUN aktiviert und erzeugt dann auf 
der Diskette ein File namens »DISK-FORM AT VC 20«. Dies ist 
dann das lauffahige Programm, das Sie laden und ebenfatls 
mit RUN starten. Die nun ins Betriebssystem eingebundene 
Routine belegt den Bereich ab $B000. Zum Auslosen der 
Routine geben Sie einfach SAVE ohnfe Ftlenamen ein. Darauf- 
hin fragt das Programm nach einem maximal 16stelligen Dis- 
kettennamen und einer zweistelligen ID. SchlieBiich konnen 
Sie noch den ersten und letzten zu formatierenden Track 
angeben. Die Eingabe muff hexadezimal erfolgen und darf 
von $01 bis $29 gehen. 

Vorsicht! Wird eine groBere Zahl als $29 eingegeben, kann 
der Schreib-/Lesekopf am oberen Ende anschlagen. Auch 
beim Formatieren von einzelnen Tracks wird das Directory 
geloscht. Beachten Sie, daB eine geanderte ID einen »DISK ID 
MISMATCH ERROR« hervorruft Das Programm funktioniert 
nur mit einer 8-KByte-Erweiterung im $A0Q0-Bereich. Am 
besten, Sie verwenden eine schaltbare Erweiterung (mit DIP- 
Schaltern auf der Platine). 

(K.-H. Tempiin/og) 
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32 DATA0, 133,208, 162,98,32, 135, 178,32,20 
7 , 255 , 133 , 252 , 32 , 207 , 255 , 133 , 253 

33 DATA169, 0,133, 208, 165, 250, 166, 251, 32, 
4,180,141,220,177,165,252,166,253 

34 DATA32,4, 180, 141 ,221 , 177,23B,221 ,177, 
234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 

35 DAT A234 , 234 , 234 , 234 , 234 , 234 , 76 , 1 47 , 1 7 
8,189,77,179,240,6,32,210,255,232 

36 DATA2f38,245,96, 169, 13,32,210,255, 169, 
13,32,210,255,169,0,162,176,133 

37 DATA167, 134, 168, 169,0, 162,5, 133, 169, 1 
34,170,169,8,32,177,255,169,111 

3B DATA32, 147,255, 169,77,32, 168,255, 169, 
45,32, 168,255, 169,87,32,168,255 

39 DATA160, 0,165, 169, 32, 168, 255, 165, 170, 
32,168,255,169,30,32,168,255,177 

40 DATA167,32, 163,255,200, 192,30, 144,246 
,32,174,255,24,165,167,105,30,133 

41 DATA 167, 144, 3', 230, 168,24, 165, 169, 166, 
170,105,30,133,169,144,2,230,170 

42 DATA224, 7, 144, 173,201 ,0, 144 , 169, 169 ,8 
,32,177,255,169,111,32,147,255,169 

43 DATA77, 32, 168, 255, 169, 45, 32, 168, 255,1 
69 , 69 , 32 , 168 , 255 , 169 , 96 , 32 , 1 68 , 255 

44 DATA169,6,32, 168,255,32, 174,255,169,0 
,133,144,169,8,32,180,255,169,111 

45 DATA32, 150, 255, 32, 165,255,32,210,255, 
36,144,80,246,32,171,255,76,220 

46 DATA 1 79 , , , , , , 1 47 ,'42 , 32 , 68 , 73 , 83 , 
75,45,70,79,82,77,65,84,45,83,89 

47 DATA83, 84, 69, 77, 32, 42, 13, 32, 32, 32, 40, 



67,41,32,49,57,56,53,32,66,89,32 

48 DATA75,79,83,83, 13, 13, 13,68,73,83,75, 
78,65,77,69,58,32,0,0,0,0,0,0,0 

49 DATA0, 0,0, 0,0, 0,0,0, 13, 13,68,73,83,75 
,45,73,68,58,32,0,13,13,70,82,79 

50 DATA77, 32, 84, 82, 65, 67, 75, 58, 36, 0,13,1 
3,84,79,32,84,82,65,67,75,58,36 

51 DATA0, 13, 13,65,78,79,84,72,69,82,32,7 
0, 79, 82, 77, 65, B4, 32, 40, 89, 47, 78 

52 DATA41, 32, 63, 32, 13, 13, 0,0, 0,0, 0,32, 41 
,180,162,111,32,135,178,32,228,255 

53 DATA240, 251, 201, 89, 208, 3, 76, 0,178, 96, 
0, 165, 183,240,3,76, 133,246,32,0 

54 DATA178, 169, 1,162, 0,160, 0,24, 96, 133, 2 
,134,3,165,2,201,65,144,3,24,105 

55 DATA9,41,15, 10, 10, 10, 10, 133,2, 165,3,2 
01,65,144,3,24,105,9,41,15,5,2,133 

56 DATA2,96, 169,242, 141 ,50,3, 169, 179, 141 
,51,3,96 

100 OPENS, 8, 8, "DISK-FORMAT VC20,P,W" 

110 PRINT#8,CHR$(1)CHR$(18); 

120 FORI=0TO1138:READAsP=P+A:PRIWT#8,CHR 

*(A) jsNEXT 

130 CLOSES 

140 IFP<>124284THENPRINT"DATAS NICHT OK" 

:STOP 

150 PR I NT "DAT AS OK" 



Listing. »Disk-Format-System«. Bitte beachten Sie die 
Eingabehim/veise auf Seite 130. 



Sdinell kopierl 
mit Hypra-Copy VC 20 



Hypra-Copy VC 20 ist ein schnelles und komfor- 
tables Filecopy-Programm fur den VC 20. Das 
Kopieren wird um das Vier- bis Funffache 
beschleunigt. 

Trotz der aufwendigen Lade- und Speicherroutinen ist es 
gelungen, das Programm insgesamt recht kurz zu hal- 
ten; Hypra-Copy belegt, gespeichert auf der Diskette, 
nur ganze 15 Bldcke. Somit ist der verfiigbare Arbeitsspei- 
cher sehr groB. Hat man das Programm (siehe Listing) abge- 
tippt und gespeichert, wird nach dem Start das eigentfiche 
Programm »Hypra-Copy VC 20« ais Fiie auf Diskette erzeugt. 
So kann es spater ganz normal mit »LOAD "HYPRA-COPY 
VC 20",8« geladen und mit »RUN« gestartet werden. Es 
erscheint dann das Hauptmenu: 
HYPRA-COPY 
:C: Copy Files 
S: Scratch Files 
D: Directory 
O: Order Disk 

Die Bedienung ergibt sieh damit eigentiich schon von 
seibst Druckt man die Taste <0>, erscheint auf dem Bild- 
schirm eine eckige Klammer mit einem blinkenden Cursor 
dan inter. 



Nun kann man den Befehl eingeben, der zur Floppy 
geschickt werden soil. Reagiert die Floppy mit einer Fehler- 
meldung, so wird diese auf dem Bildschirm ausgegeben. 

Bei Betatigung der Taste <D> erscheint das Directory 
Der Ausdruck kann durch die < CTRL > Taste angehalten 
werden. Durch Drucken der <S> -Taste gelangt man in den 
Scratch-Modus (loschen von Files). Um Verwechslungen mit 
dem Copy-Modus auszuschlieBen, wird erst einmal mit einer 
dicken, reversen Balkenuberschrift darauf aufmerksam 
gemacht, daB man sich tatsachlich im Scratch-Modus befin- 
det. Danach erscheint das Directory, jedoch erscheint hinter 
jedem Filenamen ein »(Y/N)«; relative Files sowie Files, deren 
Lange gleich ist, werden bei dieser Befragung ubergangen, 
denn diese Routine wird auch beim Kopieren gebraucht, und 
Files mit diesen Eigenschaften kann Hypra-Copy nicht 
kopieren. 

Files, die sich Hypra-Copy merken soil, mussen mit <Y> 
markiert werden. Ist man versehentlich im Scratch-Modus 
gelandet, so kann man diesen Modus mit der STOPTaste ver- 
lassen (ansonsten dient die STOPTaste dazu, Hypra-Copy zu 
beenden; man kann es dann aber wieder mit »RUN« starten). 

So werden nach und nach alle Files des Directories durch- 
gegangen. Will man nur einige wenige Files am Anfang eines 
ellenlangen Directories loschen (Oder kopieren), so braucht 
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man die restlichen Files nicht mehr mit < N > zu bearbeiten, 
esgenugteinDruckaufdie < t > -Taste, undmangelangtzum 
Ende des Directories. Hier wird dann gefragt, ob man nun 
auch sicher ist, daG diese Files geloscht werden solien. 
Beantworfet man diese Frage mit < N > , gelangt man zuruck 
in das Hauptmenu, andemfails werden die markierten Files 
geloscht. 

Damit man weiB, wie weit das Programm mit dem Loschen 
ist, wird immer der Name des Files ausgegeben, das gerade 
geloscht wird. Am Ende des Loschvorgangs gelangt man 
automatisch wieder in das Hauptmenu. 



Der Copy-Modus 



So, nun zum Copy-Modus, in den man mit der <C> -Taste 
kommt. Zuerst werden wieder, genau wie beim Loschen, die 
Namen der zu kopierenden Files eingelesen. 

Danach wird gefragt, ob man die Files einzeln oder gesam- 
melt kopieren will Unci ob beim Speichern ein »VERIFY« 
durchgefuhrt werden soil. Verzichtet man auf dieses Verify, 
so wird etwas schneiler kopiert. Urn den Bedienungskomfort 
zu erhohen, werden die Antworten auf diese Fragen, wie 
auch auf die »SURE?«-Frage (sure = Sind Sie sicher?) im 
Scratch-Modus und die »SAVE BUFFER AGAIN?«-Frage (Soil 
das gleiche noch einmal gespeichert werden?), nicht per 
GET ($FFE4), sondern per BASIN ($FFCF) eingelesen, 
wobei die erwartete Antwort schon vorgegeben ist; man 
braucht also nur noch RETURN drflcken; naturlich kann diese 
vorgegebene Antwort aber auch uberschrieben werden. 

Nun werden die Programme geladen. Ist die Summe der 
Blocke der einzelnen Files kleiner als der im VC 20 verfug- 
bare Speicher, konnen sogar alle auf einmal eingelesen wer- 
den; andemfails wird ein erneuter Ladeanlauf notig. 

Sind die Files geladen, wird man aufgefordert, die Zief-Disk 
einzulegen; auBerdem wird noch die Anzahl der zu spei- 
chernden Blocks angegeben, und ein Untermenu erscheint 



Es besteht jetzt noch die Moglichkeit, diverse Directories 
anzusehen oder Befehle zur Floppy zu schicken. 

Man kann also in aller Ruhe eine passende Diskette aussu- 
chen. 1st man gewillt fortzufahren, so druckt man einfach die 
Funktionstaste <F7>, dann beginnt namlich das Spei- 
chern. AnschlieBend wird man gefragt, ob man eben diese 
Files noch einmal auf eine andere Diskette schreiben will. 
Beantwortet man diese Frage mit <Y>, beginnt der kom- 
plette SAVE-Vorgang von neuem. Andemfails wird normal 
fortgefahren und, wie schon erwahnt, konnen erneute Lade- 
anlaufe erforderlich werden. 

Wurden alle Files kopiert, so wird in das Hauptmenu 
zuruckgekehrt. 

Nun zur Fehlerbehandlung: Mit »Fehlern« sind nicht Fehler 
gemeint, die in der Programmstruktur von Hypra-Copy lie- 
gen, sondern Fehier, die von der Floppy signalisiert werden; 
sei es, daB man einen unkorrekten Befehl an die Floppy 
schickt, man beim Kopieren die falsbhe Diskette einlegt oder 
Schreib- oder Lesefehler auftreten. 



Erste Hilfe bei fehlern 



In solchen oderahnltchen Fallen besteht immer die Moglich- 
keit, den Vorgang, bei dem der Fehler aufgetreten ist, zu wie- 
derholen beziehungsweise zu ubergehen. Treten Fehler 
beim Offnen eines Files auf, so kann man sogar nochmals 
Directories ansehen und Befehle an die Floppy schicken. 
War es nicht moglich, ein File korrekt zu laden und wurde es 
ubergangen, so wird dies bei der Angabe der zu speichern- 
den Blocke, wie auch beim Speichern selbst, berucksichtigt. 
Konnen Files aus irgendeinem Grund nicht korrekt gespei- 
chert werden, so kann man diese auch uberspringen. 

(Burkhard Graves/K. H. Templin/og) 



DATA 11,18,193, 7,158, 52. 54, 50,49, 0,0, 0,1 

6 9,8,141,15,144,120,169,91,141 <238> 

1 DATA 24,3,238,25,3,88,162,0,134,5,142,59 

,19, 169, 64, 133, 157 i 169, 213, 160 <088> 

2 DATA 18,32,30,203,32,225,19,76,28,18,165 

, 247 , 24 , 105 , 19 , 133', 247 , 144, 2 , 230 <129> 

3 DATA 248,201,234,96,169,176,133,247,133, 
249,16 9,3 2,133,248,133,250,96 <213> 

4 DATA 13, 18, 32, 33,32*83, 67, 82, 65, 84, 67, 72 
,32,70,73,76,69,83,32,33,32,17 '■ <131> 

5 DATA 13,0,13,17,67,79,80,89,32,83,69,80, 

6 5,82,65,84,6 9,76,89,32,63,3 2 <222> 

6 DATA 78,157,0,13,17,86,69,82,73,70,89,32 
,63,32,78,157,0,13,17,83,85,82 <135> 

7 DATA 69,32,63,32,89,157,0,13,17,58,84,58 
,32,84,82,89,32,65,71,65,73,78 <010> 

8 DATA 13,17,58,70,55,58,32,84,79,32,67,79 
,78,84,73,78,85,69,17,13,0,13 <175> 

9 DATA 17,83,65,86,69,32,68,85,70,70,69,82 
,32,65,71,65,73,78,32,63,32,78 <100> 

10 DATA 157,0,147,5,17,29,62,32,72,89,80,8 
2,65,45,67,79,80,89,32,60,13,29 <007> 

11 DATA 29,196,196,196,196,196,196,196,198 
,196, .196, 196, 196, 17, 17, 13, 58, 67 <053> 

12 DATA 58,32,67,79,80,89,32,70,73,76,69,8 
3,17,13,58,83,58,32,83,67,82,65 <234> 

13 DATA 84,67,72,32,70,73,76,69,83,13,17,5 
8,68,58,32,68,73,82,6 9,67,84,79 <082> 

14 DATA 82,89,17,13,58,79,58,32,79,82,68,8 
9,82,32,68,73,83,75,17,13,0,145 <208> 

15 DATA 58,70,55,58,32,84,79,32,67,79,78,8 
4,73,78,85,69,17,13,0,18,40,89 <250> 

16 DATA 47,78,41,146,0,20,20,20,20,20,157, 
60,45,0,13,17,76,73,83,84,32,70 <160> 



17 DATA 85,76,76,32,33,17,13,0,13,73,78,83 

,6 9,82,84,32,83,7 9,85,82,67,69 <170> 

18 DATA 32,68,73,83,75,13,0,13,73,78,83,69 
,82,84,32,84,65,82,71,69,84,32 <056> 

19 DATA 68,73,83,75,32,195,13,0,32,66,76,7 
9,67,75,83,32,84,7 9,32,83,65,86 <050> 

20 DATA 69,13,0,13,17,17,68,73,83,75,32,69 
,82,82,79,82,13,0,13,17,17,76,79 <159> 

21 DATA 65,68,32,69,82,82,79,82,32,33,0,32 
,66,18,160,0,152,145,247,200,208 <146> 

22 DATA 251,230,248,166,248,224,42,208,243 
,96,169,0,133,198,32,228,255,240 <105> 

23 DATA 251,166,5,240,3,76,201,20,201,67,2 
08,74,32,205,19,162,0,134,3,32 <121> 

24 DATA 66,18,32,52,21,162,0,189,176,32,20 
8,1,96,169,103,160,18,32,30,203 <154> 

25 DATA 169,0,133,198,133,65,32,207,255,20 
1,89,208,2,133,65,16 9,76,141,169 <121> 

26 DATA 31,169,126,160,18,32,30,203,169,0, 
133,198,32,207,255,201,89,208,5 <072> 

•27 DATA 169,44,141,169,31,76,2,23,201,83,2 ■ 

40,3,76,201,20,169,164,160,19,32 <055> 

28 DATA 45,21,169,79,160,18,32,30,203,169, 
0,133,3,32,205,19,32,66,18,32,52 <031> 

29 DATA 21,32,66,18,169,0,133,198,169,140, 
160,18,32,30,203,32,207,255,201 <200> 

30 DATA 89,240,1,96,169,13,32,210,255,32,2 
10,255,169,8,32,177,255,169,111 <000> 

31 DATA 32,147,255,160,0,177,247,240,53,16 
9,83,32,168,255,32,210,255,169 <113> 

32 DATA 58,32,168,255,32,210,255,200,177,2 
47,201,44,240,9,32,168,255,32,210 <224> 

33 DATA 255,76,159,20,169,13,32,168,255,32 
,210,255,169,8,32,174,25 5,32,201 <170> 
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34 DATA 22,32,52,18,208,187,169,8,76,174,2 
55,201,136,208,1,96,201,84,208 <110> 

35 DATA 1,96,201,68,208,14,162,25,134,3,32 

,52. 21 ,-166, 203 .224, 64, 240, 250, 96 <126> 

36 DATA 201,79,208,49,169,93,32,210,255,16 
9,8,32,177,255,169,111,32,147,255 <010> 

37 DATA 169,0,133,198,32,207,255,32,168,25 
5,201,13,208,246,32,210,255,169 <070> 

38 DATA 8,32,174,255,32,201,22,176,1,96,32 

, 105 , 22 , 144 , 208 , 96 , 201 , 3 , 208 , 3 <044> 

39 DATA 76,187,22,76,229,18,169,13,32,210, 
255,160,22,169,195,32,210,255,136 <097> 

40 DATA 208,250,96,32,71,22,169,96,133,185 
,169,1,16 2,208,160,25 5,32,141,22 <190> 

41 DATA 144,3,76,96,22,165,186,32,180,255, 

16 5,185,32,150,255,169,0,133,144 <028> 

42 DATA 160,3,32,79,22,133,2,32,79,22,136, 
208,245,132,5,166,2,32,205,221- <019> 

43 DATA 169,32,32,210,255,32,79,22,164,3,2 
08,66,201,34,208,62,133,5,32,210 <041> 

44 DATA 255,160,19,169,0,133,6,145,247,136 

,16,251,200,32,79,22,32,210,255 <096> 

45 DATA 201, 34, 240, 5*, 200, 145, 247, 208, 241,1 

6 9,44,200,145,247,32,79,22,201 <172> 

46 DATA 80,240,8,201,83,240,4,201,85,208,5 

,200,145,247,208,5,32,210,255,208 <205> 

47 DATA 231,170,240,5,32,210,255,208,175,1 
65,2,240,115,201,92,176,111,165 <014> 

48 DATA 5,240,107,169,29,133,211,169,80,16 
0,19,32,30,203,169,0,133,198,133 <008> 

49 DATA 251,32,228,255,240,251,201,3,208,8 
,32,71,22,104,104,76,28,18,201 <242> 

50 DATA 94,208,5,133,6,76,36,22,201,89,208 
,36,169,157,141,93,19,32,25,22 <046> 

51 DATA 160, 0,165, 2, 145, 247, 32*-,52, 18, 208, 4 

1,16 9,97,160,19,32,30,203,76,71 <203> 

52 DATA 22,169,88,160,19,76,30,203,201,78,. 
208,186,169,0,141,93,19,32,25,22 <187> 

53 DATA 160,0,152,145,247,165,6,240,3,76,7 
1,22,169,13,32,210,255,173,141 <131> 

54 DATA 2,208,251,160,2,76,89,21,169,8,32, 

195 . 255', 76. 231, 255. 32, 165*255, 166 <248> 

55 DATA 144,240,18,104,104,32,71,22,32,201 
,22,144,8,32,105,22,176,3,76,52 <226> 

56 DATA 21,96,169,152,160,18,32,30,203,160 
,0,132,198,32,228,255,170,169,0 <015> 

57 DATA 224,84,208,2,24,96,224,136,208,2,5 
6,96,224,3,208,234,76,187,22,32 <021> 

58 DATA 189,255,32,89,246,169,8,133,184,13 
3,186,169,8,32,177,255,169,111 <171> v 

59 DATA 32,147,255,169,85,32,168,255,169,7 
3,32,168,255,169,8,32,174,255,32 <223> 

60 DATA 192,255,176,3,76,201,22,96,32,71,2 
2,32,82,253,169,13,32,210,255,76 <237> 

61 DATA 129,227,169,8,32,180,255,169,111,3 
2,150,255,32,165,255,170,56,233 <004> 

62 DATA 48,133,140, 240, 10,138,72, 169,174,1 
60,19,32,30,203,104,166,140,240 <212> 

63 DATA 3,32,210,255,32,165,255,201,13,208 
,242,169,8,32,171,255,24,165,140 <'136> 

64 DATA 240,1,56,96,32,66,18,169,0,133,139 
,169,0,133,174,133,6,168,153,83 <153> 

65 DATA 32,200,192,90,208,248,169,36,133,1 
75,160,0,177,247,208,1,98,32,36 <045> 

66 DATA 21,165,139,240,16,169,114,160,19,3 
2,30,203-169,0,133,198,32,228,25 5 <096> 

67 DATA 240,251,169,93,133,64,133,253,230, 
139,160,0,177,247,133,254,240,114 -<230> 

68 DATA 197,64,144,6,32,188,23,76,9,23,162 
,0,134,185,165,64,56,229,254,133 <041> 

69 DATA 64,165,253,56,229,254,133,253,165, 
'174,133,105,165,17 5,133,106,165 <144> 

70 DATA 105,133,174,165,106,133,175,32,92, 
24,176,17,32,204,24,144,23,169 <181> 

71 DATA 189,160,19,32,30,203,32,105,22,144 
,226,165,253,24,101,254,133,253 <126> 

72 DATA 169,0,240,2,169,234,133,255,164,6, 
165,175,153,83,32,200,165,174,153 <046> 

73 DATA 83,32,200,165,255,153,83,32,200,13 
2,6,32,52,18,240,6,165,65,208,148 <123> 

74 DATA 240,134,169,0,133,193,133,6,169,36 

, 133 , 194 , 165 , 249 , 133 , 247 , 165 , 250 <130> 

75 DATA 133,248,32,36,21,169,135,160,19,32 
,30,203,169,93,56,229,253,170,169 <233> 



76 DATA 0,32,205,221,169,157,160,19,32,30, 
203,169,13,141,59,19,133,5,169 <051> 

77 DATA 27,160,19,32,30,203,32,225,19,201, 
136,208,23 5,164,6,185,83,32,240 <152> 

78 DATA 56,133,175,200,185,83,32,133,174,2 
00,185,83,32,200,132,6,170,240 <238> 

79 DATA 25,169,1,133,185,32,92,24,176,16,3 

2, 131, .28, 32, 71, 22, 32, 201, 22, 144 <120> 

80 DATA 5,32,105,22,144,235,165,174,133,19 
3,165,175,133,194,32,52,18,208 <112> 

81 DATA 193,169,188,160,18,32,30,203,169,0 
,133,198,32,207,255,201,89,208 <208> 

82 DATA 3,76,188,23,165,247,133,249,165,24 

8, 133 , 250, 96 , 162 , 5 , 165 ,185 ,41 ,1 <186> 

83 DATA 208,7,162,32,160,73,76,109,24,160, 
81,32,230,241,138,32,210,255,166 <019> 

84 DATA 247,164,248,232,208,1,200,169,18,3 
2,141,22,176,12,234,234,234,234 <125> 

85 DATA 234,234,234,234,234,234,24,96,32,7 
1,22,165,185,133,254,169,0,141 <103> 

86 DATA 59,19,169,13,32,210,255,133,5,169, 
27,160,19,32,30,203,169,145,3 2 <131> 

87 DATA 210,255,32,210,255,169,152,160,18, 
32,30,203,32,225,19,201,84,208 <190> 

88 DATA 7, 165, 254, 133, 185/76,92,24, 201, 136 
,208,209,56,96,165,186,32,180,255 <210> 

89 DATA 165,185,32,150,255,160,0,32,165,25 
5,234,234,234,234,145,174,234,234 <138> 

90 DATA 200,192,2,208,240,32,71,22,165,174 
,24,105,2,133,174,144,11,230,175 <185> 

91 DATA 208,7,165,167,201,8,240,23,0,169,1 
,133,167,169,0,133,144,185,167 <136> 

92 DATA 32,23,238,169,111,32,192,238,165,1 
44,16,227,230,167,165,167,201,16 <225> 

93 DATA 208,230,169,141,162,26,133,167,134 
,168,169,0,162,3,133,169,134,170 <143> 

94 DATA 169,8,32,23,238,169,111,32,192,238 
,169,77,32,228,238,169,45,32,228 <038> 

95 DATA 238,169,87,32,228,238,160,0,165,16 
9,32,228,238,165,170,32,228,238 <185> 

96 DATA 169,30,32,228,238,177,167,32,228,2 
38,200,192,30,144,246,32,4,239 <012> 

97 DATA 24,165,167,105,30,133,167,144,3,23 

0,1 68, '24, 165, 169, 166, 170, 105, 30 <249> 

98 DATA 133,169,144,2,230,170,224,5,144,17 
3,201,0,144,169,169,8,32,23,238 <100> 

99 DATA 169,111,32,192,238,169,77,32,228,2 
38,189,45,32,228,238,169,69,32 <128> 

100 DATA 228,238,169,139,32,228,238,169.4, 
32,228,238,32,1,239,234,234,234 <142> 

101 DATA 234,234,234,234,120,169,1,133,167 
,160,255,32,48,26,192,255,240,68 <058> 

102 DATA 234,234,234,234,162,2,165,167,240 
,2,162,4,173,0,35,208,7,238,1,35 <233> 

103 DATA 173,1,35,44,169,0,133,168,189,0,3 
5,145,174,230,174,208,2,230,175 <222> 

104 DATA 232,228,168,208,240,162,0,134,167 
,234,234,234,234,173,0,3 5,208,190 <03 9> 

105 DATA 234,234,234,234,234,169,64,133,14 
4,24,96,56,96,169,128,141,31,145 <249> 

106 DATA 173,31,145,41,2,240,249,169,0,141 
,31,145,162,6,202,208,253,162,4 <010> 

107 DATA 173,31,145,106,102,176,106,102,17 

6 , 234 , 234 , 202 , 208 , 242 ,165,176,73 <217> 

108 DATA 255,96,32,5,26,201,255,240,248,16 
0,0,169,128,141,31,145,173,31,145 <056> 

109 DATA 41,2,240,249,169,0,141,31,145,162 

"■ ,7,202,208,253,173,31,145,106,102 <146> 

110 DATA 176,106,102,176,234,234,234,234,2 
34,173,31,145,106,102,176,106,102 <159> 

111 DATA 176,234,234,234,234,234,173,31,14 

5 , 106 , 102 , 176 , 106 , 102 , 176 , 234,234 <021> 

112 DATA 234,234,234,173,31,145,106,102,17 
6,106,102,176,165,176,73,255,153 <138> 

113 DATA 0,35,200,208,173,96,165,0,41,6,20 
1,2,240,3,76,158,253,234,169,5,133 <193> 

114 DATA 9,162,90,134,75,162,0,169,82,133, 
36,32,86,245,80,254,184,173,1,28 <005> 

115 DATA 197,36,240,9,198,75,208,239,169,1 
0,76,105,249,80,254,184,173,1,28 <106> 



Listing. »Hypra-Copy«. Bitte mit dem Checksummer 
(Seite 129) eingeben. 
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DIE C 64 ENZYKLOPADIE 



DER AUTOR RAETO WEST verwendete 1 Jahr der Ana- 
lyse und Dokumentation auf den C-64! Ergebnis seiner vollig 
unzeitgemaEen Geduld: Das einzige enzyklopadische 
64er-Buch, das neben Ihrem Computer liegen bleibt. 
Alle Erklarungen, 'auch komplexer System- und 
Programmfragen, umfassen bei Ray West stets beides: 
Kompetenz durch Einsicht und solides Faktenwis- 
sen. Beispielhaft: Musiktheorie und SIDrChip in 
Kapitel 13! j 

EIN REFERENZBUCH fur prof essionelle Hard/ 
Software-Entwickler auf dem US-Standard des 
Buchs PROGRAMMING Tr^E PET/CBM des 
gieichen Autors; EIN LEHRBUCH zu Aufbau 
und Anwendung von Mikrocomputern am Beispiel 
des C-64 fur alle Autodidakten und Einsteiger; 
EIN ANWENDUNGS-HANDBUCH zum C-64/SX-64 mit 
uber 300 Programmierungen aller 64er-Funktionen - auch der 
schwierigen, seltenen und meist gemiedenen. 



te-wi Vetlag GmbH 
Theo-Prosel-Weg 1 
8000 Munchen 40 



iani 



Beste Rezensionen in alien Zeitschriften. 

688 Seitcn, Softcover, DM 66,- 



Weitere te-wi-Biicher 






NEU! C-64 Akustik und Graphik 

Ein planvoiler Lehrgang - keine BeispieL- 
sammlung - in anschaulichem Stil - 
daher fur jedes Aiter. Dieses Werk eroff 
nef dem C-64 Benutzer die Welt der 
Graphiken und Kiangbilder. Es enthait 
Programmbibliotheken und wird abge- 
rundet durch 2ahlreiche Anhange. 
John Anderson, 208 Seijen, Softcover, 
DM 49,— 

NEU! 

Der Sensible C-64 

C-64 Prograrnmsammlung 

Fur Erstbenutzer wie fur Experten - 
2 Bucher der Softwarenutzung aller 
technologischen Eigenheiten des C-64. 
Jedes Buch kostet DM 29,80 



LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA. Fur die 

Computer APPLE II, C-64, IBM PC, 

ATARI bis 520 ST, TI-99 und Schneider 

CPCs. 

Hochwertiges Textbuch fur Logo-Kurse 

fUr zu Hause und im Lehrbereich. 

384 Seiten, A4, DM 59 - 




NEU! Reparaturanleitung 
Computer: C-64 Floppy: VC1541 

Einzigartige Serviceunterlagen fur Repara- 
turen und Entwicklungsarbeiten. 
Enthait Schaltplarte, Bauteile- und Ver- 
gleichstypenliste, u.v.m; schnelie Service- 
tests; Anleitung zur systematischen Fehler- 
suche. 

In A4-Mappe, je DM 29,80 

STRUCTURED BASIC erweitert erheblich 
die Einsatzmoglichkeit des C-64/C-128 auf 

Befehls- wie Speicherebene! Buch (376 S.) 
und Modul, DM 199,- 
In Vorbereitung: 

Die C-128 Enzyklopadie vom Erfolgs- 
autor Raeto West. Ausgereift und in 
bewahrter Soliditat. Anfang 1986. Es Iohnt 
sich zu warten. ROM-Listing C-128 mit 
umfangreichen deutschen Kommentaren 
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Computer fiir Kinder 

(Sally Greenwood Larson) 

Ein Buch fur Kinder und 
ihre Lehrer - ein kind- 
gerechtes Buch fur die erste 
Begegnung mit Computern, 
ihren Eigenwilligkeiten und 
ihren unerschopflichen 
Moglichkeiten. 

„Computer fur Kinder" richtet sich an Kinder im Alter von 8 
bis 13 Jahren. Ein Handbuch fur Beginner. Unterhaltsam 
und leicht verstandlich fur die Computer VC20 und C-64. 
A4 quer. Je Ausgabe DM 29,80 



Noch im Priigramm: VisiCalc (nut CBM Diskette) DM 79. — 
CBM Computer-Handbuch DM 59,— 

Mikrocomputer-Grundwissen DM 36, — 



C-64 IEEE488 Buch und Steckmodul DM 239,— 
Umweltdynamik (Prospekt anfordem) DM 59, — NEU 
6502 - Programmieren in Assembler DM 59. — 



VC20 



TIPS&TRICKS 



116 DATA 149.37,232,224,7,208,243,32,151,2 

44-, 165 ,22,69, 23, 69, 24, 69, 25, 69, 26 <148> 

117- DATA 240,7,198,9,208,192,76,30,244,165 

,24,197,6,240,3,76,11,244,133,34 <117> 

118 DATA 169,6,133,49,76,60,4,165,18,166,1 
9,133,22,134,23,165,6,133,24,165 <117> 

119 DATA 7,133,25,169,0,69,22,69,23,69,24, 

6 9,25,133,26,32,52,249,162,90,32 <110> 

120 DATA 86,245,160,0,80,254,184,173,1,28, 

217 , 36 , , 240 , 6 , 202 , 208 , 237 , 76 ,81 <002> 

121 DATA 245,200,192,8,208,234,32,86,245,8 
0,254,184,173,1,28,145,48,200,208 <254> 

122 DATA 245,160,186,80,254,184,173,1,28,1 
53,0,1,200,208,244,32,224,248,165 <218> 

123 DATA 56,197,71,240,3,76,246,244,32,233 
,245,197,58,240,3,76,2,245,160,0 <042> 

124 DATA 169,85,32,82,4,185,0,6,133,119,44 
,0,24,16,251,169,16,141,0,24,44 <145> 

125 DATA 0,24,48,251,162,0,138,102,119,42, 
42,102,119,42,42,141,0,24,138,102 <129> 

126 DATA 119,42,42,102,119,42,42,141,0,24, 
138,102,119,42,42,102,119,42,42 <233> 

127 DATA 141,0,24,138,102,119,42,42,102,11 

9, 42 ,42, 141, 0,24', 162, 2, 202, 208, 253 <112> 

128 DATA 169,15,141,0,24,200,208,173,234,2 
34,234,234,234,234,234,173,0,28 <057> 

129 DATA 9,8,141,0,28,173,0,6,208,3,76,158 

, 253 ,197,24, 208 , 249 , 133 , 6 , 173 , 1 <074> 

130 DATA 6,133,7,76,101,3,133,119,44,0,24, 
16,251,169,16,141,0,24,44,0,24,48 <093> 

131 DATA 251,162,4,169,0,102,119,42,42,102 
,119,42,42,141,0,24,202,208,240 <153> 

132 DATA 234,234,234,234,234,234,169,15,14 
1,0,24,96,96,133,0,88,16 5,0,48,252 <226> 

133 DATA 120,96,120,234,234,23,4,234,234,23 
4,165,24,141,0,6,133,6,165,25,141 <012> 

134 DATA 1,6,133,7,169,4,133,120,169,226,3 
2,130,4,201,2,144,51,160,0,132,120 <124> 

135 DATA 164,120,185,219,254,240,18,88,32, 
118,214,120,169,226,32,130,4,201 <239> 

136 DATA 2,144,26,230,120,208,231,169,192, 
32,130,4,169,226,32,130,4,201,2 <204> 

137 DATA 144,8,169,255,32,82,4,76,34,235,1 
73,0,6,240,248,197,24,240,196,173 <188> 

138 DATA 0,6,133,6,173,1,6,133,7,76,160,4, 
173,44,145,141 ,31 ,1 ,165,186,32,23 <130> 

139 DATA 236,165,185,32,192,238,169,0,133, 
144,32,228,238,32,228,238,32,4,239 <188> 

140 DATA 165,144,240,2,24,96,169,23,162,30 
,133,172,134,173,169,70,162,1,133 <046x 

141 DATA 20,134,21,162,5,165,186,32,23,238 
,169,111,32,192,238,160,0,185,15 <045> 

142 DATA 30,32,228,238,200,192,3,208,245,1 
65,20,32, 228 , 238 ,165,21,32, 228 , 238 <000> 

143 DATA 169,31,32,228,238,160,0,177,172,3 
2,228,238,200,192,31,144,246,32 <205> 

144 DATA 4,239,165,172,24,105,31,133,172,1 
44,2,230,173,165,20,24,105,31,133 <049> 

145 DATA 20,144,2,230,21,202,208,178,165,1 
86,32,23,238,169,111,32,192,238 <-097> 

146 DATA 160,0,185,18,30,32,228,238,200,19 
2,5,208,245,160,0,32,4,239,120,162 <014> 

147 DATA 0,142,31,145,169,220,141,44,145,2 
34,189,178,30,157,0,35,23 2,208,247 <074> 

148 DATA 173,31,145,41,2,208,249,32,251,29 
,162,0,189,178,31,157,0,35,232,208 <134> 

149 DATA 247,32,251,29,32,210,251,162,1,32 
,17,253,176,23,160,0,177,172,157 <157> 

150 DATA 1,35,232,32,27,253,224,255,144,23 
6,32,17,253,178,3,169,255,44,169 <005> 

151 DATA 0,72,141,0,35,142,1,35,32,251,29, 
162,1,104,208,211,24,169,0,7 2,173 <238> 

152 DATA 31, 1,141, 44, 145, 120, 104, 96, 185,0, 
35,133,149,162,0,173,31,145,41,1 <011> 

153 DATA 240,249,173,31,145,41,2,240,5,232 

, 208, 246 , 240 ,217 , 169 ■ 222 , 141 ,44 <126> 

154 DATA 145,42,42,42,6,149,42,42,42,42,6, 

1 49 , 42 , 42 , 141 , 44 , 145 , 42 , 42 , 42 , 6 < 189> 

155 DATA 149,42,42,42,42,6,149,42,42,141,4 

4 , 145 , 42 , 42 , 42 , 6 , 149 , 42 , 42 , 42 , 42 <214> 

156 DATA 6,149,42,42,141,44,145,42,42,42,6 
,149,42,42,42,42,6,149,42,42,141 <121> 

157 DATA 44,145,234,234,234,234,234,169,22 

, 141 ,44, 145 , 200 , 208, 148 , 96 , 160 <181> 

158 DATA 0,152,89,0,35,200,206,250,133,20, 



32,142,29,136,165,20,76,145,29,77 <238> 

159 DATA 45,87,77,45,69,187,1,160,0,132,17 
,169,2,141,0,24,169,4,44,0,24,240 <158> 

160 DATA 251,169,0,141,0,24,162,4,202,208, 
253,162,10,173,0,24,74,38,133,74 <025> 

161 DATA 74,38,133,97,0,101,0,173,0,24,74, 
38,133,74,74,38,133,97,0,101,0,173 <225> 

162 DATA 0,24,74,38,133,74,74,38,133,97,0, 
101,0-, 173 ,0,24, 142, 0,24, 74, 36, 133 <039> 

163 DATA 74,74,38,133,165,133,145,48,69,17 
,133,17,200,208,166,136,96,133,49 <187> 

164 DATA 32,70,1,177,48,72,32,74,1,104,145 
,48,165,17,240,237,76,67,232,120 <163> 

165 DATA 169,10,141,0,24,162,0,136,208,253 

,202,208,250,16 9,10,133,105,169 <140> 

166 DATA 0,133,48,169,3,32,166,1,169,4,32, 
166,1,76,61,4,234,234,234,185,0 <252> 

167 DATA 162,1,134,0,41,2,240,16,166,152,1 
34,50,3 2,46,4,32,175,3,32,3,4,76 <071> 

168 DATA 105,249,162,8,32,53,3,162,10,32,5 

3, 3 1 162, 8 1 32, 245, 3, 162, 10 .32 ,(245 <046> 

169 DATA 3,165,140,48,232,76,105,1249,134,5 
0,134,152,165,140,16,97,181,131 <043> 

170 DATA 208,93,189,49,4,32,166,1,200,166, 

50, 169, 128, 149, 131, 165, 128, 149 ;0 <141> 

171 DATA 165,129,149,l,175»-',48,240,28,32,33 
,241,166,130,246,181,208,2,246,187 <141> 

172 DATA 160,0,165,128,145,48,200,165,129, 
145,48,165,128,197,34,240,2,132 <165> 

173 DATA 140,166,50,169,0,133,48,133,51,13 
3,46,133,54,133,12,133,80,169,187 <200> 

174 DATA 133,52,189,49,4,133,47,32,233,245 
,133,58,189,50,4,32,163,247,166 <093> 

175 DATA 50,181,131,240,82,32,46,4,173,0,2 
8,41,16,208,3,76,129,245,32,16,245 <204> 

176 DATA 162,9,80,254,184,202,208,250,169, 
255,141,3,28,173,12,28,41,31,9,192 <243> 

177 DATA 141,12,28,169,255,162,5,141,1,28, 

184, 80, 254, 184 ,202,208 ,250, 160, 167 <180> 

178 DATA 177,12,80,254,184,141,1,28,200,20 
8,245,177,48,80,254,184,141,1,28 <232> 

179 DATA 200,208,245,80,254,76,0,254,96,13 
4,50,44,36,4,134,152,181,131,240 <206> 

180 DATA 244,32,46,4,32,10,245,160,187,177 

,12, 80, 254, '184, 77, 1,28, 208, 25, 200 <252> 

181 DATA 208,243,177,48,80,254,184,77,1,28 
,208,12,200.192,253,208,241,166 <219> 

182 DATA 50,189,0,149,131,96,76,197,246,18 
9,49,4,133,49,189,50,4,133,13,96 <154> 

183 DATA 5,1,6.4,88,32,25,241,169,132,213, 
167,240,5,149,167,32,66.208,169 <051> 

184 DATA 64,141,249.2.169,1.133,131,32,7,2 
09,144,3,76,248,207,32.62,222,246 <111> 

185 DATA 181,169,0,133,139,133,141,169,128 
,133,140,165,128,133,6,169,224,133 <203> 

186 DATA 0,165,0,48,252,240,36,201,1,240,2 
34,165,24,133,6,165,25,133,7,162 <116> 

187 DATA 0,169,176,32,125,213,32,153,213,1 
69,226,32,125,213,32,153,213,165 <198> 

188 DATA 140,208,204,240,206,76,35,219,42, 
48,49,42,48,50,42,48,51,42,48,52 <036> 

189 DATA 42,48,53,42,48,54,42,48,55,42,48, 
56,42,48,57,42.49,48,42,49,49,42 <121> 

190 DATA 49,50,42,49,51,42,49,52,42,49,53, 
42,49,54,42,49,55,42,49,56,42,49 <031> 

191 DATA 57,42,50,48,42,50,49,42,50,50,42, 
50,51,42,50,52,42,50,53,42,50,54 <055> 

192 DATA 42,50,55,42,50,56,42,50,57,42,51, 

" 48,0,0,0 <093> 

200 OPEN l,8,15:CLOSE 1=IF ST=0 THEN 240 <139> 
210 PRINT"BITTE FLOPPY ANSCHLI ESSEN, DANN< 

■ SPACE>" <198> 

220 GET T$ = IF T$<>" "THEN 220 <230> 

230 GOTO 200 <166> 

240 OPEN 6,8,8, "HYFRA-COFY VC20,P,¥" <100> 
250 PRINT**8,CHR$(1>CHR$<18); <208> 

260 FOR 1=0 TO 3758=READ A^P+A <247> 

270 PRINT#8,CHR$<A> ; <054> 

280 NEXT^OLOSE 8 <006> 

290 IF PO421304 THEN PRINT "DATAS NICHT OK 

":STOP <040> 

300 PRINT "DATAS OK" <245> 



Listing. »Hypra-Copy« (Schluft) 
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VC 20 



Sdinell wie der Wind 



»Hypra-Load« und »Hypra-Save« fur den VC 20 mit 
der Floppy 1541. Laden Sie Ihre Programme mit 
sechsfacher Geschwindigkeit und speichern Sie 
sie dreimal schneller. Beide Programme in einem, 
das ist fur Sie eine wertvolle Arbeitserleichte- 
rung. 

Schnelles Laden und Speichern ist nun nicht mehr dem 
C64 vorbehalten. Der VC 20 verfallt nunmehr in einen 
wahren Geschwindigkeitsrausch. Jeder, der sich inten- 
siv mit dem VC 20 beschaftigt, wird diesen Floppy-Speeder 
zu schatzen wissen. 

Das Prinzip der Ubertragung ist dasselbe wie beim C64. 
Der serieiie Bus wird zur Zwei-Bit-Parallelubertragung »mtB- 
braucbt«. Synchronisiertwirdlediglich QberdieTaktfrequenz. 
Das Programm selbst befindetsich im Bereich ab $A000. Vor 
jedem Lade- Oder Speichervorgang wird ein Programm in die 
Floppy geschrieben, das fur die schneliere Ubertragung ver- 
antwortlich ist. 

Geben Sie das Programm »Hypra-System« (siehe Listing) 
am besten mit dem Checksummer VC 20 ein und speichern 
Sie es. Beim Starten wird auf der Diskette das Programmfiie 
»Hypra-System VC 20« generiert. 



Sind alle DATAs korrekt eingegeben, konnen Sie »Hypra- 
System VC 20« laden und durch einen Reset (oder SYS 
64802) aktivieren. Einma! gestartet, laBt es sich auch durch 
RUN/STOP- RESTORE nicht mehr deaktivieren. 

Programme, die den Bereich ab $AOO0 benutzen, uber- 
schreiben das »Hypra-System« und verursachen dadurch 
meistens einen Absturz. Der Schnelllader ist naturlich mit den 
meisten Programmen lauffahig. (K.-H. Templin/og) 




DATA 9,160,116,160,65,48,195,194,205,32, 
141,253,32,82,253,32,249,253,32 <044> 

1 DATA 24,229,88,32,91,228,32,164,227,32,9 
5,160,32,40,160,162,251,154,76 <049> 

2 DATA 116,196,165,43,164,44,32,8,196,169, 
54,160,160,76,15,228,147,42,42 <117> 

3 DATA 42,42,32,72,89,80,82,65,45,83,89,83 
,84,69,77,32,42,42,42,42,13,0 <123> 

4 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.169 

,148,160,160,141,48,3,140,49,3 <021> 

5 DATA 169,152,160,164,141,50,3,140,51,3,9 

6, 44, 17, 145, 32,52, 247, 32-, 225 ,255 <217> 

6 DATA 208,9,32,82,253,32,95,160,76,213,25 
4,76,86,25 5,76,202,245,78,135 <121> 

7 DATA 247,76,144,245,133,147,169,0,133,14 

4 , 165 , 186 , 208 , 3 , 76 , 150 , 247 , 201 <010> 

8 DATA 3,240,249,144,228,164,183,208,3,76, 
147,247,32,188,228,169,96,133 . <014> 

9 DATA 185,32,149,244,165,186,32,20,238,16 
5,185,32,206,238,32,25,239,133 <017> 

10 DATA 174,165,144,74,74,176,193,32,25,23 
9,133,17 5,32,193,228,169,253,37 <099> 

11 DATA 144,133,144,165,147,208,178,160,0, 
177,187,201,36,240,170,169,1,133 <254> 

12 DATA 167,169,0,133,144,165,167,32,23,23 
8,169,111,32,192,238,165,144,16 <07 2> 

13 DATA 11,230,167,165,167,201,16,208,230, 
76,59,161,165,167,201,8,240,239 <088> 

14 DATA 160,0,185,35,161,240,6,32,210,255, 
200,208,245,32,225,255,208,251 <181> 

15 DATA 76,59,161,13,78,85,82,32,70,76,79, 
80,80,89,32,65,78,83,67,72,65,76 <181> 

16 DATA 84,69,78,33,0,169,162,162,162,133, 
167,134,168,169,0,162,3,133,169 <049> 

17 DATA 134,170,169,8,32,23,238,169,111,32 
,192,238,169,77,32,228,238,169 <177> 

18 DATA' 45,32,228,238,169,87,32,228,238,16 
0,0,165,16 9,32,228,238,16 5,170 <204> 

19 DATA 32,228,238,169,30,32,228,238,177,1 
67,32,228,238,200,192,30,144,246 <013> 

20 DATA 32,4,239,24,165,167,105,30,133,167 
,144,3,230,168,24,165,169,166,170 <010> 

21 DATA 105,30,133,169,144,2,230,170,224,5 
,144,173,201,0,144,169,16 9,8,32 <013> 

22 DATA 23,238,169,111,32,192,238,169,77,3 



2,228,238,169,45,32,228,238,16 9 <024> 

23 DATA 69,32,228,238,169,139,32,228,238,1 
69,4,32,228,238,32,1,239,32,209 <057> 

24 DATA 161,166,174,164,175,88,96,120,169, 
1,133,167,160,255,32,6 9,162,192 <194> 

25 DATA 255,240;'55,162,2,165,167,240,2,162 
,4,173,0,175,208,7,238,1,175,173 <240> 

26 DATA 1,175,44,169,0,133,168,189,0,175,1 
45,174,230,174,208,2,230,175,232 <040> 

2? DATA 228,168,208,240,162,0,134,167,173, 

0,175,208,198,16 9,64,133,144,24 <203> 

28 DATA 96,169,29,56,96,169,128,141,31,145 

, 173 , 31 , 145 , 41 , 2 , 240 , 249 ,169,0 <070> 

29 DATA 141,31,145,162,6,202,208,253,162,4 
,173,31,145,106,102,176,106,102 <243> 

30 DATA 176,234,234,202,208,242,165,176,73 
,255,96,32,26,162,201,255,240,248 <212> 

31 DATA 160,0,169,128,141,31,145,173,31,14 
5,41,2,240,249,169,0,141,31,145 <128> 

32 DATA 162,7,202,208,253,173,31,145,106,1 
02,176,106,102,176,234,234,234 <148> 

33 DATA 234,234,173,31,145,106,102,176,106 
,102,176,234,234,234,234,234,173 <157> 

34 DATA 31,145,106,102,176,106,102,176,234 
,234,234,234,234,173,31,145,106 <090> 

35 DATA 102,176,108,102,176,165,176,73,255 
,153,0,175,200,208,173,96,16 5,0 <170> 

36 DATA 41,6,201,2,240,3,76,158,253,234,16 
9,5,133,9,162,90,134,75,162,0,16 9 <087> 

37 DATA 82,133,36,32,86,245,80,254,184,173 
,1,28,197,36,240,9,198,75,208,239 <203> 

38 DATA 169,10,76,105,249,80,254,184,173,1 
,-28,149,37,232,224,7,208,243,32 <164> 

39 DATA 151,244,165,22,69,23,69,24,69,25,6 
9,26,240,7,198,9,208,192,76,30 <192> 

40 DATA 244,165,24,197,6,240,3,76,11,244,1 
33,34,169,6,133,49,76,60,4,165 <034> 

41 DATA 18,166,19,133,22,134,23,165,6,133, 
24,165,7,133,25,169,0,69,22,69 <236> 

42 DATA 23,69,24,69,25,133,26,32,52,249,16 
2,90,32,86,245,160,0,80,254,184 <139> 

43 DATA 173,1,28,217,36,0,240,6,202,208,23 
7,76,81,245,200,192,8,208,234,32 <246> 

44 DATA 86, 245, 80, 254, 184', 173, 1,28, 145, 48, 
200,208,245,160,186,80,254,184 <156> 
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45 DATA 173,1.28,153,0,1,200,208,244,32,22 

4, 248, 165 , 56 , 197 , 71 , 240, 3 , 76 , 246 <244> 
DATA 244 , 32 , 233 , 245 , 1 97 , 58 , 240 ,3,76,2,2 

45,160,0,169,85,32,82,4,185,0,6 <10?> 
DATA 133,119,44,0,24,16,251,16 9,16,141, 
0,24,44,0,24,48,251,162,0,138,102 <139> 

48 DATA 119,42,42,102,119,42,42,141,0,24,1 
38,102,119,42,42,102,119,42,42 <155> 

49 DATA 141,0,24,138,102,119,42,42,102,119 
,42,42,141,0,24,138,102,119,42 <151> 

50 DATA 42,102,119,42,42,141,0,24,162,2,20 
2,208,253,169,15,141,0,24,200,208 <037> 

51 DATA 173,234,234,234,234,234,234,234,17 
3,0,28,9,8,141,0,28,173,0,6,208 <191> 

52 DATA 3,76,158,253,197,24,208,249,133,6, 
173,1,6,133,7,76,101,3,133,119 <163> 

53 DATA 44,0,24,16,251,169,16,141,0,24,44, 
0,24,48,251,162,4,169,0,102,119 <213> 

54 DATA 42,42,102,119,42,42,141,0,24,202,2 
08,240,234,234,234,234,234,234 <254> 

55 DATA 169, 15, 141..0, 24,96, 96, 133, 0,88, 165 
,0,48, 252, 120, 96 ,"120, 234, 234, 234 <107> 
DATA 234 , 234 , 234 , 165, 24 , 1 41 , 0,6, 133 , 6,1 
65,25,141,1,6,133,7,169,4,133,120 <120> 
DATA 169,226,32,130,4,201,2,144,51,160, 
0,132,120,164,120,185.219,254,240 <203> 

58 DATA 18,88,32,118,214,120,169,226,32,13 
0,4,201,2,144,26,230,120,208,231 <242> 

59 DATA 169,192,32,130,4,169,226,32,130,4, 
201,2,144,8,169,255,32,82,4,76 <213> 

60 DATA 34,235,173,0,6,240,248,197,24,240, 

196 , 173 , 0, 6 , 133 , 6 , 173 , 1 , 6 , 133 , 7 <216> 

61 DATA 76,160,4,165,186,201,4,176,3,76,13 
3,246,120,186,142,216,168,173,25 <092> 

62 DATA 3,141,217,168,173,24,3,141,218,168 
,169,11,141,24,3,169,166,141,25 <247> 

63 DATA 3,173,44,145,141,31,1,88,169,97,13 
3,185,162,44,160,0,177,187,201 <104> 

64 DATA 42,208,10,162,76,198,183,230,187,2 
08,2,230,188,142,46,168,169,165 <090> 

65 DATA 72,169,240,72,165,183,208,3,76,132 
,247,32,149,244,32,40,247,165,186 <064> 

66 DATA 32,23,238,165,185,32,192,238,169,0 

, 133 , 144, 32 , 228 , 238 , 32 , 228 , 238 <241> 

67 DATA 32,4,239,165,144,240,2,24,96,169,1 
59,162,166,133,172,134,173,169 <166> 

68 DATA 70,162,1,133,20,134,21,162,5,165,1 
86,32,23,238,169,111,32,192,238 <076> 

69 DATA 160,253,185,154,165,32,228,238,200 
,208,247,16 5,20,32,228,238,165 <142> 

70 DATA 21,32,228,238,169,31,32,228,238,16. 
0,0,177,172,32,228,238,200,192 <122> 

71 DATA 31,144,246,32,4,239,165,172,24,105 

,31 ,133,172,144,2,230,173,165,20 <091> 

72 DATA 24,105,31,133,20,144,2,230,21,202. 
208,180,165,186,32,23,238,169,111 <014> 

73 DATA 32,192,238,160,251,185,159,165,32, 
228,238,200,208,247,32,4,239,120 <129> 

74 DATA 162,0,142,31,145,169,220,141,44,14 '■ 
5,189,55,167,157,0,175,232,208 <013> 

75 DATA 247,173,31,145,41,2,208,249,32,131 
,166,162,0,189,55,168,157,0,175 <030> 

76 DATA 232,208,247,32,131,166,32,210,251, 
162,1 1 165, 172', 157,1, 175, 232, 165 <032> 

77 DATA 173,157,1,175,232,32,17,253,176,23 
,160,0,177,172,157,1,175,232,32 <084> 

78 DATA 27,253,224,255,144,236,32,17,253,1. 
76,3,169,255,44,169,0,72,141,0 <112> 

79 DATA 175,142,1,175,32,131,166,162,1,104 

, 208 , 211 , 24, 1 69 , , 72 , 173 ,31 , 1 , 141 <242> 

80 DATA 44,145,120,173,218,168,141,24,3,17 
3,217,168,141,25,3,104,174,216 <132> 

81 DATA 168,154,96,56,173,31,1,9,2,141,31, 
1,176,217,185,0,175,133,149,162 <074> 

82 DATA 0,173,31,145,41,1,240,249,173,31,1 

45 , 41 , 2 , 240 , 5 , 232 , 208 , 246 , 240 , 1 90 <244> 

83 DATA 169,222,141,44,145,42,42,42,6,149, 

42 , 42 , 42 , 42 , 6 , 149 > 42 , 42 , 141 , 44 <084> 

84 DATA 145,42,42,42,6,149,42,42,42,42,6,1 

49 , 42 , 42 , 141 , 44 , 145 , 42 , 42 , 42 , 6 <1 1 9> 

85 DATA 149,42,42,42,42,6,149,42,42,141,44 
,145,42,42,42,6,149,42,42,42,42 <144> 



86 DATA 6,149,42,42,141,44,145,234,234,234 

,234,234,169,220,141,44,145,200 <16?> 
37 DATA 208,148,96,160,0,152,89,0,175,200, 

208,250,133,20,32,22,166,136,165 <224> 
58 DATA 20,76,25,166,77,45,87,77,45,69,187 

,1,160,0,132,17,169,2,141,0,24 <109> 

89 DATA 169,4,44,0,24,240,251,169,0,141,0, 

24,162,4,202,208,253,162,10,173 <046> 
S2 DATA 0,24,74,38,133,74,74,38,133,97,0,1 

01,0,173,0,24,74,38,133,74,74,38 <190> 

91 DATA 133,97,0,101,0,173,0,24,74,38,133, 
''4,74, 38, 133, 97, 0,1 01, 0,1 73 ,0,24 <054> 

92 DATA 142,0,24,74,38,133,74,74,38,133,16 
5,133,145,48,69,17,133,17,200,208 <071> 

93 DATA 166,136,96,133,49,32,70,1,177,48,7 
2,32,74,1,104,145,48,165,17,240 <251> 

94 DATA 237,76,67,232,120,169,10,141,0,24, 

* 52,2-136,208, 253, 202, 208, 250, 169 <212> 

95 DATA 10,133,105,189,0,133,48,169,3,32,1 

5*. 1-159, 4, 32, 166, 1,76, 61, 4, T£5 <038> 

96 DATA 2,162,1,134,0,41,2,240,16,166,152, 
134,50,32,46,4,32,175,3,32,3,4 <180> 

9? DATA ^6,105,249,162,8,32,53,3,162,10,32 

, 53, 3, 162,8,32, 245, 3, V32, 10, 32 <053> 

98 DATA 245,3,165,140,48,232,76,105,249,13 

4,50,134,152,165,140,16,97,181 <142> 

Q9 D* T * "2" .208,93,189,49,4,32,166,1,200,1 

BR- 50, 153, 128, 149, 131, 165, 128, 149 <224> 

102 DATA 2,165,129,149,1,177,48,240,28,32, 

S3 . ?±I ■ 166 , 130 , 246 , 181 , 208, 2 , 246 <205> 

10" 2+"A -57,160,0,165,128,145,48,200,165, 

129 145, 48, 165, 128, 197, 34, 240, 2 <066> 

102 DATA 132,140,166,50,169,0,133,48,133,5 
1.133,45,133,54,133,12,133,80,169 <164> 

103 DATA 157,133,52,189,49,4,133,47,32,233 
-245.133=58,189,50,4,32,163,247 <091> 

104 DATA 156:52,181,131,240,82,32,46,4,173 

.2.25.41,16,208,3,7 6,129,245,32 <223> 

105 DATA '.£,245,162,9,80,254,184,202,208,2 

50, 169 ,255, 141, 3, 28, 173, 12, 28, 41 <222> 
10« j.i-i 31.2,192,141,12,28,169,255,162,5, 

1 41 , 1 ■ £3 . 134 , 80 , 254 , 184 , 202 , 208 <238> 

107 D*T± 252. 1»S2, 187, 177, 12, 80, 254, 184, 141 

■" 25, 222-225, 245,177, 48, 80, 254 <201> 

108 DATA 154=141,1,28,200,208,245,80,254,7 
6,2,254,35,134,50,76,36,4,134,152 <247> 

109 DATA 151,131-240,244,32,46,4,32,10,245 

, 152, 15", 177. 12, 80, 254, 184, 77,1 <122> 

110 DATA 23-225,25,200,208,243,177,48,80,2 

54- 154- ".I, 28, 208, 12, 200, 192, 253 <237> 

111 DATA 225,241,166,50,169,0,149,131,96,7 

6, 19", 246, 133, 49, 4, 133, 49, 189, 50 <084> 

112 DATA 4,133,13,96,5,1,6,4,88,32,25,241, 

153 ■ 132 , 213 , 167 , 240, 5 , 149 , 167 ,32 <196> 

113 DATA 65,225,169,64,141,249,2,169,1,133 
,131,32,7,229,144,3,76,248,207,32 <160> 

114 DATA 62,222.246,181,169,0,133,139,133, 

141 , 159 , 128, 133 , 140, 165 , 128, 133 <233> 

115 DATA 6,169,224,133,0,165,0,48,252,240, 
36,201,1,240,234,165,24,133,6,165 <008> 

116 DATA 25,133,7,162,0,169,176,32,125,213 

,32 , 153 ,213 , 169 , 226 ,32 , 125 , 213 ,32 <096> 

11? DATA 153,213,165,140,208,204,240,208,7 

5,35,219,0 <230> 

190 OPEN l,8,15:CLOSE 1 = IF ST=0 THEN 200 <065> 

195 PRINT "SITTE FLOPPY ANSCHLIESSEN , DANN 
<S?ACE>" <183> 

196 GET T5 = IF T$<>" "THEN 196 <023> 

197 GOTO 190 <013> 
200 OPEN 8,8,8, "HYPRA-SYST VC20,P,V <068> 
210 PBINT#8,CER$(0)CHR$Q60); <002> 
220 FOR 1=0 TO 2264:READ A:P=P+A:PRINT«8,C 

HR$(A);=NEXT <019> 

230 CLOSE 8 <041> 

240 IF P<>266756 THEN FRINT"DATAS NICHT OK 

":STOP <166> 

250 PRINT "DAT AS OK" <193> 

Listing. »Hypra-System«. Beim Starten wird das 
eigentiiche Programm auf der Diskette generiert. 
Beachten Sie die Eingabehinweise auf Seite 129. 
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SMON fur den VC 20 



Der Super-Maschinensprache-Monitor auf dem 
VC 20. Mit mindestens 16 KByte konnen Sie die 
Vorteile des SMON nutzen. Fur den Assembler- 
Program mi erer ist SMON fur den VC 20 ein unent- 
behrliches Werkzeug. 

SMON VC20 ist eine Umsetzung des bekannten SMON 
fur den C 64, veroffentlicht in Sonderheft 8/85, auf dem 
VC 20. Die Starken des SMON sind vor allem seine 
machtigen Suchbefehle. AIs Zusatz enthalt er einen 
Disketten-Monitor und naturlicb einen Disassembler. Der 
Wermutstropfen beim SMON VC20 ist, daB man die Trace- 
Befehle nicht korrekt umsetzen kann. Das liegt am etwas 
hoheren Systemtakt des VC20 und den damit verbundenen 
Timing-Probiemen. 

Samtliche Standard-Befehle fur 6502-Assembler sind natur- 
lich im SMON vorhanden. Dazu kommen Umrechnungsrouti- 
nen fur Hexadezimal-Zahfen, komfortable Verschiebe- und 
Suchbefehle. Der Direktassembler des SMON verarbeitet 
sogar Label. 

»SMON VC20« liegt beim VC 20 im Bereich ab $A000. Tip- 
pen sie das Listing »SMON VC 20« ein, speichern Sie es und 
starten es dann. Daraufhin wird auf derj^ioppy das Programm 
»SMON.EX VC 20« generiert. Dieses laden Sie dann mit »,8,1« 
und starten es mit SYS 40960. Die Obersicht aller zur Verf u- 
gung stehenden Befehle entnehmen Sie bitte der Tabelle. 
Fur Datasette: Da das Ladeprogramm »SMON VC 20« auf die 
Diskette ein File schreibt, mussen Datasetten-Besitzer einen 
anderen Weg gehen. Tippen Sie im Generator-Programm die 
Zeilen ab Zeilennummer 300 nicht mit ein. Statt dessen tip- 
pen Sie folgende Zeilen ein: 

300 FOR 1=0 TO 4090: READ A: POKE 40960+1, A :P=P+A: 

NEXT 

310 IF P<> 523777 THEN PRINT "DATAS NICHT 0K":ST0Pv 

320 PRINT "DATAS OK" 

RUN 

Wenn die Meldung »Datas ok«'erscheint, geben Sie ein: 

POKE 43,0: POKE 44, 160: POKE 45,0: POKE 46,176 

< RETURN > 

SAVE "SMON. EX VC20" <RETURN> 

Damit steht SMON auf Datasette zur Verfugung. 

{K.H. Templin/og) 



Befehlsiibersicrit zum SMON 



Alle Eingaben erfolgen in der hexadezimalen Schreib- 
weise. In Klammem angegebene AdreBeingaben konnen 
entfallen. SMON benutzt dann sinnvolle, vorgegebene 
Werte. 

Bei alien Ausgabe-Befehlen ist gleichzeitig die Ausgabe 
auf einem Drucker moglich. Dazu werden die Befehle 
geSHIFTet eingegeben. 



4000 (Assembler) 

symbolischer Assembler (Verarbeitung von Label 
moglich. Label bestehen aus dem Buchstaben »M« 
und einer zweistelligen Hex-Zahl von 01 bis 30.) 
Startadresse $4000 



B 4000 4200 (Basic-Data) 

erzeugt Basic-DATA-Zeilen aus Maschinen- 
programm im Bereich von $4000 bis $41FF 



C 4010 4200 4013 4000 4200 (Convert) 

in ein Programm, das von $4000 bis $4200 im 
Speicher steht, soli bei 4010 ein 3-Byte-Befehl 
eingefugt werden. Dazu wird das Programm ab 
$4010 bis 4200 auf die neue Adresse $4013 ver- 
schoben. Alle absoluten Adressen, die innerhalb 
des Programmbereichs {$4000 bis $4200) ste- 
hen, werden umgerechnet, so daB die Sprungziele 
stimmen. 



D 4000 (4100) (Disassembler) 

disassembliert den Bereich von $4000 (bis 
$4100) mit Ausgabe der Hex-Werfe. Anderungen 
sind durch Oberschreiben der Befehle moglich. 



F (Find) 

findet Zeichenketten (F), absolute Adressen (FA), 
relative Sprunge (FR), Tabellen (FT), Zeropage- 
Adressen (FZ) und Immediate-Befehle (Fl) 



(4000) (Go) 

startet ein Maschinenprogramm, das bei $4000 im 

Speicher beginnt 



I 01 (l/O-Gerat) 

stellt die Geratenummer fur Floppy (08 Oder 09) 
Oder Datasette (01) ein 



K A000 (A500) (Kontrolle) 

zum schnellen Durchsuchen des Bereichsvon 
$A000 (bis $A500) nach ASCII-Zeichen (32 Byte 
pro Zeile). Anderungen sind durch Oberschreiben 
der ASCII-Zeichen moglich. 



L (4000) (Load) < 

ladt ein Maschinenprogramm an die richtige oder 
eine angegebene Adresse ($4000) 



M 4000 (4400) (Memory Dump) 

gibt den Inhalt des Speichers von $4000 (bis 
$43FF) in Hex-Byte und ASCII-Code aus. 
Anderungen sind durch Oberschreiben der 
Hex-Zahlen moglich. 



4000 4500 AA (Occupy) 

fullt den Speicherbereich von $4000 bis $4500 
mit vorgegebenem Byte ($AA) aus 



05 (Printer) 

setzt Gerateadresse 5 fur Drucker 



(Register) 

zeigt die Registerinhalte und Flags an. 

Anderungen sind durch Oberschreiben moglich. 



S "Test" 4000 5000 (Save) 

■speichert ein Programm von $4000 bis $4FFF 
unter dem Namen »Test« ab 



6000 6200 4000 4100 4200 (Verschieben) 
andert in einem Programm von $4100 bis $41FF 
alle absoluten Adressen, die sich auf den Bereich 
von $6000 bis $6200 beziehen, auf einen neuen 
Bereich, der bei $4000 beginnt. 



W 4000 4300 5000 (Write) 

verschiebt den Speicherinhalt von $4000 bis 
$42FF nach $5000 ohne Umrechnung der Adres- 
sen (zum Beispiel Tabellen) 



X (Exit) 

springt aus dem Monitor-Programm ins Basic 
zuruck 
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# 49152 

Dezimalzahl umrechnen 



$ 002B 

4stellige Hex-Zah! umrechnen 



% 01101010 

8stellige Binarzahl umrechnen 



? 0344 + 5234 

Addition Oder Subtraktion zweier 4steiliger 
Hex-Zahlen 



= 4000 5000 (Vergleich) 

vergleicht den Spetcherinhalt ab $4000 mit dem 
ab $5000 



Z (Diskmonitor) 

ruft den Diskmonitor auf. Dieser verfugt uber 
folgende Befehle; 



R (12 01) (Read) (Nur im' Diskmonitor) 

liest Track $12, Sektor $01 von der Diskette in einen 
Puffer im Speicher. Fehlt die Angabe von Track und 
Sektor, wird der logisch (!) nachste Sektor gelesen. 



W (12 01) (Write) (Nurim Diskmonitor) 

schreibt den Puffer im Speicher nach Track $12, 
Sektor $01 auf die Diskette. Ohne Angabe von 
Track und Sektor werden die letzten Eingaben von 
»R« benutzt. 



M (Memory Dump) (Nur im Diskmonitor) 

zeigt den Pufferinhait ais Hexdump (wie normales 
»M«). Weitere Ausgabe mit CBM-Taste, Abbruch mit 
STOP. Werte konnen durch Oberschreiben geandert 
werden. 



X (Exit) (Nur im Diskmonitor) 
springt in SMON zuruck 



F (weitere Disketten-Befehle initiaiisieren) (Nur im 
Diskmonitor) sind die Befehle initiaiisiert, gilt; 

M(07) 

Memory Dump (Floppy-RAM/ROM) 

V 6000 0400 i 

Verschieben eines 256-Byte-Biocks von $6000 

in den Laufwerkspuffer 1 beziehungsweise in das 

Floppy-RAM 

@ normale Disketten-Befehle senden 

X zuruck zum normalen Disketten-Monitor 



DATA 168, 20, 141.22.3.169, 162, 141, 23.3,0. 
39,35,36,37,44,58,59,61,63,65 <145> 

1 DATA 66. 87, 68, 70, 71, ?3, 75, 76, 77, 79, 80, 82 
,83,84,86,87,88,90,0,0,0,0,248 <165> 

2 DATA 170,45,169,7,169,27,169,251,166,28, 

164, 181 , 163 , 244, 170 , 153 , 168, 208 <060> 

3 DATA 168,107,169,60,170,92,165,16,171,22 

6 , 163 , 67 , 168 , 182 , 170, 77 , 168, 248 <039> 

4 DATA 163,192,169,60,168,133,163,77,168,2 
40,171,66,170,210,169,109,163 <252> 

5 DATA 8,174,0,0,0,0,0,0,0,0,255,255,1,0,6 

5 , 90 , 73 , 82 , 84 , 1 28 , 32 , 64 , 16 , , 2 < 184> 

6 DATA 1,1,2,0,145,145,13,83,217,49,55,50, 
13,0,125,76,125,169,13,13,32,32 <095> 

7 DATA 80,67,32,32,83,82,32,65,67,32,88,82 
,32,89,82,32,83,80,0,32,78,86 <045> 

8 DATA 45,66,68,73,90,67,0,2,4,1,44,0,44,8 
9,41,88,157,31,255,28,28,31,31 <056> 

9 DATA 31,28,223,28,31,223,255,255,3,31,12 
8,9,32,12,4,16,1,17,20,150,28 <218> 

10 DATA 25,148,190,108,3,19,1,2,2,3,3,252, 
2,2,2,2,3,3,2,3,3,3,2,0,64,64,128 <211> 

11 DATA 128,32,16,37,38,33,34,129,130,33,1 
30,132,8,8,231,231,231,231,227 <247> 

12 DATA 227, 227, 227, 227, 227, 227, 227,227^,22 

7 , 231 , 167 , 231 , 231 , 243 , 243 , 247 , 223 „ <178> 

13 DATA 38,70,6,102,65,129,225,1,160,162,1 

61 , 193 , 33 , 97 , 132 , 134, 230 , 198 , 224 <064> 

14 DATA 192,36,76,32,144,176,240,48,208,16 

, 80 , 1 1 2 , 1 20 , , 24 , 21 6 , 88 , 184 , 202 <1 97 > 

15 DATA 136,232,200,234,72,8,104,40,64,96, 
170,168,186,138,154,152,56,248 <209> 

16 DATA 137,156,158,178,42,74,10,106,79,35 
,147,179,243,51,211,19,83,115,82 <136> 

17 DATA 76,65,82,69,83,83,79,76,76,76,67,6 
5,65,83,83,73,68,67,67,66,74,74 <217> 

18 DATA 66, 66., 66, 66, 66, 66, 66, 66,83, 66, 67, 6 
7,67,67,68,68,73,73,78,80,80,80 <231> 

19 DATA 80,82,82,84,84,84,84,84,84,83,83,7 

9.83.83.79.79.84.66.82.68.68.68 <161> 

20 DATA 77,78,68,84,84,78,69,80,80,73,77,8 
3,67,67,69,77,78,80,86,86,69,82 <069> 

21 DATA 76,78,76,76,89,69,78,78,79,72,72,7 

6.76.84.84.65.65.83.88.88.89.69 <199> 
22. DATA 69,76,82,76,82,82,65,67,65,89,88,8 

5,80,68,67,89,88,67,67,88,89,84 <227> 

23 DATA 80,82,67,83,81,73,69,76,67,83,73,7 
5,67,68,73,86,88,89,88,89 ,80,65 <061> 

24 DATA 80,65,80,73,83,88,89,88,65,83,85,6 
7,68,8,132,129,34,33,38,32,128 <234> 

25 DATA 3,32,28,20,20,16,4,12,216,169,8,14 
1,176,2,169,4,141,175,2,234,234 <031> 

26 DATA 234,234,234,234,234,234,234,234,23 
4,234,234,162,5,104,157,168,2,202 <121> 



27 DATA 16,249,173,169,2,208,3,206,168,2,2 
06,169,2,186,142,174,2,169,82,76 <234> 

28 DATA 255,162,32,194,162,240,11,32,126,1 
62,141,169,2,165,252,141,168,2 <063> 

29 DATA 96,162,184,32,128,162,32,128,162,2 
08,28,32,126,162,169,254,133,253 <199> 

30 DATA 169,255,133,254,32,194,162,208,12, 
141,119,2,230,198,96,32,126,162 <242> 

31 DATA 44,162,251,32,141,162,149,1,32,154 

, 162,149,0,23 2,232,96,32,202,162 <052> 

32 DATA 201,32,240,249,201,44,240,245,208, 
3,32,202,162,32,175,162,10,10,10 <175> 

33 DATA 10,133,180,32,202,162,32,175,162,5 
,180,96,201', 58,144,2,105,8,41,15 <119> 

34 DATA 96,32,202,162,201,32,240,249,198,2 
11,96,32,207,255,198,211,201,13 <044> 

35 DATA 96,32,207,255,201,13,208,248,169,6 
3,32,210,255,174,174,2,154,162 <137> 

36 DATA 0,134,198,32,81,163,161,209,201,39 

, 240 , 17 , 201 , 58 , 240 , 13 , 201 , 59 , 240 <11 5> 

37 DATA 9,201,44,240,5,169,46,32,210,255,3 
2,202,162,201,46,240,249,133,172 <050> 

38 DATA 41,127,162,32,221,10,160,240,5,202 
,208,248,240,194,32,21,163,76,214 <079> 

39 DATA 162,138,10,170,232,189,41,160,72,2 
02,189,41,160,72,96,165,252,32 <044> 

40 DATA 42,163,165,251,72,74,74,74,74,32,5 
3,163,104,41,15,201,10,144,2,105 <037> 

41 DATA 6,105,48,76,210,255,169,13,32,210, 
255,138,76,210,255,32,76,163,169 <129> 

42 DATA 32,76,210,255,169,13,76,210,255,13 

3 , 187 , 132 , 188, 160 , 0, 177 , 187 , 240 <080> 

43 DATA 6,32,210,255,200,208,246,96,230,25 
1,208,2,230,252,96,169,6,141,134 <253> 

44 DATA 2,169,27,141,15,144,234,234,234,23 
4,234,234,234,174,174,2,154,76 <161> 

45 DATA 116,196,160,160,169,140,32,86,163, 
162,59,32,64,163,173,168,2,133 <136> 

46 DATA 252,173,169,2,133,251,32,35,163,32 
,76,163,162,251,189,175,1,32,42 <175> 

47 DATA 163,32,76,163,232,208,244,96,234,2 
34,234,234,234,32,78,162,162,251 <246> 

48 DATA 32,202,162,32,154,162,157,175,1,23 
2,208,244,96,234,234,234,234,234 <077> 

49 DATA 234,234,234,133,170,169,32,160,9,3 
2,210,255,6,170,169,48,105,0,136 <195> 

50 DATA 208,244,96,32,73,162,174,174,2,154 
,162,250,189,174,1,72,23 2,208,249 <028> 

51 DATA 104,168,104,170,104,64,32,100,162, 

162 , 58, 32 , 64, 163 , 32 , 35 , 163 , 160 <237> 

Listing. »SMON VC20« benotigt mindestens eine 16-KByte- 

Erweiterung 
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VC20 



52 DATA 16,162,0,32,76,163,161,251,32,42,1 
63,161,251,32,57,164,208,241,32 <186> 

53 DATA 93,164,144,224,96,32,126,162,160,1 
8,162,0,32,202,162,32,154,162,129 <108> 

54 DATA 251,193,251,240,3,76,209,162,32,57 
,164,208,236,96,201,32,144,12,201 <-126> 

55 DATA 96,144,10,201,192,144,4,201,219,14 

4.4.169.46.41.63.41.127.145.209 <252> 

56 DATA 173,134,2,145,243,32,103,163,200,1 
92,22,96,32,111,164,76,102,164 <194> 

57 DATA 32,103,163,165,251,197,253,165,252 
,229,254,96,32,148,164,32,134,164 <069> 

58 DATA 240,14,32,134,164,240,251,201,32,2 
08,5,141,119,2,230,198,96,32,228 <107> 

59 DATA 255,72,32,225,255,240,2,104,96,76, 
214,162,160,22,36,172,16,246,132 <147> 

60 DATA 200,132,208,169,255,32,195,255,169 
,255,133,184,133,185,173,175,2 <248> 

61 DATA 133,186,32,192,255,162,0,134,211,2 

02.32.201.255.32.207.255.32.210 <125> 

62 DATA 255,201,13,208,246,32,204,255,169, 
145,76,210,255,160,0,177,251,36 <184> 

63 DATA 170,48,2,80,12,162,31,221,60,161,2 

40, 47., 202, 224, 21, 208, 246, 162, 4 <133> 

64 DATA 221,73,161,240,33,221,77,161,240,3 
0,202,208,243,162,56,221,17,161 <200> 

65 DATA 240,20,202,224,22,208,246,177,251, 
61,251,160,93,17,161,240,5,202 <226> 

66 DATA 208,243,162,0,134,173,138,240,15,1 
62,17,177,251,61,181,160,93,198 <106> 

67 DATA 160,240,3,202,208,243,189,234,160, 
133,171,189,216,160,133,182,166 <185> 

68 DATA 173,96,160,1,177,251,170,200,177,2 
51,160,16,196,171,208,7,32,74,165 <234> 

69 DATA 160,3,208,2,164,182,142,174,0,141, 
175,0,96,160,1,177,251,16,1,136 <048> 

70 DATA 56,101,251,170,232,240,1,136,152,1 
01,252,96,162,0,134,170,32,100 <097> 

71 DATA 162,32,140,165,165,173,201,22,240, 
9,201,48,240,5,201,33,208,17,234 <092> 

72 DATA 32,148,164,32,81,163,162,21,169,45 
,32,210,25 5,202,208,250,3 2,93,164 <216> 

73 DATA 144,217,96,162,44,32,64,163,32,35, 

163, 32, 76, 163, 32, 11 7, 166, 32 i 203 <012> 

74 DATA 164,234,234,234,234,234,234,234,23 
4,234, 234,234 , 234 , 234, 234 , 234,234 <146> 

75 DATA 234,234,234,234,234,234,234,234,23 
4,234, 234 , 234 , 234,234 , 234 , 234 , 234 <1 07> 

76 DATA 234,234,234,234,234,160,0,166,173, 
208,17,162,3,169,42,32,210,255 <093> 

77 DATA 202,208,248,36,170,48,133,76,106,1 

66, 36, 170, 80, 41, 169, 8., 36, 171, 240 <123> 

78 DATA 35,177,251,41,252,133,173,200,177, 
251,10,168,185,60,3,141,174,0,200 <141> 

79 DATA 185,60,3,141,17-5,0,32,190,166,164, 
182,32,147,166,32,203,164,189,91 <250> 

60 DATA 161,32,210,255,169,147,161,32,210, 

255,189,203,161,32,210,255,169 <113>- 

81 DATA 32,36,171,240,3,32,73,163,16*2,32,1 
69,4,36,171,240,2,162,40,138,32 <060> 

82 DATA 210,255,36,171,80,5,169,35,32,210, . 
255,32,44,165,136,240,22,169,8 <190> 

83 DATA 36,171,240,7,169,77,32,210,255,160 
,1,185,173,0,32,42,163,136,208 <082> 

84 DATA 247,160,3,185,172,160,36,171,240,9 
,185,175,160,190,178,160,32,66 <198> 

85 DATA 163,136,208,237,165,182,32,103,163 
,56,233,1,208,248,96,164,211,169 <080> 

86 DATA 32,145,209,200,192,22,144,249,96,2 
28,171,208,4,5,173,133,173,96,185 <102> 

8? DATA 173,0,145,251,209,251,208,4,136,16 

,244,96,104,104,96,208,28,138,5 <140> 

88 DATA 171,133,171,169,4,133,181,32,207,2 
55,201,32,240,13,201,36,240,9,201 <243> 

89 DATA 40,240,5,201,44,240,1,96,198,181,2 
08,232,96,224,24,48,14,173,174 <162> 

90 DATA 0,56,233,2,56,229,251,141,174,0,16 
0,64,96,32,126,162,133,253,165 <245> 

91 DATA 252,133,254,32,81,163,32,228,166,4 
8,251,16,246,169,0,133,211,32,76 <135> 

92 DATA 163,32,35,163,32,76,163,32,207,255 
,169,1,133,211,162,128,208,5,162 <001> 

93 DATA 128,142,177,2,134,170,32,126,152,1 

6 9,22,133,200,44,177,2,16,8,234 <098> 

94 DATA 234, 32, 207, 25S, 234, 234, 234, 169, 0,1 
41,177,2,32,161,166,201,70,208 <236> 



95 DATA 22,70,170,104,104,162,2,181,250,72 
,181,252,149,250,104,149,252,202 

96 DATA 208,243,76,100,165,201,46,208,17,3 
2,154,162,160,0,145,251,209,251 

97 DATA 208,4,32,103,163,200,136,96,162,25 
3,201,77,208,25,32,154,162,160 ■ 

98 DATA 0,201,63,176,239,10,168,165,251,15 
3,60,3,165,252,200,153,60,3,32 

99 DATA- 161,166,149,169,224,253,208,4,169, 
7,133,183,232,208,240,162,56,165 

100 DATA 166,221,91,161,240,5,202,208,246, 
202,96,165,167,221,147,161,208,244 

101 DATA 165,168,221,203,161,208,237,189,1 
7,161,133,173,32,161,166,160,0,224 

102 DATA 32,16,9,201,32,208,8,189,77,161,1 
33 , 173 , 76 , 49 , 168 , 160 ,8 , 201 , 77 , 240 

103 DATA 32,160,64,201,35,240,26,32,157,16 
2, 141, 174 ,0,141, 175, 0,32, , 161, 166 

104 DATA 160,32,201,48,144,27,201,71,176,2 
3,160,128,198,211,32,161,166,32 

105 DATA 157,162,141,174,0,32,161,166,192, 
8, 240, 3, 32, 190, 166, 132, 171,1 62,1 

106 DATA 201,88,32,154,166,162,4,201,41,32 
,154,166,162,2,201,89,32,154,166 

107 DATA 165,173,41,13,240,10,162,64,169,8 
,32,129,166,169,24,4,4,169,28,162 

108 DATA 130,32,129,166,160,8,165,173,201, 
32,240,9,190,3,162,185,11,162,32 

109 DATA 129,166,136,208,244,165,171,16,1, 
200,200,32,138,166,198,183,165,183 

110 DATA 133,211,76,151,165,32,141,162,141 
,175,2,96,32,141,162,141,176,2,96 

111 DATA 76,209,162,160,2,132,188,136,132, 
185,132,187,136,132,183,32,202,162 

112 DATA 201,34,208,234,32,202,162,145,187 
,200,230,183,201,34,208,244,198 

113 DATA 183,173,176,2,133,186,165,172,201 
,83,240,19,32,194,162,240,9,162 

114 DATA 135,32,128,162,169,0,133,185,169, 
0,108,48,3,162,193,32,128,162,162 

115 DATA 174,32,128,162,108,50,3,32,126,16 
2,32,202,162,73,2,74,74,8,32,128 

116 DATA 162,32,81,163,40,176,12,165,253,1 
01,251,170,165,254,101,252,56,176 

117 DATA 9, 165>251,229, 253, 170, 165, 252, 229 
,254,168,138,132,252,133,251,132 

118 DATA 98,133,99,8,169,0,133,211,32,117, 
166,165,252,208,15,32,73,163,165 

119 DATA 251,32,42,163,165,251,32,208,163, 
240,3,32,35,163,32,76,163,162,144 

120 DATA 234,234,234,234,234,234,234,234,2 
34,40,32,73,220,32,221,221,234,234 

121 DATA 234,234,234,76,86,163,32,141,162, 
170,164,211,177,209,73,3 2,240,163 

122 DATA 138,168,32,154,162,56,176,169,32, 
. 184,162,160,8,72,32,202,162,201 

123 DATA 49,104,42,136,208,245,240,235,32, 
184,162,162,0,138,134,251,133,252 

124 DATA 168,32,207,255,201,56,176,132,233 
,47,176,4,56,76,196,168,133,253 

125 DATA 6,251,38,252,165,252,133,254,165, 
251,10,38,254,10,38,254,24,101,251 

126 DATA 8,24,101,253,170,165,254,101,'252, 
40,105,0,76,52,16 9,32,122,162,234 

127 DATA 234,234,234,162,4,189,135,160,149 
,170,202,16,248,32,81,163,166,170 

128 DATA 165,171,32,205,221,230,170,208,2, 
. 230,171,169,68,32,210,255,169,193 

129 DATA 32,210,255,160,0,177,251,132,98,1 
33,99,32,209,221,32,99,164,162,3 

130 DATA 176,10,169,44,166,211,224,73,144, 
227,162,9,134,198,189,125,160,157 

131 DATA 118,2,202,208,247,76,110,163,32,1 
22,162,32,141,162,162,0,12 9,251 

132 DATA 72,32,99,164,104,144,247,96,32,90 
,162,165,166,208,2,198,167,198,166 

133 DATA 32,48,170,134,181,160,2,144,4,162 
,2,160,0,24,165,166,101,174,133 

134 DATA 170,165,167,101,175,133,171,161,1 
64,129,168,65,168,5,181,133,181 

135 DATA 165,164,197,166,165,165,229,167,1 
76,29,24,181,164,121,107,160,149 

136 DATA 164,181,165,121,108,160,149,165,1 
38,24,105,4,170,201,7,144,232,233 

137 DATA 8,170,176,207,165,181,240,15,76,2 
09,162,56,162,254,181,170,245,166 



<192> 



<024> 

<132> 



<130> 



<159> 

<100> 



<235> 



<168> 



<246> 



<132> 



<091> 



<172> 



<247> 



<033> 



<240> 



<096> 



<103> 
<127> 



<079> 



<072> 



<061> 



<142> 



<106> 

<128> 



<117> 



<115> 
<058> 
<180> 
<021> 
<074> 
<219> 
<000> 
<070> 
<110> 
<075> 



<166> 



<222> 



<186> 



<008> 



<080> 
<162> 



<205> 



<111> 
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138 DATA 149,176,232,208,247,96,32,98,170, 
76,214,169,76,98,170,197.167,208 <195> 

139 DATA 2,228,166,176,19,197,165,208,2,22 

8 , 1 64 , 144 , 1 1 , 133 , 180 , 138 , 24 , 1 01 < 09 1 > 

140 DATA 174,170,165,180,101,175,96,32,90, 
162,32,122,162,32,48,170,32,203 <156> 

141 DATA 164,200,169,16,36,171,240,38,166, 
251,165,252,32,70,170,134,170,177 <101> 

142 'DATA 251,133,181,32,74,165,160,1,32,70 

,170,202,138,24,229,170,145,251 <000> 

143 DATA 69, 181, 16/25, 32, 81. 163, 32. 35. 163» 
36,171,16,15.177,251,170,200,177 <001> 

144 DATA 251,32,70,170,145,251,138,136,145 
,251,32,106,166,32,102,164,144,181 <018> 

145 DATA 96,32,100,162,162,39,32,64,163,32 
,35,163,160,6,162,0,32,76,163,161 <163> 

146 DATA 251,32,57,164,208,249,162,0,32,93 
,164,240,3,76,186,170,96,32,126 <148> 

147 DATA 162,160,0,32,207,255,234,234,234, 
32,202,162,201,46,240,2,145,251 <245> 

148 DATA 200,192,16,144,242,96,32,122,162, 
162,0,161,251,193,253,208,11,32 <201> 

149 DATA 103,163,230,253,208,243,230,254,2 
08,239,32,76,163,76,35,163,169,255 <172> 

150 DATA 162,4,149,250,202,208,251,32,202, 
162,162,5,221,110,160,240,69,202 <024> 

151 DATA 208,248,134,169,32,180,171,232,32 
,207,25 5,201,32,240,243,201,44,208 <110> 

152 DATA 3,32,122,162,32,81,163,164,169,17 
7,251,32,214,171,208,24,136,16,246 <223> 

153 DATA 32,35,163,32,76,163,164,211,192,2 
0,144,9,32,148,164,32,114,164,32 <044> 

154 DATA 81,163,32,99,164,144,218,160,19,7 
6,150,164,189,115,160,133,168,189 <199> 

155 DATA 120,160,133,169,170,240,6,32,180, 

171, 202, 208, 250, 32, 122, 16£, 32, 203 <102> 

156 DATA 164,32,44,165,165,168,36,171,208, 

9 , 168 , 208 , 33 , 165 , 173 , 208 , 29 , 240 <092> 

157 DATA 13,164,169,185,173,0,32,214,171,2 

08.17.136.208.245.132.170.32.140 <212> 

158 DATA 165,32,111,164,32,102,164,144,209 
,96,32,106,166,240,245,32,192,171 <134> 

159 DATA 157,204,3,189,60,3,157,108,3,32,2 
02,162,160,15,201,42,208,2,160,0 <213> 

160 DATA 32,175,162,157,60,3,152,157,156,3 

,96, 133, 180, 74, 74, 74, 74, 89, 108, 3 <245> 

161 DATA 57,204,3,41,15,208,10,165,180,89, 
60,3,57,156,3,41,15,96,104,104,32 <114> 

162 DATA 207,255,201,87,208,3,76,86,173,20 
1,66,208,3,76,208,173,201,81,208 <255> 

163 DATA 3/76,79,173,201,83,240,3,76,209,1 
62,32,141,162,7 2,32,141,162,72,32 <254> 

164 DATA 73,162,160,0,177,251,141,188,2,15 
2,145,251,169,54,141,22,3,169,172 <212> 

165 DATA 141,23,3,162,252,76,236,163,162,3 
,104,157,170,2,202,16,249,104,104 <127> 

166 DATA 186,142,174,2,173,168,2,133,252,1 
73,169,2,133,251,173,188,2,160,0 <145> 

167 DATA 145,251,169,20,141,22,3,169,16211 
41,23,3,16 9,82,76,255,16 2,32,81 <066> 

168 DATA 163,234,234,234,234,234,234,234,2 ■■ 

34.96.141.171.2.8.104.41.239.141 <095> 

169 DATA 170,2,142,172,2,140,173,2,104,24, 
105,1,141,169,2,104,105,0,141,168 <144> 

170 DATA 2,169,128,141,188,2,208,16,234,16 
2,12,32,246,252,216,162,5,104,157 <115> 

171 DATA 168,2,202,16,249,173,20,3,141,187 
,2,173,21,3,141,186,2,186,142,174 <170> 

172 DATA 2,88,173,170,2,41,16,240,8,32,101 
,172,16 9,82,76,255,162,44,188,2 <103> 

173 DATA 80,31,56,173,169,2,237,189,2,141, 
177,2,173,168,2,237,190,2,13,177 <232> 

174 DATA 2,208,103,173,191,2,208,95,169,12 
8,141,188,2,48,18,78,188,2,144,205 <107> 

175 DATA 174,174,2,154,169,172,72,169,112, 
72,76,186,173,32,101,172,169,168 <178> 

176 DATA 133,251,169,2,133,252,32,76,163,1 
60,0,177,251,32,42,163,200,192,7 <09?> 

177 DATA 240,9,192,1,240,242,32,76,163,208 
,237,173,169,2,174,168,2,133,251 <144> 

178 DATA 134,252,32,73,163,32,203,164,32,1 
99,165,32,228,25 5,240,251,201,74 <1S3> 

179 DATA 208,10,169,1,141,188,2,208,47,206 
,191,2,165,145,201,254,208,38,76 <014> 

180 DATA 189,172,32,242,173,169,64,208,10, 

3 2,242,173,234,234,234,234,234,169 <020> 



181 DATA 128,141,188,2,186,142,174,2,32,73 
,162,32,101,172,173,188,2,240,55 <021> 

182 DATA 162,0,234,234,234,234,234,234,234 
,234,234,234,234,234,234,234,234 <131> 

163 DATA 234,234,234,234,234,234,234,234,2 

34,120,169,64,141,46,145,169,160 <193> 

184 DATA 141,48,145,169,71,141,40,145,142, 

41.145.169.149.162.172.141.187.2 <007> 

185 DATA 142,186,2,174,174,2,154,120,173,1 

87 . 2 . 174 . 186 . 2 . 141 . 20. 3 . 142 . 21 . 3 <042> 

186 DATA 173,168,2,72,173,169,2,72,173,170 
,2,72,173,171,2,174,172,2,172,173 <234> 

187 DATA 2,64,32,141,162,141,190,2,32,141, 
162,141,189,2,32,141,162,141,191 <204> 

188 DATA 2,76,214,162,173,184,2,174,185,2, 

141.20.3.142.21.3.96.173.20.3.174 <014> 

189 DATA 21,3,141,184,2,142,185,2,169,149, 
141,22,3,169,172,141,23,3,96,169 <033> 

190 DATA 31,141,15,144,234,234,234,234,162 
,0,189,228,175,157,208,2,232,224 <086> 

191 DATA 13, 144, 245, 162, 42, 32, 64., 163, 32, 20 

"7, 255, 201, 42, 240, 249, 162, 6, 2j2 1,210 <073> 

192 DATA 175,208,17,142,193,2,138,10,170,2 

32.139.216.175.72.202.189.216.175 <042> 

193 DATA 72.96, 202, 16, 231, 76»31, 174, 169,0, 
133,251,169,191,133,252,133,254 <142> 

194 DATA 165,251,105,4,133,253,32,252,163, 
22,225,255,240,15,173,141,2,240 <156> 

195 DATA 246,169,0,133,198,165,252,201,192 
-144,227,76,31,174,32,126,162,160 <032> 

196 DATA 18,162,0,32,202,162,32,154,162,12 
9,251,32,57,164,208,243,32,81,163 <083> 

197 DATA 75,36,174,32,85,175,173,193,2,201 
,2,20-8,3,76,235,174,162,0,189,0 <227> 

198 DATA 191, 141, 195, 2, 232U89, 0,191, 141,1 
96,2,136,76,203,174,32,194,162,208 <131> 

199 DATA 3,76,141,174,32,141,162,141,195,2 
,32,141,162,141,196,2,32,85,175 <086> 

200 DATA 173,193,2,201,2,240,32,32,13,175, 
162,13,32,198,25 5,160,0,3 2,207,255 <243> 

201 DATA 234,234,234,234,153,0,191,200,208 
,243,32,204,255,32,188,175,76,73 <043> 

202 DATA 174,32,64,175,162,13,32,201,255,1 
63,0,155,0,191,32,210,255,166,144 <058> 

203 DATA 2ZS, 3,. 200, 208, 243, 32, 204, 255, 169, 

52 , 32 . 13 , 175 , 76 , 182 , 175 , 141 , 209 <180> 

204 DATA 2, 1~3, 195, 2, 32, 121, 175, 142, 216, 2, 

141, Zl 7 , 2, 173, 196, 2, 32, 121, 175, 142 <111> 

205 DATA 215,2,141,220,2,162,15,32,201,255 
,152,3,163 ,225, 2, 32, 210, 255, 232 <034> 

206 DATA 224,13,144,245,32,204,255,76,140, 
175,152,15,32,201,255,162,0,189 <162> 

207 DATA 242,1' 7 5,32,2*10,255,232,224,8,144, 
245,75,234,255,169,15,168,162,8 <092> 

208 DATA 32,136,255,169,0,32,189,255,32,19 
2,255,159,13,168,162,8,32,186,255 <251> 

209 DATA 169,1,162,241,160,175,32,189,255, 
75.192,255,162,48,56,233,10,144 <146> 

210 DATA 3,232,176,249,105,58,96,32,140,17 

5,76 ,182,175,169,0,133,144,32,81 <144> 

211 DATA 163,169,8,32,180,255,169,111,32,1 
50,255,32,165,255,201,48,208,6,76 <144> 

212 DATA 171,255,32,165,255,32,210,255,201 
,13,208,246,32,171,255,104,104,32 <245> 

213 DATA 188,175,76,31,174,169,13,32,195,2 

5 5,169,15,76,195,255,16 9,27,141 <132> 

214 DATA 15,144,234,234,234,234,76,214,162 
,58,82,87,77,88,64,114,174,172,174 <122> 

2.15 DATA 172,174,72,174,197,175,133,175,65 

,49,58,49,51,32,48,32,49,56,32,48 <217> 

216 DATA 48,35,66,45,80,32,49,51,32,48,183 <031> 
300 OPEN 1,8, 15= CLOSE 1:IF ST=0 THEN 340 <249> 
310 PRINT "BITTE FLOPPY ANSCHALTEN, DANN <S 

PAOE> " <169> 

320 GET T$=IF T$<>" "THEN 320 <140> 

330 GOTO 300 <020> 

340 OPEN 8,8,8, "§0=SMON. EX VC20,P,W" <200> 

350 PRINT#8,CHR$(0)CHR$<160) ; <144> 

360 FOR 1=0 TO 4090=READ A:F=P+A:PRINT#B,C 

HR$(A);=NEXT <150> 

370 CLOSE 8 <183> 

380 IF P<>523777 THEN PRINT"DATAS NICHT OK 

":STOP <000> 

390 PRINT "DAT AS OK" <079> 

Listing. »SMON VC20« (SchluB) 
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Disketten-Monitor VC 20 

Neben den hervorragenden Moglichkeiten, Disketteninhalte zu bearbeiten, 

laBt sich der Bildschirminhalt nach oben und unten scrollen. 

Aufterdem stehen DOS-Erweiterungen, ahnlich dem DOS 5.1, zur Verfugung, die das 

Diskettenhandling auch vom Basic her wesentlich erleichtern. 



Schreib-/Lesebefehle des Disketten-Monitors 

R (Track Sektor) liest den angegebenen Block in den Disketten- 
[Read Block] Puffer (liest den Block, auf den zuietzt zugegriff en 

wurde). 



W (Track Sektor) schreibt den Puffer in den angegebenen Bfock 
[Write Block] (schreibt den Puffer in den letzten Block). 



N [Next Bfock] liest den logisch nachsten Block in den Puffer. 

Nach dem letzten Block wird End of File! 

ausgegeben. 
+ Siest den physikalisch nachsten Block in den 

Puffer. 

liest den physikalisch vorhergehenden Block in 

den Puffer. 



S [Show] 



zeigtaktuelle Track- und Sektornummern an. 



Puffer bearbeiten 

M (von bis) 
[Memory] 



gibt den gesamten Pufferinhalt aus. . 

(gibt den Pufferinhalt von ... bis aus. Es kdnnen 

Adressen von $00 bis $FF angegeben werden.) 

Der Puffer kann durch Uberschreiben geandert 

werden. 



CRSR Up der Puffer kann mit den Cursortasten gescrollt 

werden. 



CRSR Down 



P Adresse 

[Put Buffer 
to Memory] 



Steht noch eine Adresse des Dumps auf dem 
Bildschirm, wird bei der nachsten (vorhergehen- 
den) Adresse der Dump fortgesetzt. Ansonsten ■ * 
wird der Puffer von Anfang (Ende) ausgegeben. 
der Puffer wird in den Speicher geschrieben. 
Dazu muB eine vierstellige Adresse angegeben 
werden. Es darf auch unter das Basic-ROM und 
unter das Kemal-ROM geschrieben werden, da 
dort der Puffer am wenigsten start. Nicht zulassig 
ist der i/O-Bereich. Es werden jedoch keine Feh- 
lermeldungen ausgegeben. 



Adresse der Puffer wird aus dem angegebenen Bereich 

[Get Buffer gelesen. Es gilt das gleiche wie beim P-Befehl. 
from Memory] 



C [Copy] 



druckt den Pufferinhalt auf einem MPS 801 aus. 



Die Diskbefehle 

@ (Kommando) 



liest den Fehlerkanal. (Sendet das angegebene 
Kommando zum Floppy-Laufwerk. Das Leerzei- 
chen nach @ mu(3 entfallen.) 



$ oder @$ listet das Directory. Es werden jeweils 20 Files 

gelistet. Dann stoppt der Ausdruck. Er kann nun 
mit RUN/STOP abgebrochen oder mit einer belie- 
bigen Taste fortgesetzt werden. 



B [BAM] zeigt die BAM an. Alle Angaben werden in Hex 

ausgegeben, zum Beispiel Track 18 entspricht 
$12. 



A Track Sektor kennzeichnet den angegebenen Block in der 
[Allocate] BAM als belegt. Es wird anschlieBend zur Kon- 

trolle der B-Befehl aufgerufen. 



A T Track 
[Allocate Track] 



kennzeichnet den angegebenen Track als belegt. 



AA 



[Allocate All] 



kennzeichnet die gesamte Diskette als belegt. 



F Track Sektor 
[Free] 



gibt den angegebenen Block frei. 



F T Track 
[Free Track] 



gibt den angegebenen Track frei. 



FA 



[Free All] 



gibt die gesamte Diskette frei. 



T Track zeigt die ersten 8 Byte eines ]eden Sektors des 

[Tracking] angegebenen Tracks an. 



X [Exit] 



Disketten-Monitor verlassen 



Unbenutzte Befehle 



fuhrt einen Kaltstart des Monitors aus (kann spa- 
ter fur Erweiterungen benutzt werden). 



H es gilt das Gleiche wie unter U. 

Das Dos 

Nach dem Verlassen des Monitors werden die Befehle des DOS in der 
linken oberen Ecke des Bildschirms ausgegeben. 



DLOAD 



ladt ein Basic-Programm. Es kann direkt aus dem 
Directory ohne nachfolgenden Doppelpunkt gela- 
den werden. Soil ein File absolut geladen werden, 
ist dies mit LOAD "Name",8,1 weiterhin moglich. 



DSAVE 



speichertein Basic-Programm. 



DVERIFY 



vergleicht ein Programm mit dem Speicherinhalt. 



DIR 



listet das Directory ohne Programmveriust. Es gilt 
das bei »$« Gesagte. Anders als zum Beispiel in 
Simons Basic sjnd keine weiteren Eingaben 
zulassig. 



DISK 



sendet einen Befehl zum Floppy-Laufwerk. Der 
Befeh! mu(3 in GansefuGchen stehen. 



DERROR 



iiest den Fehlerkanal. 



DMON 



zuruck zum Disketten-Monitor. 



Die Befehle des Disketten-Monitors 
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Das Vorprogramm des Disketten-Monitors (siehe 
Listing) erzeugt nach dem Start das Hauptprogramm 
auf Diskette. Dieses wird mit SYS 40960 gestartet 
und steht im Bereich von $A000 bis $AD6D. 

Intern wird noch ein Puffer benotigt, auf den der Benutzer 
Zugriff hat. Der Puffer kann in den Speicher geschrieben und 
auch wieder geiesen werden, so daB die Mdglichkeit 
besteht, ihn mit einem Maschinensprache-Monitor zu bear- 
beiten. Es werden keine Veranderungen am DOS der 1541 
vorgenommen. 

Soweit bekannt, ist der Disketten- Monitor mit alien Ba- 
sic-Programmen und Hypra-Load kompatibel. Zu beachten 
ist iedigiich, daB der Monitor den Interrupt-Vektor und das 
DOS den Basic-Vektor benutzt. 



Die Befehle konnen entweder mit Parameter oder ohne 
Parameter eingegeben werden. Sind Parameter nicht erfor 1 - 
dertich. werden sie im foigenden in Klammern angegeben (im 
Monitor keine Klammern eingeben). Ansonsten muB zwt- 
schen den Parametem ein Leerzeichen stehen. Die Angaben 
in eckigen Klammern solien Iedigiich eine Eselsbrucke zum 
besseren Verstandnis der Befehle darstellen. Aile Eingaben 
werden mit < RETURN > abgeschlossen. Nach Disketten- 
zugriffen werden automatisch eine oder mehrere (Fehier-) 
Mekjungen des Floppy- Laufwerkes ausgegeben. 

Der Disketten-Monitor ist naturlich nur von Disketten- 
BesJ-tzern anzuwenden. Deshalb wird das Programm auch auf 
DfeKette generiert; fur Datasette ist ein ahnliches Programm 
rvcht moglich. (K.-H. Tempiin/og) 
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9,162,13,32,201,255,162,0,189,0 

50 DATA 1 75 , 32 , 2 1 B , 255 , 232 , 208 , 247 , 32 , 204 
,255,169,50,32,176,168,76,142,163 

51 DA TA1 74, 0,175, 240, 12, 173, 1,175, 142, 80 
,170,141,83,170,76,99,163,162,197 

52 DATA160, 170,76,58, 169, 174,80, 170, 173, 
83, 170, 24, 105,1,221,175, 169, 144 

53 DATA226, 169,0,232,224,36,208,219, 162, 
1,208,215,174,80,170,173,83,170 

54 DATA56 , 233 , 1 , 1 76 , 204 , 202 , 20e , 2 , 1 62 , 35 
, 188, 175, 169, 136, 152,208, 192,32 

55 DATA207, 255, 201, 13, 240, 90, 32, 237, 167, 
144, 105, 240, 103,201,36,72,32,202 

56 DATA160, 169, 128, 141, 113, 169, 104, 141, 8 
0,170,169,0,141,83,170,162,213,160 

57 DATA170, 32, 58, 169,173,80,170,32,213,1 
67,32,95,168,32,95,168,173,83,170 

58 DAT A32, 213, 167; 32, 89, 168,32,75, 169, 16 
9,4,160,0,32,67,168,32,234,168,32 

59 DATA95, 168 , 174,80, 170, 172,83, 170,200, 
152,221,175,169,176,6,141,83,170 

60 DATA76, 45, 164, 169, 0,141, 0,175, 141, 1,1 
75,141,80,170,141,83,170,141,113 

61 DATA169,32, 179, 160,96,32,207,255,201, 
13,208,74,32,95,168,169,0,133,144 

62 DATA32, 202, 160, 169,8, 133, 186,32, 180,2 
55,169,111,133,185,32,150,255,32 

63 DAT A 1 65 , 255 , 20 1 , 48 , 208 , 32 , 32 , 165 , 255 , 
201 ,48,208,8,169,145,32,210,255 

64 DATA76, 185, 164,72, 169,48,32,210,255, 1 
04,76, 180, 164,32, 165,255,36, 144 

65 DATA a 1 2 , 5 , 32 , 2 1 , 255 , 20S , 244 , 32 , 1 7 1 , 2 
55,76,179,160,201 ,36,208,3,76,233 

66 DATA164,72,32,202, 160, 169,8, 133,186,3 
2,177,255,169,111,133,185,32,147 

67 DATA255, 104,32, 168,255,32,207,255,201 
,13,208,246,32,174,255,76,117,164 

68 DATA32, 95, 168, 32, 202, 160, 169, 11, 133, 2 
53,169,0,133,144,169,62,133,187 

69 DATA169, 170, 133, 188, 169, 1 , 133, 183, 169 
,8,133,186,169,96,133,185,32,149 

70 DATA244,32, 122, 165, 164, 144,208,88, 160 
,6,132,251,32,165,255,166,252,133 

71 DATA252, 164, 144, 208, 73, 164, 251, 136, 20 
8,238,164,252,32,205,221,169,32 

72 DATA32,210,255,32, 165,255, 166, 144,208 
,51,170,240,6,32,210,255,76,51,165 

73 DATA32, 95, 168, 198, 253, 208, 31, 32, 171, 2 
55, 169, 1 1 , 133,253,32, 179, 160, 165 

74 DATA 1 97 , 20 1 , 64 , 240 , 250 , 32 , 1 1 2 , 247 , 240 
,14,32,122,165,164,144,208,7,32 

75 DATA202, 160, 160,4,208, 170,32,218,246, 
32, 179, 160, 169,0, 133, 198,76, 120 

76 DATA164, 165, 186,32, 180,255, 165, 185,32 
,150,255,96,32,237,167,144,19,168 

77 DATA169, 4, 133, 151, 32, 57, 168, 32, 57, 168 
,32,25,169,208,248,32,234,168,96 

78 DATA1 60 , , 1 40 , 1 1 1 , 169 , 136 , 140, 1 12 , 169 
,32,207,255,201,13,240,21,32,237 

79 DATA167, 144, 16, 141 ,111, 169,32,207,255 
,201,13,240,6,32,237,167,141,112 

80 DATA169, 172, 11 1 , 169,32, 100, 168,32, 1 17 
,168,152,32,213,167,32,92,168,169 

81 DATA4,32,67, 168,32,234, 168,76, 198, 165 
,32,207,255,201,13,240,34,201,32 

82 DATA240 ,245 , 201 ,84 ,240 , 109 ,201 , 65 ,208 
,3,76,159,166,32,2,168,144,96,141 

83 DATA91 ,170,32,57,168,32,237,167,144,8 



5,141,94,170,169,3,205,108,169,208 

84 DAT A3 , 1 69 , 65 , 44 , 1 69 , 70 , 1 4 1 , 87 , 1 70 , 32 , 
202,160,32,124,168,173,91,170,72 

85 DATA32, 44, 168, 142,91 , 170, 141 ,92, 170, 1 
73,94,170,72,32,44,168,142,94,170 

86 DATA141 ,95, 170, 162, 15,32,201 ,255, 162, 
0,189,85,170,32,210,255,232,224 

87 DATA 11 ,208,245, 104, 141 ,94, 170, 104, 141 
,91,170,32,204,255,32,163,168,32 

88 DATA102, 163,96,32,57, 168,32,237, 167,2 
01,0,240,245,201,36,176,241,133 

39 DATA95,32, 193, 166, 169,3,205, 108, 169,2 
08,3,24,144,1,56,8,165,95,72,32 

90 DATA206, 166, 104 , 104, 162, 1 , 142, 108, 169 
,32,99, 163, 162, 1 , 134, 198, 162, 13 

91 DATA142, 1 19,2, 169,73,32, 1|98, 164, 162,0 
,142,113,169,76,246,170,32,193,166 

92 DATA169, 35, 133,251 , 169,3,205, 10B, 169, 
208,3,24,144,1,56,8,165,251,72,32 

93 DAT A206 , 1 66 , 1 04 , 1 98*, 25 1 , 208 , 245 , 72 , 76 
, 127, 166,32,202, 160, 162, 18, 169,0 

94 DATA142, 113, 169,76, 1B4, 163, 186,232,23 
2,154,104,170,188,175,169,10,10 

95 DATA170, 40, 176, 4, 169, 0,240, 25, 152, 157 
,0,175,169,255,157,1,175,157,2,175 

96 DAT A 152, 56,233, 17, 168 , 185,21 1 , 169, 157 
,3,175,208,15,157,0,175,157,1,175 

97 DATA157, 2, 175, 157, 3, 175, 240, 1,104, 186 
,202,202,202,202,154,96,32,207,255 

98 DATA201,13,240,34,32,5B,167,32,202,16 
,234 , 234 , 234 , 234 , 234 , 177 , 251 , 153 

99 DATA0 , 1 75 , 200 , 208 , 248 , 234 , 234 , 234 , 234 
,32,179,160,169,0,141,80,170,141 

100 DATAS3, 170, 96, 32, 57, 168, 32, 2, 168, 133 
,252,32,57,168,32,2,168,133,251,160 

101 DATA0, 96, 32, 207, 255, 201, 13, 240, 229, 3 
2,58,167,185,0,175,145,251,200,208 

102 DATA248,76,49, 167, 169,4, 170, 160,0,32 
,166,255,169,0,32,189,255,32,192 

103 DATA255,162,4,162,4,32,201,255,76,20 
2,160,32,95,168,32,95,168,162,226 

104 DATA 160, 170, 32, 58, 169, 173, 80, 170, 32, 
213,167,162,235,160,170,32,58,169 

105 DATA173,83, 170,32,213, 167,76,95, 168, 
o2, 207, 255, 201, 13, 240, 9, 201, 36, 240 

106 DATA41, 201, 66, 240, 38, 96, 32, 192, 167, 3 
2,95,168,32,204,255,169,4,32,195 

107 DATA255, 76, 179, 160, 160,255, 140, 1 12, 1 
69,200,140,111,169,32,98,167,32,124 

108 DATA167, 32, 195, 165,96,96,96,72,74,74 
,74,74,32,23,168,170,104,41,15,32 

109 DATA23, 168,72, 138,32,210,255, 104,76, 
210,255,169,0,141,110,169,32,57,168 

110 DATA20i,32,208,9,32,57,168,201,32,20 
8,15,24,96,32,33,168,10,10,10,10 

111 DATA141,110,169,32,57,168,32,33,168, 
13,110,169,56,96,24,105,246,144,2 . 

112 .DATA105,6,105,5S,96,201,58,S,41,15,4 
0,144,2,105,8,96,162,48,56,233,10 

113 DATA144,3,232, 176,249, 105,58,96,32,2 
07,255,^01,13,208,2,104,104,96,133 

114 DATA151, 32, 92, 168, 185, 0,175, 32, 213,1 
67,200,208,3,238,109,169,198,151 

115 DATA208, 237, 96,32,92, 168, 169,32,44,1 
69,13,76,210,255,173,109,169,208 

116 DATA6, 204, 112, 169, 176, 1,96, 104, 104, 9 
6,32,95,168,169,58,162,13,76,228 

1 17 DAT A 167, 32, 202, 160, 169, 15, 168, 162,8, 
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32,186,255,169,0,32,189,255,32,192 

118 BATA255, 169, 13, 168, 162,8,32, 186,255, 
169,1,162,63,160,170,32,189,255,76 

119 DATA192,255, 169, 13,32, 195,255, 169, 15 
,32,195,255,76,179,160,141,73,170 

12E DATA173,80, 170,72,32,44, 168, 142,80,1 
70,141,81,170,173,83,170,72,32,44 

121 DATA168,142,33,170, 141 ,84,170, 162,15 
,32,201,255,162,0, 189,72, 170,32,210 

122 DATA255 ,232 , 224 , 13 , 208 , 245 , 104 , 141 ,8 
3,170,104,141,80,170,76,204,255,152 

123 DATA56, 233, 4, 168, 32, 92, 168,169,18,32 
,210,255,162,4,185,0,1^5,41,127,201 

124 DATA32, 176,4, 16^,46,208,3, 185,0, 175, 
32,210,255,169,0,133,212,200,202 

125 DATA208,229, 169, 146,76,210,255,32,23 
7,167,144,3,153,0,175,200,198,151 

126 DATA96,162,i5,32,201,255,162,0,189,6. 
4,170,32,210,255,232,224,8,208,245 

127 DAT A76, 204, 255, 134, 251, 132, 252, 160,0 
,177,251,240,6,32,210,255,200,208 

128 DATA246,96,32, 124, 168, 169,49,32, 176, 
168,162,13,32,198,255,162,0,32,207 

129 DATA255, 157,0, 1^5,232,224,4,208,245, 
32,204,255,76,163,168,255,13,0,0 

130 DATA144,164, 128,6,58,87,82,65,70,78, 
64,36,77,71,80,83,67,88,66,85,72 

131 DATA43,45,84, 165,163^163,165,165,163 
,164,164,165,167,167,167,167,162 

132 DATA170, 159, 159, 163, 163, 163, 132,72,7 
2,221,221,175,109,232,157,15,76,123 

133 DAT A 158, 95, 245, 255, 255, 199,224,247,0 
,21,21,21,21,21,21,21,21,21,21,21 

134 DATA21, 21, 21, 21, 21, 21, 19, 19, 19, 19, 19 
,19, 19, 18, 18, 18, IB, IB, IB, 17, 17, 17 

135 DATA17, 17, 1,3, 7, 31, 31, 147,31,18,49,5 
3,52,49,32,68,73,33,^5,45,77,79,78 

136 DATA73, 84, 79, 82,32,86, 50, 46, 53, 13,40 
,67,41,32,66,89,32,72,79,82,83,84 

137 DATA32,S2,6 : ?,73, 67,72,69,82,84, 13,32 
"^^ T"? 7? "T 1 ? S~? ^t 4P 4P "^2 - H"^ 73 

138 DATA69,71 ,69,78,13,0,0,0,0,0,0,0,0,0 
,0,0, 0,0, 0,0, 0,0,0, .2,2,2, 0,0, 0,0 

139 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,36, 35, 66 
,45,80,32,49,51,32,48,85,49,58,49 

140 DATA51, 32, 48, 32, 18,56 ,32,0^48,66,45, 
70, 32, 4B, 32, 1,49, 32, 8,48,147,0,148 

141 DATA0, 149, 0,73, 8-3,75,0,73,82, 0,69, 82 
,82, 176,0,77, 145,0,223, 162,236, 162 

142 DAT A220, 162, 27, 163, 66, 163, 18, 163, 255 
,159,147,154,18,68,76,79,65,68,32 

143 DATA32, 13, 18,68,83,65,86,69,32,32, 13 
,18,68,86,69,82,73,78,8^,13,18,68 

144 DAT A73, 82, 32, 32 ,32, 32, 13, 13,68,73,83 
,75,32,32,32,13,18,68,69,82,82,79 

145 DATA82, 32, 13, 18,68,77,79,78,32,32,32 
,13,0,32,32,69,78,68,32,79,70,32 

146 DATA70, 73, 76, 69, 32, 33, 0,147,32,84,82 
,65,67,75,32,58,32,0,32,32,84,82 

147 DATA65, 67, 75, 32, 58, 32, 3, 32, 83, 69, 75, 
84,79,82,32,58,32,0,32,4,171,162 

148 DATA0, 142, 113, 169,32, 179, 160,76,30,1 
72,32,193,166,162,41 ,160, 172,32,58 

149 DATA169, 162, 144, 189,0, ITS, 32, 210, 255 
,232,224,160,208,245,32,89,163,162 

150 DATA95, 160, 172, 32, 58, 169, 173, 162, 175 
,32,210,255,173,163,175,32,210,255 



151 DAT A32, 30,1" 



!, 117,17: 



!34 , 234 



,160,20,152,32,213,167,169,45,32 

152 DATA210, 255, 152,240,3,32,95, 168,136, 
152,16,238,162,0,160,3,32,12,229 

153 DATA 160, 2, 169,48,162,15,208, 10,234,2 
34 , 234 , 234 , 234 , 234 , 234 , 234 , 162 ,3 

154 DATA32, 210, 255, 202, 208, 250, 24, 105,1, 
136, 20B, 242, 162, 1 , 160,3,32, 12,229 

155 DATA160, 18, 169, 1,133, 251, 32,23, 168, 3 
2,210,255,230,251 , 165,251 ,201 , 16 

156 DATA208, 4, 169, 0,133, 251, 136, 208, 235, 
169,1,133,2,162,2,165,2,105,2,168 

157 DATA32, 12,229, 162,20, 134, 139, 169, 175 
,133,141,169,1,166,2,105,4,202,208 

158 DATA251,133,140, 165, 139,166,2,224,18 
, 144,32,224,25,144,20,224,31 ,144 

159 DATA8, 201, 17, 144, 20, 162, 4, 208, 42, 201 
,18,144,12,162,4,208,34,201,19,144 

160 DATA4, 162,4,208,26, 165,139,74,74,74, 
168, 177, 140, 16B, 165, 139, 41, 7, 170 

161 DATA152, 61, 102, 1*72, 208, 4, 162, 0,240, 2 
,162,2,160,2,189,110,172,32,210,255 

162 DATA232, 136,208,246, 165, 139,240,5, 16 
9,17,32,210,255,198,139,16,165,230 

163 DATA2, 165,2,201 , 19,240, 103,76, 154, 17 
1,96,169,0,133, 198, 165, 19B, 240, 252 

164 DATA198, 198,96, 147,42,61,66,69,76,69 
,71,84,13,46,61,70,82,69,73,13,166 

165 DATA61,76,69,69,B2,13,13,6B,73,83,75 
,78,65,77,69,32,58,32,0,0,0,0,0,0 

166 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,13, 73, 68 
,32,58,32,0,1,2,4,8,16,32,64,128 

167 DATA42, 157,46, 157, 166, 157 ,96, 169, 147 
,32,210,255,32,95, 168,32,95, 16B, 96 

168 DATA32, 30, 172, 32, 117, 172, 160, 20, 152, 
32,213,167,169,45,32,210,255,152 

169 DATA240 r ,3,32,95,168, 136,152,16,238,1 
62,0,160,3,32,12,229,160,2,169,49 

170 DATA162, 13,208, 10,234,234,234,234,23 
4,234,234,234,162,4,32,210,255,202 

171 DATA208,250,24, 105, 1 , 136,208,242, 162 
,1,160,3,32,12,229,160,17,169,3,133 

172 DATA251, 32, 23, 168, 32, 210, 255, 230, 251 
,165,251,201 ,16,208,4,169,0,133,251 

173 DATA136, 208, 235, 169, 1,133, 3, 162, 2, 16 
5,3,105,2,168,32,12,229,162,20,134 

174 DATA139, 169, 175, 133, 141, 169, 1,166, 2, 
105,4,202,208,251,133,140,165,139 

175 DATA166, 2, 224, 18,144,32,224,25,144,2 
0,224,31,144,8,201,17,144,20,162 

176 DATA4, 208, 42, 201, 18, 144, 12, 162, 4, 208 
,34,201,19,144,4,162,4,208,26,165 

177 DATA139,74,74,74,168,177,140,168,165 
,139,41,7,170,152,61,102,172,208 

178 DATA4, 162, 0,240, 2, 162, 2, 160, 2, 189, 11 
0,172,32,210,255,232,136,208,246 

179 DATA165, 139,240,5, 169, 17,32,210,255, 
198,139,16,165,230,2,230,3,165,3 

180 DATA201,18,240,3,76,231,172,96 
200 0PEN8,8,8,"DI5K-!i0NIT0R VC20,P,W" 
210 PRINT#8,CHR*(0)CHR*(160) ; 

220 FOR I =0TD3436 s RE AD A : P=P+A : PR I NT#8 , CHR 

* (A);: NEXT 

230 CLOSES 

240 IFPO420282THENPRINT"DATAS NIGHT OK! 

" : STOP 

250 PR I NT "DAT AS OK" 

Listing. »Disketten-Monitor« fur den VC 20 (Schluft) 
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40 Zeichen 
auf dem VC 20 



Gut lesbare 40 Zeichen pro Zeile sind ein alter 
Wunsch fur VC 20-Besitzer. Durch einen frei defi- 
nierbaren Zeichensatz ist das Programm selbst 
40-Zeichen-Karten uberiegen. 10 neue Befehle 
unterstutzen die Programmierung. 

Extended Screen V 4.0 wird vom DATA-Lader (siehe 
Listing) im Modulbereich ab $AOOO (RAM-Erweite- 
rung!) abgelegt und setzt daher einen voll ausgebau- 
ten VC 20 voraus. Das Programm erganzt das Commodore 
Basic urn insgesamt 10 neue Befehle, die afie dazu dienen, 
die Biidschirmdarstellung des VC 20 auf 22 Zeilen a 40 Zei- 
chen zu erweitern (Bild 1 und 2). Hierzu werden im Bereich 
1000 bis 1F00 ein Grafikbildschirm und eine Bit-Map einge- 
richtet, in die die Zeichen spater hineinkopiert werden. Die 
neuen Zeichen erhalten dabei eine Matrix von 8x4 Biidpunk- 
ten, sind also genauso hoch, jedoch nunhalb so breit wie die 
Zeichen des normalen Bildschirms. 

Urn die neuen Befehie ins Basic einzubinden, wird der Vek- 
tor fur Basic-Befehlsadresse (0308/0309) auf eine Routine 
gerichtet, die vor der Ermittlung einer Befehlsadresse 
zunachst uberpruft, ob ein Befehl mit vorangestelltem Ausru- 
fungszeichen vorliegt fst dies der Fall, so wird in eine neue 
Auswertungsroutine verzweigt. Ebenfalls verandert werden 
mussen: der Vektor fur Fehlermeldung (0300/0301), der 
IRQ-Vektor (0314/0315), der BRK-Vektor (0316/0317) und 
der NMI-Vektor (0318/0319). Die neue Routine zur Fehler- 
ausgabe loscht vor jeder Meldung zunachst den BifdschirrrK 
speicher und schaltet in den 22-Zeichen-Modus urn, damit 
eventuelle Fehler nicht dadurch unerkannt bleiben, daB sich 
die entsprechende Meldung irgendwo in der Bit-Map des 
40-Zeichen-Modus verliert. Die neue fRQ-Routine halt den 
Basic-Start standig uber 1F00, urn Basic-Programme so vor 
einer Zerstorung durch das Einschalten des*40-Zeichen- 
Modus zu schutzen. 

Die neuen BRK- und NMI-Routinen dienen nur dazu, 
ein Verandern des IRQ-Vektors beim < RUN/STOP + 
RESTORE > zu verhindern. Der letzte Vektor, den das Pro- 
gramm verandert, ist der Ausgabe-Vektor (0326/0327). 
Sobald der 40-Zeichen-Modus eingeschaltet wird, wird die- 
ser Vektor auf eine Routine gerichtet, die einen »?BAD MODE 
ERROR« ausgibt, wenn irgendein Standart-Basic-Befehl auf- 
gerufen wird, der normalerweise eine Bildschirmausgabe zur 
Folge hatte (PRINT, INPUT, etc.). 

Die neuen Befehle 



!F(Fourty) 

Schaitetin den 40-Zeichen-Modus urn. In diesem Modus darf 
nur mit Hilfe der neuen Befehie gedruckt werden! Dazu steht 
jedoch nicht der gesamte Zeichensatz des VC 20 zur Verfu- 
gung. Der 40-Zeichen-Modus kennt lediglich die 
CHR$-Codes 32-95, 18 und 146. Dieses Manko wird 
jedoch durch den Befehl !D mehr ais ausgeglichen. 
!T (Twenty) 
Schaltet zuruck in den 22-Zeichen-Modus. Bei diesem, wie 



auch bei dem !F-Befehl sollte man gleichzeitig die Befehle !H 
und !S einsetzen, um ein flimmerfreies Umschaiten zu erzie- 
len. 

!H (Hide) 

Schaltet den Bildschirm ab. 
!S (Show) . 

Schaltet den Bildschirm wieder ein und zentriert ihn je nach- 
dem, ob er im 40- oder 22-Zeichen-Modus eingesetzt wird. 
!P (Print) .. . !Px,y,string 

Scnreibt den »string« im 40-Zeichen-Modus an die Bild- 
schirmposition »x/y«. Fur »x« darf entweder eine Zahl zwi- 
schen und 39, eine Variable oder ein Ausdruck stehen. Fur 
»y« gilt das gleiche, nur muB hier die Zahl zwischen und 21 
liegen. Fur »string« steht entweder ein Text in Anfuhrungszei- 
chen, eine Stringvariable Oder ein Ausdruck. Zahlen mussen 
uber die STR-Funktion in einen String umgewandelt werden. 
Wird !P im 22-Zeichen-Modus eingesetzt, so quittiert der 
Computer dies mit einem »?BAD MODE ERROR«. 
!M (Middle) . . . !My,string 

Druckt den »string« im 40-Zeichen-Modus in der in »y« ange- 
gebenen Zeife zentrisch, also genau in der Zeilenmitte. Fur 
»y« und »string« gilt das gleiche wie unter !P erwahnt. Auch 
dieser Befehl verursacht im 22-Zeichen-Modus einen »?BAD 
MODE ERROR«. Der String darf hochstens 40 Zeichen lang 
sein! 

!l (Inkey) ... !lx, y,e,stringvariable 
Mit diesem Befehl konnen Texteingaben im 40-Zeichen- 
Modus vorgenommen werden. Fur x und y giit das gleiche 
wie unter I P erwahnt. Fur »l« steht eine Zahl, eine numerische 
Variable oder ein Ausdruck. »l« gibt die maximale erlaubte 
Lange des einzugebenden Strings an. »stringvariable« steht 
fur die Variable, in der der eingegebene String spater stehen 
soil. Fur ! I gilt genau wie fur aile anderen Befehle, daB ein aus- 
zudruckender String nie den rechten Bildschirmrand uber- 
schreiten darf. 

Beim !I-Befehi werden alle Tasten mit CHR$-Code 32-95, 
20 und 13 akzeptiert; eine Cursormanipufation ist also nicht 
moglich. Ist bei einer Eingabe die in »l« angegebene Hochst- 
lange erreicht, so werden nur noch die Tasten < RETURN > 
und <DEL> akzeptiert! Zu beachten ist noch, daB die 
Summe aus x + I immer kleiner als 40 sein muB! 
!C (Color) ... !Cf 

Verandert die Druckfarbe entsprechend »f«, wobei fur »f« eine 
Zahl zwischen und 7, eine numerische Variable oder ein 
Ausdruck stehen kann. Zu beachten ist, daB die Druckfarbe 
immer auf dem gesamten Bildschirm gleich ist. Beim 
Umschaiten in den 40-Zeichen-Modus wird eine Druckfarbe 
dem Wert in 0286 (aktueller Farbcode) entsprechend einge- 
stellt. 

!D (Define) . . . !Dz,w1,w2,w3,w4,w5,w6,w7,w8 
Hierbei handelt es sich um einen Befehl, den wohl die wenig- 
sten 40-Zeichen-Karten bieten durften. Er ermogficht das 
Definieren eigener Sonderzeichen fur den 40-Zeichen- 
Modus! Fur »z« steht entweder eine Zahl zwischen 32 und 
95, eine numerische Variable oder ein Ausdruck. »z« gibt den 
CHR$-Code des Zeichens, das umdefiniert werden soil. 
»w1« bis »w8« sind jeweils Zahlen zwischen und 15, numeri- 
sche Variablen oder Ausdrucke. Sie geben die neue Matrix 
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des Zeichens an und errechnen sich genau wie be-im U^defi- 
nieren eines Zeichens des normalen Zeichensatzes. 
!R (Re-define) 

Steilt den normalen Zeichensatz der 40-Zeichen-Karie *-"e- 
der her. 

Frei definierbarer Zeichensatz 



Fur die Assembler-Freaks sei noch erwahnt wie ~<r. 3~ 
neuen Befehle auch mit Assembler nutzen kann. Dies st ten- 
der nicht bei jedem Befehl direkt moglich. Die Insey-RouTr* 
zum Beispiel endet mit dem Ubertragen des eingegeberer 
Textes in die angegebene Variable, deren Name zj oesen- 
Zweck aus dem Basic-Text gelesen wird. Wenn rna- dese 
Routine nun vom Assembler aufrufen wurda sc wCros se 
immermiteinem »?SYNTAXERROR«enden, dajak&nSasic- 
Text vorhanden ware, aus dem sie einen VanaiDienrar"*^ 
lesen konnte. Ahnlich verhalt es sich auch mit dern> De*r*s- 
Befehl. Er liest wahrend der Abarbeitung immer *iecaer a*e 
zur Umdefinierung eines Zeichens notigen We^te aus oer- 
Basic-Text. 

Doch nun zu nutzbaren Routinen: 
Umschalten in den 40-Zeichen-Modus: JSR S A1GE 
Umschalten in den 22-Zeichen-Modus: JSR S A1SG 
Bildschirm abschalten: JSR $ A1B6 
Bildschirm einschalten: JSR S A1BF 
Druckfarbe andern: 
LDA #$ (Farbcode 00 bis 07) 
JSR$A174 



String an Position x/y ausgeben; 

LDX #$ (X-Koordinate) 

LDY #$ (Y-Koordinate) 

STX $ 02AA 

STY S 02 AB 

JSRS A415 

LDXS 62 

LDYS 63. 

STX S 02AE 

STY S 02AF 

LDA *=$ (Lange des auszugebenden Strings) 

wDX ==S (LSB der Adresse, an der der String im Speicher 

steht) 
LDY ±S (MSB der Adresse, an der der String im Speicher 

steht) 
^SR S A4B4 

String zentrisch in Zeile y ausgeben: j 

LDY = $ ! Y-Koordinate) 

STY $ 02AB 

LDA == 5 (Lange des auszugebenden Strings) 

LDX *S i'LSB der Adresse, an der der String im Speicher 

steht) 
LDY aeS (MSB der Adresse, an der der String im Speicher 

steht} 
^SR 5 A5E3 

Sormaien Zeichensatz wieder herstellen: 
,,-SR -5 A675 

{M- Fichtner/og) 



10 PRINT" -CCLR,2D0WN, RIGHT} EX TENDED S£3*£EX 

V4. 0" : PRINT" ODOWN,4RIBHT , 2SPACE>ftf 3 RIl_ 

19B5" 
20 PRINT" <3D0WN,RIGHT>BY MATTHIAS FICHTf^R 

":PRINT"€DDWN,4RIGHT}LDRTZINGSTR, 10C* 
30 PRINT" -CDQWN,4RIGHT>6729 WOERTH/RH. 1 - s PR 

INT" {DOWN, 4RIGHT>TEL. 5 07271/6622" 
40 PRINT" OD0WN,RIGHT>PLEASE WAIT A MOMENT 

50 FOR T=0 TO 1972s READ B: Z=Z+B:NEXT: IF Z< 
>225685 THEN PRINT" {CLR, DOWN, 4R I GHT> ERR 
OR IN DATAS"sEND 

60 RESTORE; FOR T=0 TO 1972s READ BsPOKE 409 
60+T,B;NEXTsPRINT"-CUP,5SPACE>HIT 'CTRL' 
! *5SPACE>" 

70 WAIT 653,4: PRINT" {CLR}"; sSYS 40960 

100 DATA 120,169,80,141,0,3,169,160,141,1, 
3,169,137,141,8,3,169,160,141,9 

101 DATA 3,169,67,141,20,3,169,160,141,21, 
3,169,213,141,22,3,169,254,141,23 

102 DATA 3,169,93,141,24,3,169,160,141,25, 
3,169,31,133,44,169,0,141,0,31,32 

103 DATA 68,198,88,76,116,196,165,44,201,3 
1,176,4,169,31,133,44,76,191,234 

104 DATA 138,72,32,128,161,32,191,161,104, 
170,76,58,196,72,138,72,152,72,173 

105 DATA 29,145,16,28,45,30,145,170,41,2,2 
40,23,44,17,145,32,52,247,32,225 

106 DATA 255,208,9,32,249,253,32,24,229,10 
8,2,192,76,255,254,76,222,254,32 

107 DATA 115,0,201,33,240,6,32,121,0,76,23 
1,199,32,115,0,170,32,115,0,224 

108 DATA 70,208,6,32,14,161,76,174,199,224 
,72,208,6,32,182,161,76,174,199 

109 DATA 224,83,208,6,32,191,161,76,174,19 
9,224,84,208,6,32,128,161,76,174 

110 DATA 199,224,67,208,6,32,182^165,76,17 
4,199,224,77,208,6,32,202,165,76 

111 DATA 174,199,224,80,208,6,32,147,164,7 
6,174,199,224,68,208,6,32,21,166 

112 DATA 76,174,199,224,82,208,6,32,117,16 
6,76,174,199,224,73,208,6,32,180 

113 DATA 166,76,174,199,76,4,207,234,234,2 
34 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 



< 16: > 

< 853 > 

<vm> 

<aea> 



<195> 


' ~i! 


<066> 






122 


<23Q> 




<B6I> 






124 


<013> 






125 


<192> 






126 


<113> 






127 


<130> 






128 


<126> 






12"? 


<218> 






130 


<007> 






131 


<232> 






132 


<241> ■ 






133 


<059> 




<057> 




<195> 


List 



::~ DATA 169,165,169,128,141,145,2,169,147 

,32,210,255,169,14,141,0,144,169 <248> 

115 DATA 20,141,2,144,169,151,141,3,144,16 

5,40, 141, l c 66, 2, 169, 224, 141, 60, 161 <229> 

Hi DATA 169,16,141,61,161,169,0,141,0,31, 

238,60,161,208,248,238,61,161,172 <148> 

::~ DATA 61,161,192,31,144,238,162,0,169,1 

*, 157,0,16,232,168,200,152,224,220 <202> 

:i» DATA 208,245,169,204,141,5,144,169,220 

, 141, 3B, 3, 169, 161, 141, 39, 3, 173, 134 <139> 

::» DATA 2,201,8,144,2,169,6,162,221,157,2 

55 , 147 , 202 , 208 , 250 , 96 ,234 , 234 ,234 < 098> 

128 DATA 169,0,141,145,2,169,122,141,38,3, 

169,242,141,39,3,169,147,32,210 <240> 
DATA 255,169,22,141,2,144,169,174,141, 
3,144,169,192,141,5,144,169,12,141 <028> 
DATA 0, 144, 169,22, 141 ,2, 144, 169,0, 141 , 
166,2,96,234,234,234,169,255,141 <047> 
DATA 1,144,96,234,234,234,173,166,2,24 
0,4,169,40,208,2,169,38,141,1,144 <063> 
DATA 96,234,234,234,13,63,66,65,68,32, 
77,79,68,69,0,32,128,161,32,191 <118> 
DATA 161 ,169,209,160,161,32,30,203,76, 
101,196,234,234,234,0,0,0,0,0,0 <092> 
DATA 0,0,68,68,68,68,60,0,68,0,170,170 
,0,0,0,0,0,0,0,170,238,170,238,170 <083> 
DATA 0,0,68,238,136,238,34,238,68,0,17 
0,34,68,68,68,136,170,0,238,136 <221> 
DATA 68,68,68,136,238,0,68,136,0,0,0,0 
, , , 34 , 68 , 68 , 68 , 68 , 68 , 34 , , 136 <253> 
E>ATA 68 , 68 , 68 , 68 , 68 , 136 , , , 170 , 238 , 68 
,238,170,0,0,0,0,68,238,68,0,0,0 <126> 
DATA 0,0,0,0,0,68,68,136,0,0,0,238,0,0 
,0,0,0,0,0,0,0,0,68,0,34,34,68,68 <144> 
DATA 68,136,136,0,68,170,170,170,238,1 
70,68,0,68,204,68,68,68,68,238,0 <043> 
DATA 68,170,34,68,136,136,238,0,68,170 
,34,68,34,170,68,0,136, 136,170,238 <175> 
DATA 34,34,34,0,238,136,136,204,34,34, 
204,0,68,170,136,204,170,170,68 <239> 
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134 DATA 0,238,34,34,68,68,68,68,0,68,170, 
170,68,170,170,68,0,68,170,170,102 <011> 

135 DATA 34,170,68,0,0,0,68,0,68,0,0,0,0,0 
,0,68,0,68,68,136,0,34,68,136,68 <181> 

136 DATA 34,0,0,0,0,238,0,238,0,0,0,0,136, 
68,34,68,136,0,0,68,170,34,68,68 <035> 

137 DATA 0,68,0,68,170,170,204,136,170,68, 
0,68,170,170,238,170,170,170,0,204 <093> 

138 DATA 170,170,204,170,170,204,0,68,170, 
136,136,136,170,68,0,204,170,170 <225> 

139 DATA 170,170,170,204,0,238,136,136,204 
,136,136,238,0,238,136,136,204,136 <098> 

140 DATA 136,136,0,68,170,136,170,170,170, 
68,0,170,170,170,238,170,170,170 <117> 

141 DATA 0,238,68,68,68,68,68,238,0,238,34 
,34,34,34,170,68,0,170,170,170,204 <132> 

142 DATA 170,170,170,0,136,136,136,136,136 
,136,238,0,170,238,238,170,170,170 <058> 

143 DATA 170,0,238,170,170,170,170,170,170 
,0,68,170,170,170,170,170,68,0,204 <113> 

144 DATA 170,170,204,136,136,136,0,68,170-, 
170,170,170,238,102,0,204,170,170 <009> 

145 DATA 204,170,170,170,0,68,170,136,68,3 
4,170,68,0,238,68,68,68,68,68,68 <138> 

146 DATA 0,170,170,170,170,170,170,68,0,17 
0,170,170,170,170,68,68,0,170,170 <099> 

147 DATA 170,170,238,238,170,0,170,170,170 
,68,170,170,170,0,170,170,170,238 <045> 

148 DATA 68,68,68,0,238,34,34,68,136,136,2 
38,0,102,68,68,68,68,68,102,0,102 <081> 

149 DATA 68, 68, 238, 68, 204, 238,0, 204, 6B, 68, 
68,68,68,204,0,0,0,68,170,170,170 <111> 

150 DATA 0,0,0,0,102,136,102,0,0,0,234,234 
,234,32,169,165,32,121,0,32,158 <139> 

151 DATA 215,224,40,176,16,142,170,2,32,25 

3, 206, 32, 121, 0,32, 158, 21S, 224, 22 <009> 

152 DATA 144,3,76,72,210,142,171,2,169,224 
,133,98,169,16,133,99,138,74,170 <109> 

153 DATA 232,202,240,16,165,98,24,105,64,1 
33,98,144,2,230,99,230,99,76,33 <143> 

154 DATA 164,173,171,2,201,2,144,6,56,233, 
2,76,55,164,10, 10,10,141,171,2,165 <1B0> 

155 DATA 98,24,109,171,2,133,98,144,2,230, 
99,173,170,2,74,133,100,169,0,133 <162> 

156 DATA 101,6,100,38,101,6,100,38,101,6,1 

00, 3B, 101, 6, 100, 38, 101, 165,98,24 <209> 

157 DATA 101,100,133,98,144,2,230,99,165,9 
9,24,101,101,133,99,173,170,2,201 <197> 

158 DATA 2,144,6,56,233,2,76,130,164,141,1 
71,2,96,234,234,234,32,169,165,173 <101> v 

159 DATA 166,2,208,3,76,220,161,32,242,163 
,165,98,141,174,2,165,99,141,175 <237> 

160 DATA 2,32,253,206,32,154,205,32,163,21 
4,141,167,2,134,100,-132,101,173 <168> 

161 DATA 174,2,133,98,173,175,2,133,99,174 
,167,2,138,240,196,24,109,170,2 <178> 

162 DATA 201,41,144,5,162,23,76,55,196,160 
,0,132,107,177,100,201,32,144,4 * <247> 

163 DATA 201,96,144,3,76,95,165,56,233,32, 
133,106,6,106,38,107,6,106,38,107 <229> 

164 DATA 6, 106, 3B, 107, 165, 106,24, 105,239,1 
33,106,144,2,230, 107,165,107,24 <181> 

165 DATA 105,161,133,107,160,7,177,106,41, 

15, 166,1.99,240,2,73, 15, 133, 108, 173 <156> 

166 DATA 171,2,208,19,165,108,10,10,10,10, 
133,108,177,98,41,15,5,108,145,98 <098> 

167 DATA 76,58,165,177,98,41,240,5,108,145 
,98,136,16,209,206,167,2,230,100 <087> 

168 DATA 208,2,230,101,169,1,56,237,171,2, 
141,171,2,208, 11,165,98,24,105,16 <114> 

169 DATA 133,98,144,2,230,99,76,197,164,20 
1,18,240,11,201,146,240,23,201,147 <193> 

170 DATA 240,26,76,61,165,169,1,133,199,20 
6,167,2,230,100,208,2,230,101,76 <200> 

171 DATA 197,164,169,0,133,199,76,114,165, 
169,224,141,146,165,169,16,141,147 <011> 

172 DATA 165,169,0,141,0,31,238,146,165,20 
8,248,238, 147, 165, 172, 147, 165, 192 <092> 

173 DATA 31,144,238,76,114,165,234,234,234 
,165,157,240,5,162,21,76,55,196 <104> 

174 DATA 96,234,234,234,32,163,166,32,158, 
215,138,201,8,144,3,76,72,210,76 <187> 

175 DATA 116,161,234,234,234,32,163,166,32 
,158,215,224,22,144,3,76,72,210 <225> 

176 DATA 142,171,2,32,253,206,32,154,205,3 



2,163,214,141,167,2,142, 168,2,140 <190> 

177 DATA 169,2,201,41,144,5,162,23,76,55,1 
96,169,40,56,237,167,2,74,141,170 <202> 

178 DATA 2,174,171,2,32,21,164,173,168,2,1 
33,100,173,169,2,133,101,76,197 <222> 

179 DATA 164,234,234,234,32,121,0,32,158,2 
15,224,32,176,3,76,72,210,224,96 <191> 

180 DATA .176,249,169,0,133,88,138,56,233,3 

2, 1 33, 87, 6, 87, 38, 88, 6, 87, 38, 8B, 6 <240> 

181 DATA 87,38,88,165,87,24, 105,239, 133,87 
,144,2,230,88, 165,88,24,105,161 <132> 

182 DATA 133,88,160,0,177,87,41,240,145,87 
,152,72,32,253,206,32,158,215,104 <091> 

183 DATA 168,224,16,144,3,76,72,210,138,17 

,87, 145,87,200, 192, B, 144,223,96 <092> 

184 DATA 234,234,234,169,239,133,97,169,16 
1,133,98,160,0,177,97,41,240, 145 <228> 

185 DATA 97,74,74,74,74,17,97,145,97,230,9 
7,208,2,230,98,165,98,201,163,144 <194> 

186 DATA 230,165,97,201,239,144,224,96,234 
,234, 234, 32, 169, 165, 173, 166, 2j, 208 <214> 

187 DATA 3,76,220,161,76,121,0,234,234,234 

,32, 163, 166,32,24B, 163, 165,98, 141 <049> 

188 DATA 174,2,165,99,141,175,2,173,171,2, 
141,176,2,32,253,206,32, 121,0,32 <037> 

189 DATA 158,215,224,40,144,3,76,72,210,13 
8,24,109,170,2,201,40,176,244,142 <040> 

190 DATA 177,2,169,0,162,39,157,0,2,202,16 
,250,141,178,2,173,176,2,141,171 <022> 

191 DATA 2,162,0,160,2,173,178,2,32,180,16 
4,32,108,167,173,178,2,205,177,2 <155> 

192 DATA 176,29,32,228,255,240,251,201,96, 
176,247,201,32,176,3,76,156,167 <079> 

193 DATA 174,178,2,157,0,2,232,142,178,2,7 
6,243,166,32,228,255,240,251,201 <041> 

194 DATA 20,240,115,201,13,208,243,32,134, 
167,32,253,206,32,139,208,166,13 <152> 

195 DATA 240,39,133,100,132,101,173,178,2, 

32, 125,212,172,178,2,185,0,2,145 <025> 

196 DATA 98,136,16,248,160,0,173,178,2,145 
,100,200,165,98,145,100,200,165 <190> 

197 DATA 99,145,100,96,160,7,177,98,174,17 

1 ,2,208,7,41 ,15,9,240,76,128,167 <020> 

198 DATA 41,240,9,15,145,98,136,16,233,96, 
160,7,177,98,174,171,2,208,5,41 <192> 

199 DATA 15,76,150,167,41,240,145,98,136,1 
6,237,96,201 ,20,240,7,201 , 13,240 <007> 

200 DATA 148,76,6,167,173,178,2,240,6,32,1 
34,167,206,178,2,76,243,166 <1B2> 

Listing. "Extended Screen V 4.0« fur 40-Zeichen- 

Darstellung auf dem VC 20 (SchlufJ). 

Beachten Sre die Eingabehinweise auf Sette 129. 



Inserentenverzeichnis 


Brilliant Software 




103 


'- Deia Elektronik 




89 


Kingsoft 


163, 


164 


Macrotron 




9 


Markt&Technik Buchverlag 




2, 4, 15, 21, 25, 


31, 58, 


142 


Rex Datentechnik 




73 


tewi Verlag 




45 
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zumC16/CU6 

In dieser kleinen Sammlung von Tips und Tricks 
stellen wir Ihnen unter anderem nutzliche PEEKs 
und POKEs, ein Programm zur Veranderung des 
Zeichensatzes, eine kurze Hardcopy-Routine zum 
Ausdruck des Textbildschirmes, vier zusatzliche 
Basic-Befehle sowie eine Moglichkeit zur Erzeu- 
gung fast beliebig grofter Grafik-Textfenster vof. 
AuBerdem zeigen wir Ihnen anhand etnes Bet- 
spieles, wie man Zahlen aus dem Hexadezimah 
system in ihr dezi males Aquivalent umwartdert - 
und umgekehrt. 

Fur alle neu hinzugekommenen C 1 6- und C 1 1 6-Besfczer 
haben wir hier nochmals die seit Ausgabe 4 S€ »«f5f- 
fentlichten Tips und Tricks zum C 16/C 116 zusamner- 
gestellt. Sofern Sie dieser kleinen Sammlung sowie der ent- 
sprechenden Rubrik im 64'er noch etwas hinzuzufugen 
haben, wurden wir uns naturlich uber Ihren Beitrag freuer. 

Veranderung des Zeichensatzes 



Der Zeichensatz besteht beim C 16 aus nur 128 Zeichen. De 
anderen 128 Zeichen sind die inverse Darstellung der ersten 
128 Zeichen. Ein Zeichensatz kann im Abstand von 1024 
Byte (also 128 Zeichen mit je 8 Byte} im Speicher steben 
(zum Beispie! ab den Adressen 12288, 13312, 14336. 
15360). 
Nun die Befehle, urn ihn zu verandern: 

1. »P0KE 65298, PEEK (65298) AND NOT 4« 

2. »P0KE 65299, Anfang Zeichensatz/256« 

Nach einer Fehlermeldung sind allerdings keine Zeicher 
mehr zu erkennen. Sie erscheinen erst dann wieder, wenn 
erneut ein Befehi eingegeben wird. 

Listing 1 zeigt ein Programm zum Kopieren des Zeichen- 
satzes vom ROM ins RAM. Startadresse des Zeichensatzes 
ist 15360. 

Farben auf den Farbtasten verandern 

Die Farben der Farbtasten (CTRL- oder Commodore-Taste 
zusammen mit einer Zahientaste) sind in den Adressen 275 
bis 290 gespeichert Sie konnen beliebig geandert werden. 
Die entsprechenden Steuerzeichen bleiben allerdings 
gleich! 

Beispiel: POKE 275,69. 
Statt Schwarz liegt auf der ersten Farbtaste jetzt Griin. 

Wiederholfunktion der Tasten 

POKE 13-44,0: Wiederholfunktor aus. nur »CRSR«, »SPACE«, 

»INST/DEL< haben Wiederholfunktion 
POKE 13-44,64 keine Taste ha: »V~aerholfunktion 

POKE 1344,128 alie Tasten haber '.V-etierholfunktion 

(Normalzusta^c 

Ta statu rpuffer 

Die Adressen 1319 bis 1328 enthalten die Codes der 
Tasten, die nicht unmittelbar ausgefuhrt werden konnen. 

239 enthalt den Zahler fur den Tastatu rpuffer, der angibt, 
wieviel Codes im Tastaturpuffer abgelegt sind. 

Hier ein Beispiel, bei dem ein Programm nachgeladen wird 
{in einem Programm). 



TIPS&TRICKS 



POKE 1319,13 : POKE 1320,13 : POKE 239,2 
PRINT "DLOAD" : CHR$ (34) 
PRINT "RUN" 

Tastaturabfrage 

In der Adresse 198 wird der Code der gerade gedruckten 
Taste abgelegt Wenn keine Taste gedruckt wird, ist PEEK 
(193) gieich 64. Mit PEEK (198) konnen auch die Funkt'tons- 
tasten abgefragt werden. 

Abfragen der »SHIFT«-, »Commodore«- und »CTRL«-Tasten 

Mit PEEK (1347) konnen diese Tasten abgefragt werden. 

(Ulrich Kafferbitz/tr/bj) 



10 F0RT=0T056 

20 READA 

30?OKE15OOO+T,A 

40 NEXT .j 

SO SYS15000 ' 

62900 DATA 169,0,141,248,7,133,208,133 

62910 DATA 210,169,208,133,209,169,60,133 

62920 DATA 211, l4l, 19, 255, l£», 0, 177, 208 

62930 DATA 145,210,200,208,249,230,209,230 

62940 DATA 211,165,211,201,64,208,237,169 

62950 DATA 192,141,18,255,169,59,133 ' 

62960 DATA 52,133,56 

62970 DATA 169,246,133,51,133,55,96 

Listing 1. Verschiebt den Zeichensatz ins RAM 



Niitzlidie Speidierstellen 



- WAIT 1,192 wartet darauf, dafr eine Taste am Recorder 
gedruckt wird. 

- Der Funktionstastenspeichersteht in den Adressen $0567 
n«s S05E6 

- Diie Einsprungadresse fur die USR-Funktion stent in den 
lessen 1281/1282 ($0501/$0502) 



Base-Start 
t-rfzrq cer Variablen 
t-rrar-z der Felder 
E-oe 2er Felder 
Bmjscelcher Ende 
trfsr,- cer Strings 
5asc-Soeicher Ende 



43/44 
45/46 
47/48 
49/50 
51/52 
53/54 
55/56 



(Low-/Highbyte) 
(Low-/Highbyte) 
(Low-/Highbyte) 
(Low-/Highbyte) 
(Low-/Highbyte) 
(Low-/Highbyte) 
(Low-/Highbyte) 



3? Z 


~»S 2 


=s 


= bis # 7 


3c 3 




= 


=s8 


3t-£ 




= 


*= 16 


Br. 5 




= 


• 32 


3? 5 




= 


as 64 


St ~ 




= 


* 128 



- Der Ton-Chip des C 16 laBt sich in Assembler wie folgt pro- 
grar-r-Jeren: Soundregister ist Adresse 65297. Jedem Bit 
orm: eine bestimmte Steuerfunktion zu: 



Lautstarke = VOL O bis VOL 6 

voile Lautstarke (wenn Bit 3 gesetzt ist, sind 

Bit 0-2 ohne Bedeutung) 

Stimme 1 an{=1)/aus(=0) 

Stimme 2 an ( = 1) / aus (=0) 

Stimme 2 Rauschen (=1) 

Bit gesetzt = kein Ton 



•~ Bit codiert; mogliche Werte: #0 bis #1023 

Low-Byte High-Byte (0,1) 

Stimme 1 65294 65298 

SDrnme 2 65295 65296 

Duron Loschen der Bits 0/1 laRt sich der Bildschirm 
urn bis zu drei Rasterzeilen nach oben verschieben. 
Bildschirm vier Rasterzeilen 
nach unten 

Bildschirm vier Rasterzeilen 
nach unten 

Bildschirm ausgeblendet 
Char-Speicher verschoben 
kein Cursor sichtbar 



jer .,- r gr |- 



- -easts' 



B't 2 gesetzt 
S'r. 3 geioscht 



Br: - geioscht 
Bft 5 gesetzt 
31 € oesetzt 
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Register 


Bit 0/1 setzen 


Verschieben des Bildschirms um 


65287 




bis zu drei Rasterzeilen nach 
rechts 




Bit 4 gesetzt 


Mehrfarbmodus ein 




Bit 5 gesetzt 


Videochip stoppt (ketne Bild- 
erzeugung mehr) 




Bit 6 gesetzt 


Programmterbare Bildstorung 




Bit 7 gesetzt 


38 Zeichen/Zeile 


POKE 6529C 


, 162 


sperrt Tastatur 


POKE 6529C 


, 163 


entriegelt Tastatur 


Register 65301 


Hintergrundfarbe 






Bit 0-3 (Low-Nibble) Farbe 


Register 65305 


Rahmenfarbe 






Bit 4-6 (High-Nibble) fntensitat 



(Frank Plachetta/tr/bj) 



1000 


REM HAHDC0PY-R0UTINE 


1020 


OPEN 4,4,0 


1030 


FOR X=l TO 42:X$=X$f "-" :NEXT X 


1040 


PRINT#4,X$ 


1050 


F0RX=0T0 24:Y$="!" 


1060 


FOR Y=l TO 40:Y#=PEEK(3071+X*40+Y) : IF X%'<32 THEN 




Y#=Y&+64 


1070 


Y$=Y$+CHR$(Y#) :NEXT Y 


1080 


Y$=Y$+ "I": PRINT # 4,Y$ : NEXT X 


1090 


PRINT # 4, X$ : PRINT # 4 : PRINT # 4 : PRINT # 4: PRINT # 




4: PRINT #4 


1100 


PRINT #4: PRINT # 4 : PRINT # 4 : PRINT # 4 : CL0SE4 : X$= 




"":Y$="":RETURN 


Listing 


2. »Hardcopy-Routine« fur C16/C116 



Windows im Programm 



Das selfsame Listing 



Im Sonderheft zum C 16 toird auf die Mogiichkeit hingewie- 
sen, Biidschirmfenster innerhalb eines iaufenden Pro- 
gramms zu erstellen. Die beschriebenen Methoden sind 
jedoch weiter verbesserungsfahig. 

Unter Umgehung des Escape-Modus: Die Koordinaten zur 
Festlegung eines Windows konnen direkt in die System- 
adressen fur die aktuelle BildschirmgroBe »gePOKEt« 
werden. 

Adresse 

2021 ($07E5): untererRand (Zeilenfcoordinate/»ese--B«) 

2022 ($07E6): oberer Rand (Zeilenkoordinate/»esc-T«) 

2023 ($07E7): linker Rand (Spaltenkoordinate/»esc~T«) 

2024 ($07E8) : rechter Rand (Spaltenkoordinate/»esc-B«) 

Ein Beispiel: MitPOKE 2022,2 wird die erste Bildschirmzeile 
»eingefroren« (zum Beispiel als Titelzeile), indem der obere 
Rand des aktuellen Bildschirms berabgesetzt wird. 

Der Normafzustand (Window = normale BildschirmgroBe) 
wird wie ublich durch zweimaliges Drucken der Home-Taste 
beziehungsweise durch PRINT "Home Home" wiederherge- 
stellt. {Gerd Watza/tr/bj) 



Hankopy-Routine 



Wenn Sie einen Drucker an Ihren Computer angeschiossen 
haben, konnen Sie mit Hiife dieser kleinen Unterroutine 
(Listing 2) den Bildschirminhalt zu Papier bringen, 

Aufgerufen wird das Programm durch »GOSUB 1O0O«. Um 
den Bildschirminhalt herum wird ein Rand gedruckt. 

(Jurgen Hagen/tr/bj) 



Programm-Besehreibung 
Zeile: 

1020 Erof fnen eines Drucker-Kanals 

1030 Erweitern des Feldes X$ auf insgesamt 42 Bindestriche 
1040 Drucken des Feldes X$ als obere Umrandung 
1050 Schleife 1 zur Erzeugung von 25 Zeilen mit der Initlali- 

sierung der linken Umrandung 
1060 Schleife zum PEEKen von 40 Zeichen pro Bildschirmzeile 
1070 Ende der Zeichenschleife 

1080 Ende der Zeilenschleife mit der reehten Umrandung 
1090 Drucken des Feldes X$ als untere Umrandung sowie einige 

Leerzeilen 
1100 Drucken weiterer Leerzeilen, SchlieBen des Druckers, 

Los chen der Felder X$ und Y$ sowie ein »RETURN« f ttr den 

Fall, dafi in diese Routine durch ein »G0SUB« verzweigt 

wurde. 



Wer gluckiicher Besitzer des C16-Sonderheftes (3/86) ist, 
wird sich beim Abtippen des Farbdemos auf Seite 22 etwas 
gewundert haben: Das Listing rSefindet sich namlich in einem 
absolut »unabtippbaren« Zustand. Unser Umsetzprogramm 
fur die Steuerzeichen (CLR, Farben etc.) hat die Verarbeitung 
dieses Listings verweigert. Nachfoigend finden Sie nun die 
fehlerfreie Version (Listing 3). (tr/bj) 



10 REM it******************************** 
201 REM * * 

30 REM * <C 16) FARBDEMO <116) * 

40 REM * * 

50 REM * CHRISTIAN GUIRIN 3PITZNER * 

60 REM * GRUBERSTR. 53, 8011 POINS * 

70 REM * TELEFONs 08121/81100 * 

SB REM * » 

90 REM WW******************************* 

100 CC1LOR0,4 

110 COLOR4,4 

120 PRINT" iCLR, DOWN, BLACK, 10SPAC£>F A R B D E M O" 

130 PRINT" C10SPACE}===============CDQWN>" 

140 PRINT" HC2SPACE>S WRZPBBGDBGRBHDH 1 
150 PRINT" EC2SPACEJC EOYURLERREOLEUE' 
160 PRINT" LC2SPACEJH I TARUALAALSALNL' 
170 PRINT" LC2SPACEJW E. NPEUBNUBAULKL' 
180 PRINT" IC2SPACE>A S..UN..G.S.GBEB 1 
190 PRINT" G-C2BPACE}R S..R...E.R.RLLR 1 

200 PRINT" K<2SPACE>Z U „ U A B IT 

210 PRINT" EC2BPACE> E . E U L E' 

220 PRINT" K2BPACE> N . N . A N" 

230 PRINT" TC2SPACEJ U." 

240 PRINT 

250 FOR 3=7 TO STEP -1 

260 J PRINT" {BLACK>"J; 

270 s FDR 1=1 TO 16 

280 : COLOR 1,1, J 

290 s PRINT" CSPACE,RVSON,9PACE,RVOFF}"$ 

300 : NEXT I 

310 S PRINT 

320 NEXTJ 

330 GETKEYA* 

©64'e«* 

Listing 3. »Farbdemo«. Zeigt alle 121 Farben des C16. 



Vier nutzlkhe BasN-Befehle 



Das Programm »BASICTOOL« (Listing 4) ist ein sogenannter 
»DATA-Lader«, der vier kurze Maschinenprogramme erzeugt. 
Hierdurch werden einige zusatzliche Funktionen auf dem 
C16 implementiert: 

OLD 

Mit diesem Befehl kann man Basic- Programme, die unbe- 
absichtigt durch »NEW« oder einen Reset geloscht wurden, 
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wieder lauffahig machen. Er hilft bisweiien auch. wenn Pro- 
gramme fehlerhaft von Kassette geladen wurden. 
Aufgerufen wird er einfach mit: SYS 1618 

SWAP 

Dieser Befehl wurde fur den C 64 bereits in der 64er Aus- 
gabe 12/85, vorgestellt. Ich habe ihn fur den C 16 umge- 
schrieben. 

Er dient dazu, zwei Strings miteinander zu vertauschen. 
Dies geschieht durch Vertauschen der Stringdeskriptoren, 
es entsteht also kein »Stringmul(«. Die gefurchtete Garbage 
Collection wird verhindert 

Es gilt folgender Syntax fur den Aufruf: SYS 1569 (A$,33; 
A$ und B$ konnen hierbei zwei beliebige Stringvariable sein. 

BLOAD und BSAVE 

Diese Befehle simulieren die entsprechenden Befehle des 
C 128. Sie dienen dazu, von einem Basic-Programm aus 
einen ganzen Speicherblock zu laden Oder zu speichern. 

Man kann so zum Beispiel eine Grafik speichern oder ein 
Maschinenprogramm nachladen. Auch Programme, die mit 
dem S-Befehl des eingebauten Monitors gespeichert wur- 
den, konnen geladen werden. 

Es gilt folgende Syntax: 
BLOAD: SYS 1536 "name", g, 1 



BSAVE: SYS 1548 "name' 



1, aa, ea+1 



Hierbei ist g die Geratenummer (1 oder 8 fur Kassette oder 
Disk), aa die Anfangs- und ea die Endadresse des Speicher- 
bereichs. 

Beispiel: aa = 8192, ea = 163 J 84 zum Speichern der 
HiRes-Grafik. 

(Michael Schmand/tr/bj) 



20 , 6B , AS , A5 , 0A , A6 , 2B , A4 

2C,4C,D5,FF,20,6B,A8,20 

DE , 9D , 84 , D8 , 85 , D9 , 20 , DE 

9D,A6,14,AS,A9,D8,4C,D8 

FF,20,8E,94 T 20,2C,93,20 

1 A , 93 , A5 , 64 , 85 , D0 , A5 , 65 

85, Dl, 20, 91, 94, 20, 2C, 93 

20, I A, 93, A0, 00, Bl ,00,85 

D2,B1,64,91,D0,A5,D2,91 

64,C8,C0,03',D0,EF,20,8B 

94, 60, A9, 01 ,A8,91 ,2B,20 

1 8 , 88 , 20 , 4B , 88 , 68 , 68 T 4C 

9A , 8A , 00 , 00 , 00 , 00 , 00 , 00 

=1536 TO 1639 

D*;POKE I,DECCD$) : C=C+DEC <D$> .. 

IF CO 12205 THEN PRINT" DATA FEHL 

END 

" DBJEKTCODE SPEICHERN (J/N)?" 

EY C$:IF C*<>"J"THEN END 

" CABETTE ODER DISK C45PACEXC/D)? 

KEY C* 
="D"THEN U=BsELSE LN1 
54B"MINIT0GL. OBJ", U, 1,1536, 1640 



Listing 4. Vier niitzIicheBefehfefur den C16/C116 



120 


DATA 


130 


DATA 


140 


DATA 


150 


DATA 


160 


DATA 


170 


DATA- 


180 


DATA 


190 


DATA 


200 


DATA 


210 


DATA 


220 


DATA 


230 


DATA 


240 


DATA 


260 


FOR I 


270 


READ 


280 


NEXT: 




ER ! " s 


460 


PRINT 


470 


BET K 


480 


PRINT 




" : 6ET 


490 


IF C* 


500 


SYS 1 



Beliebige grofte Grafikfenster 



Dieses Maschinenprogramm steuert einen Rasterzeilen- 
Interrupt, durch den man im »GRAPHIC 2«- oder »GRAPHIC 
4«-Modus ein fast beliebig groBes Grafikfenster erzeugen 
kann. Die hierzu notwendige Routine ist bereits im ROM des 
C 1 6 vorhanden, denn auch im normalen Split- Screen-Modus 



muB ja ein Raster-Interrupt stattfinden. Man kann also diese 
Routine einfach kopieren und ein wenig andern. Wie dies am 
einfachsten geschieht, wird im folgenden beschrieben: 

1, Geben Sie zunachst die folgende Basic-Zeile ein: 

ID SYS 4293 

Dies wird der spatere Einsprung in die initialisierungs- 
Routine. Achten Sie darauf, daB zwischen »SYS« und der 
Adresse hochstens ein Space steht, sonst kommen Sie mit 
dem Speicherplatz nicht hin. 

2. Rufen Sie jetzt den Monitor auf und geben Sie ein; 
r :z;z :ec4 iooe 

Damit wird die Interrupt-Routine ins RAM kopiert. Hierbei 
bleibt das Low-Byte der Interrupt-Startadresse gieich ($OE), 
so daS spater nur die High-Bytes der Interrupt-Vektoren 
geandert werden mussen, urn den Interrupt auf unsere 

eigene Routine zu lenken. ■, 

i 

3. Machen Sie nun noch vom Monitor aus folgende Ande- 

rungen: A i:-lj CSR $1060. 
Damit wird der Raster-Interrupt auf die eigene Routine 

umgelenkt. 

4. Zur Initialisierung mussen Sie jetzt noch folgendes kur- 
zes Maschinenprogramm eingeben: 

A 10C5 SEI 

(interrupt auf eigene Routine lenken) 



A 10C6 
A 10C8 
A 10CB 
A 10CE 
A 10CF 
A 10D1 
A 10D3 
A 10D5 
A 10D8 
A 10D9 
A 10DA 



LDA#$10 

STA$0313 

STA$0315 

CLI 

LDA#$11 

STA $2C 

LDA#$00 

STA $1100 

PLA 

PLA 

JMP $8A7B 



(Basic-Start auf $1 1 00 heraufsetzen) 



(NEW/CLR ausfuhren) 



5. Verlassen Sie jetzt den Monitor mit »X« und machen Sie 
im Direktmodus folgende Eingaben: 

POKE 4185, 129: POKE 4203, 131: P0KE423 8,131 
Damit ist das kleinstmogliche Grafikfenster eingesteilt. 

6. Rufen Sie wieder den Monitor auf. Speichern Sie das fer- 
tige Programm mit: 

S "GRAFIKFENSTER ", 8, 1001, 10DD 

Dadurch wird jetzt die vorher eingegebene Basic-Zeile 
zusammen mit der kopierten Maschinenroutine als zusam- 
menhangendes Programm gespeichert und spater ais sol- 
ches auch wieder geladen. 

Kassettenbenutzer mussen statt der »8« naturlich eine »1« 
einsetzen. 

Das so gespeicherte Programm konnen Sie nun einfach mit 
»LOAD "GRAFIKFENSTER ",8« (beziehu'ngsweise mit 
»LOAD " GRAFIKFENSTER ",1 fur Datasette) laden und mit 
»RUN« starten. Dabei wird automatisch der Basic-Start urn 
256 Byte nach oben gesetzt. Danach konnen Sie Basic- 
Programme eingeben oder laden, als ob nichts geschehen 
ware. Sobaid Sie aber »GRAPHIC 2« oder »GRAPHIC 4« ein- 
geben, sehen Sie, daB jetzt nicht mehr fiinf, sondern neun 
Textzeilen sichtbar werden. Dies wurde durch die POKE- 
Befehle erreicht, die einfach dafur sorgen, daB bei einer fru- 
heren Rasterzeile als sonst in den Textmodus zuruckgeschal- 
tet wird. Weitere POKE-Moglichkeiten entnehmen Sie bitte 
der Tabelle. Sie konnen damit jederzeit von Basic aus die 
GroBe des Grafikfensters andern. 

WIchtiger Hinweis: 

Sowohl bei der Eingabe als auch beim Laden des Pro- 
gramms muB der Basic-Start unbedingt auf seinem Normal- 
wert sein! Ansonsten iiegt die am Anfang eingegebene 



(^fctf 



SONDERHEFT 8/86 



159 



TIPS&TRICKS 



C16, C116, Plus/4 



Basic-Zeile nicht an der richtigen Stelle im Speicher. Drucken 
Sie also am besten einmal auf den Reset-Knopf. Dies ist 
besonders wichtig fur Besitzer eines Plus/4 Oder eines C 1 6 
mit RAM-Erweiterung, da hier beim erstmaligen Einschaiten 
der Grafik der Basic-Start automatisch um 12 KByte herauf- 
gesetzt wird! 

Tabelle: 

In nachfoigender Tabelle ist aufgef uhrt, welchen Effekt man 
erzielt, wenn man durch POKE-Befehle die GroBe des Grafik- 
fenstersandernwill. DazumussenSiejeweilsindieSpeicher- 
stellen 4203 und 42038 den Wert von X, und in Speicher- 
stelle 4185 den Wert von X minus 2 POKEn. 
X Anzahl 

Textzeilen Wirkung 
131 9 kfeinstmogliches Grafikfenster 

139 8 

147 7 

155 6 

163 5 normal 

171 4 

179 3 

187 2 

Ein besonderer Effekt laBt sich erzielen, wenn man den 
Wert in 4238 auf X plus 1 setzt. Hier wartet namlich das 
Interrupt- Programm, bis der Rasterstrahl den eigentlichen 
Umschaltpunkt erreicht hat. Dadurch wird ein flimmerfreies 
Umschalten moglich. Erhoht man nun diesen Wert, so wartet 
der Interrupt mit dem Einschaiten des*Textbildschirms noch 
eine Rasterzeile »lang«, obwohl der Grafikbildschirm bereits 
ausgeschaitet wurde. Resultat ist eine schwarze Trennlinie 
zwischen Grafik und Text, die entsteht, wahrend sich der 
Video-Chip im »Niemandsland« zwischen Text und Grafik 
befindet (Michael Schmand/tr/bj) 

Warum Hexadezimal? 



Hier wollen wir einen leicht verstandlichen Losungsweg zur 
Umrechnung der beiden Zahlensysteme Dezimal und Hexa : 
dezimal erarbeiten. 

Wir sind von Kind auf an das dezimale Zahlensystem 
gewohnt. In der Computertechnik wird jedoch auch haufig 
das hexadezimale Zahlensystem verwendet Warum? Um 
diese Frage zu beantworten, mussen wir etwas ausholen. 
Wie Sie vielleicht wissen, kennt der Computer.im Prinzip nur 
das binare Zahlensystem, also die Kombination von und 1. 
Aus diesen beiden Ziffern wird jede Zahl gebildet. Beispiel: 
binar 00001101 = dezimal 13 = hexadezimal D 

binar 1100000000000000 = dezimal 49152 = hexadezimal C000 

In Fachzeitschriften finden Sie oft Abkurzungen Oder 
andere Schreibweisen, um klarzusteilen, welches Zahlensy- 
stem gemeint ist. Beispiel: 

binar = bin = % 

hexadezimal = hex = $ 
dezimal = dez = # 

DieZeichen %, $ und # werden vorallem von Programmen 
benutzt, die irgendetwas mit Assembler (Maschinensprache) 
oder mit dem Betriebssystem des Computers zu tun haben, 
zum Beispiel Maschinensprache-Monitore. Wenn Sie mehr 
daruber wissen wollen, empfehle ich Ihnen das 64'er-Son- 
derheft8/85 (Assembler fur Anfanger und Fortgeschrittene). 
Doch zuruck zu den Zahlensystemen: 

Die ersten Computer konnten nur mit binaren Werten 
»gefuttert« werden, eine sehr anstrengende Sache fur die 
Programmierer. Eine wesentliche Vereinfachung ergab das 
hexadezimale System. Jeweils 4 Binar-Ziffern konnten 
ersetzt werden durch eine einzige Hex-Ziffer. Beispiel: 



bin 1101 = hex D = dez 13 
bin 1000 = hex 8 = dez 8 

Das liegt daran, daB das binare Zahlensystem die Basis 2 
besitzt, sich jede Zahl also in 2er-Potenzen darstellen laBt, 
wahrend das hexadezimale System die Basis 16 hat. Da 2 
hoch 4 den Wert 16 ergibt, konnen 4 Binar-Ziffern durch eine 
Hex-Ziffer ersetzt werden. 

Unser C 1 6 und auch fast alle anderen Heimcomputer sind 
8-Bit-Computer. Der C16 kann 64 KByte Speicherplatz 
adressieren, das sind 2 hoch 16 = dezimal 65536 = hex 
FFFF. Sie sehen, uberall taucht die 2 auf, beziehungsweise 
Potenzen von 2. Und das macht die Verwendung von Hex- 
Zahien so einfach, weil man sehr oft mit runden Hex-Zahlen zu 
tun hat. Das hexadezimale Zahlensystem bietet jedoch nicht 
nur von seiten der Eingabe Vorteile, sondern erlaubt es auch, 
sich haufig verwendete Kombinationen zu merken (zum Bei- 
spiel $A9 = 169 fur den Assembler-Befehl »LDA#«, also 
lade Akkumulator mit dem Wert der im Programmablauf fol- 
genden Speicherzelie. Genaueres finden Sie, wie schon 
erwahnt, im Assembler-Sonderheft 8/85). 
Was ist das Hexa dezimal system? 

In unserem normalen Zahlensystem reprasentiert jede 
Stelle einer Zahl eine Zehnerpotenz. Ein Beispiel: Die Zahl 
4714 laBt sich auch als Summe von Zehnerpotenzen schrei- 
ben 

4714 - 4*10 3 + 7*10 2 + 1 * 10 1 + 4*10° = 4*1000 
+ 7*100 +1*10 + 4*1 

Beim Hexadezimalsystem wird nun jede Stelie einer Zahl 
nicht mehr durch eine Zehner-, sondern durch eine Sechzeh- 
nerpotenz reprasentiert. Auch hier wieder ein Beispiel; Die 
Hexadezimalzahl 0324 bedeutet nichts anderes als 3* 16 2 
+ 2*16 1 + 4*16°(=3*256+2*16+4*1). 

Dies hat aber noch weitere Konsequenzen: 

Im Dezimalsystem wird eine Stelle immer von bis 9 (insge- 
samt 10 Ziffern) durchgezahlt, bevor die nacnste Stelle um 
eins erhoht wird. Also 

00 01 02 03 04 05 06 07 08 09 
10 11 12 13 14... 

Im Hexadezimalsystem jedoch wird eine Stelle um 16 
Werte erhoht, bevor zur nachsten Stelle ein Wert hinzugefugt 
wird. Da aber unsere Ziffern von bis 9 dazu nicht ausrei- 
chen, wurden zusatzlich die Buchstaben A bis F herangezo- 
gen. Sie vertreten die Zahlenwerte 10 bis 15 (von bis 15 
sind es 16 Werte!)- Es bedeuten: 
A= 10 
B=11 
C=12 
D= 13 
E=14 
F = 15 

00 01 02 03 04 05 06 07 08 09 0A OB OC 0D OE OF 
1011 12 13 14... 1A1B1C... 

Die Dezimalzahl 10 ist also gleichwertig mit dem Hexadezi- 
maiwert A. Damit waren wir auch schon bei der Umrechnung. 
Dezimal - Hexadezimal 

Wenn wir eine Dezimalzahl in Hexadezimal umrechnen wol- 
len, so bauen wir den Hex-Wert Stelle fur Stelle von links nach 
rechts auf. 

Nehmen wir also an, wir mochten die Dezimalzahl 41717 in 
Hexadezimal umrechnen. Dazu teilen wir sie erst einmal 
durch 16 3 

41717 : 16 3 = 10,1848145 

Uns interessiert hier nur die Vorkommastelle 10. Sie ist 
gleichbedeutend mit dem Hex-Wert A. Er bildet die letzte 
Stelle unserer Hexadezimalzahl (die Zahlung beginnt rechts 
und endet links). 

Nun mussen wir von unserer Dezimalzahl 10* 16 3 
abziehen. 
Also 41717 - 10* 16 3 = 757 
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C16, C116, Plus/4 



TIPS&TRICKS 



Um die nachsten Stelien unserer Hex-Zahl zu erhalten, fuh- 
ren wir diese Prozedur nun noch mit 16 2 und 16 1 durch: 
757 : 16 2 = 2,9703125(^2) 

757- 2* 16 2 - 245 
245 : 16 1 - 15,3125 (=F) 
245-15*16 1 = 5 

AIs endgultige Umrechnung der Zah! 41717 ins Hexadezi- 
malsystem erhalten wir also $A2F5. 

Hexadezimal - Dezimal 

Diese Umrechnung ist schon wesentlich einfacher. Um die 
Hex-Zahl $A2F5 wieder zuriickzurechnen, geht man wie 
folgt vor: 
A*16 3 + 2*16 2 + F*16 1 + 5*16° 

Da man aber mit den Buchstaben A und F nicht rechnen 
kann, mussen diese als Dezimalzahlen angegeben werden. 
10* 16 3 + 2* 16 2 + 15* 16 1 + 5* 16° 

Wenn Sie dies auf Ihrem C 1 6 einmal ausrechnen, so wer- 
den Sie als Ergebnis wieder die Zahl 41717 erhalten! 

Als AbschluB unseres kleinen Kurses konnten Sie einmai 
versuchen, ein Basic-Programm zu schreiben, das diese 
Berechnungen ausfuhrt. 

Kleine Merkhilfe 

Gerade wenn man anfangt, sich mit dem hexadezimalen 
Zahlensystem zu beschaftigen (und dafur gibt es einige gute 
Grunde), ist man froh uber ein paar kleine Eselsbrucken. Am 
Anfang kommt man immer wieder ins Stolpern, weil man sich 
nicht so schnell an den Dezimalwert von zum Beispiel Hex C 
erinnem kann. Dies geht wesentiicti ieichter, wenn man die 
Anfangsbuchstaben der beiden Systeme gegenuberstellt. 
C = Zwoif 
D = Dreizehn 
F = Funfzehn (bj) 





SONDERHEFT 07/86: PEEKs UND POKEs 

Die wichtigsten Speichersteilen des C64, C 16 und C 128 
werc j e n ausfuhrlich erkiart und die Unterscheidungsmerkmaie 
klar herausgestelrt Man eriahrt, was die einzelnen Speicher- 
steiien bedeuten una wie man mit ihnen umgeht. Fur . 
Assembler- Prog rarnmierer gibt es eine ausfuhrliche Beschrei- 
bung, wie man in Maschi- 
nensprache Berechnun- 
gen mit dem C64 durch- 
fuhrt. Hervorzuheben ist 
das Xref 7.0 Listing, das 
eine Crossreferenz-Liste 
fur C 128-Programme auf- 
stellt, die in Basic 7.0 ge- 
schrieben sind. Top Tool 
ist eine auBerst leistungs- 
fahige Prog ram mierhilfe 
fur den C64, Uber 30 
Seiten Tips & Tricks fur 
C64 undC128. 



Jetzffiir 

DM 14,- u 

im ZeHsdirlftett- 

haadel! 




SONDERHEFT 06/86: GRAFIK 

Grafik-Programmierung des C64, C128 und C128 im 
C64-Modus. Schwerpunktthema: »Giga-CAD« — ohne kompli- 
zierte Berechnungen am Bildschirm dreidimensional konstru- 
ieren. Mit »Giga-CAD« lassen sich Grafiken mit einer Auflo- 
sung von 640 x 400 Oder 1000 x 640 Punkten be rechnen 
und konstruieren. Jede 
Menge Spitzen-Listings 
zum Abtippen: Sprite- Edi- 
tor mit Animationseffekt / 
Erweiterungen zu Hi-Eddi 
/ Die schnellste Grafik-Er- 
"weiterung / Routinen zum 
Ein- und Uberblenden 
von Grafik-Bildern im Hi- 
Res-Modus / Hardcopies 
fur Koala-Pad- und 
Blazing-Paddles-Bilder / 
Eine Basic-Erweiterung 
fur Seikosha-Drucker / 
Plot- und Sprite-Basic. 
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Depot-Handler 

Tragen Sie Ihre Buchbestellung auf eine Postkarte ein und schicken diese 
an einen Depothandler in Ihrer Nahe oder an Ihren Buchhandler. 



Bu'chhandtung Herder, Kurfurstendamm 69 

1000 Berlin 15, Tel- (030) 8835002, 

BTX *921782# 

Computara Fachbuchhandlung, KeithstraBe 18 

1000 Berlin 30, Tel. (030) 21390 21 

Thalia Buchhaus, GroGe Bleichen 19 

2000 Hamburg 36, Tel. (040) 3 00 50 50 

Boysen + Maasch, HermannstraBe 31 

2000 Hamburg 1, Tei. (0 40! 300 50 50 

Electro-Data, Wilhelm-Heidsiek-StraBe 1 

2190 Cuxhaven, Tei. (047 21) 512 88 

Buchhandlung Muehlau, Holtenauer StraBe 116 

2300 Kiel, Tel. (04 31) 8 50 85 

ECL, NorderstraBe 94-96 

2390 Flensburg, Tel. (04 61) 281 81 

Buchhandlung Weiland, KonigstraGe 79 

2400 Lubeck, Tel. (0451) 160060 

Buchhandiung Storm, LangenstraBe 10 

2800 Bremen 1, Tel. (0421) 3215 23 

Buchhandlung Lohse-Eissing, MarktstraBe 38 

2940 Wilhelmshaven, Tel. (04421) 41687 

Buchhandlung Schmorl u. v.-Seefeld, 

BahnhofstraGe 1 3 

3000 Hannover 1, Tel. (0511) 32 76 51 

Buchhandlung Graff, Neue StraBe 23 

3300 Braunschweig, Tel. (05 31) 4 92 71 

Deuerlich'sche Buchhandlung, Weender StraBe 33 

3400 Gottingen, Tei. (05 51) 5 6868 

Buchhandlung an der Hochschule, 

Hoilandische StraBe 22 

3500 Kassel, Tel. (05 61) 8 3807 

Stern Verlag, FriedrichstraBe 24-26 

4000 Dusseldorf, Tel. (02 11) 373033 

Buchhandlung Baedeker, Kettwiger StraBe 33-35 

4300 Essen 1, Tel. (0201) 221381 

Regensberg'sche Buchhandlung, Alter Steinweg 1 

4400 Munster, Tel. (02 51) 40541-5 

Buchhandlung Acker, JohannisstraGe 51 

4500 Osnabruck, Tel. (05 41) 2 8488 

Buchhandlung Brockmeyer, 

Querenburger Hohe 281/Unicenter 

4630 Bochum, Tel. (02 34) 7013 60 

Buchhandlung Meier + Weber, Warburger StraBe 98 

4790 Paderbom, Tei. (052 51) 631 72 

Buchhandlung Phonix GmbH, Oberntorwall 25 

4800 Bielefeld 1, Tel. (0521) 58306-38 

Buchhandlung Gonski, Neumarkt 24 

5000 Koln 1, Tel. (02 21) 21 0528 

Mayer'sche Buchhandlung, UrsuIinerstraBe 17-19 

5100 Aachen, Tei. (02 41) 47 77-136 

Buchhandlung Behrendt, Am Hof 5a 

5300 Bonn 1, Tei. (02 28) 65 8021 

Buchhandlung Cusanus, SchloGstraGe 12 

5400 Koblenz, Tel. (02 61) 3 62 39 

Akad. Buchhandlung Interbook, FleischstraGe 61-65 

5500 Trier, Tei. (06 51) 435 96 

Buchhandlung W. FInke, Kipdorf 32 

5600 Wuppertai 1, Tel. (0202) 4542 20 

Buchhandlung Balogh, SandstraBe 1 

5900 Siegen, Tel. (02 71) 5 5298-9 

Buchhandlung Naacher, Steinweg 3 

6000 Frankfurt 1, Tel. (069) 298050 

Buchhandlung Welln'rtz, LautenschlagerstraGe 4 

6100 Darmstadt, Tel. (061 51) 76548 

Buchhandlung Feller + Geeks, FriedrichstraBe 31 

6200 Wiesbaden, Tel. (0 61 21) 304911 

Ferber'sche UNI-Buchhandlung, Seitersweg 83 

6300 GieSen, Tel. (0641) 1 2001 

Sozialwissenschaftliche Fachbuchhandlung, 

FriedrichstraBe 24 

6400Fulda, Tel. (06 61) 7 5077 

Albertis-Hof buchhandlung, LangstraSe 47, 

6450 Hanau, Tel. (0 61 81) 24301 

Gutenberg Buchhandlung, GroBe Bleiche 29 

6500 Mainz, Tei. (0 61 31) 37011 

Buchhandlung Bock + Seip, FutterstraGe 2 

6600 Saarbriicken, Tel. (0681) 30677 

Buchhandlung Wilhelm Hofmann, 

BismarckstraBe 98 

6700 Ludwigshafen, Tel. (06 21) 51 6001 

Buchhandlung Loeffler, 8 1,5 

6800 Mannheim 1, Tel. (0621) 28912 

Buchhandlung Stehn, BahnhofstraBe 13 

7000 Stuttgart 50, Tei. (07 11) 561476 

Osiandersche Buchhandlung, Sindeifinger Allee 25 

7030 Boblingen 

Buchhandlung am Markt, KramstraBe 6 

7100 Heilbronn, Tei. (0 71 31) 68682 

UNI Buchhandlung Kellner + Moessner, 

KaiserstraSe 18 

7500 Karlsruhe, Tel. (07 21) 6914 36 

Osiandersche Buchhandlung, Wilhelmstr. 12 

7400 Tubingen, Tel. (07071) 5 1761 

Osiandersche Buchhandlung, Kaiserpassage 8 

7410 Reutlingen 



Buchhandlung Roth, HauptstraBe 45 
7600 Offenburg, Tei. (0781) 2 2097 
Rombach Center, BertholdstraBe 10 
7800 Freiburg, Tel. (0761) 49091 
Fachbuchhandlung Hofmann, HirschstraSe 4 
7900 Uim, Tel. (0731) 60949 
Schauties Elektronik, BachstraBe 52 
7980 Ravensburg, Tel. (07 51) 2 61 38 
Buchhandlung Hugendubel, Marienplatz 
8000 Miinchen 2, Tel. (089) 2389-1 
Computerbiicher am Obelisk, BarerstraSe 32-34 
8000 Munchen 2, Tei. (089) 28 23 83 
Pele's Computarbucher, SchiilerstraBe 17 
8000 Munchen 2, Tei. (089) 55 52 29 
Universitatsbuchhandlung Lachner, 
TheresieristraBe 43 
8000 Munchen 2, Tel. (0 89) 521340 
Buchhandlung Schonhuber, TheresienstraBe 6 
8070 Ingoistadt, Tel. (08 41) 3 31 46/47 
Computerstudio Qertrud Friedrlch, LudwigstraBe 3 
8220 Traunstein, Tei. (0861) 1 4767 
Buchhandlung Pustet, Kl. Exerzierplatz 4 
8390Passau, Tel. (08 51) 5 69 45 
Buchhandlung Pustet, GesandtenstraBe 6 
8400 Regensburg, Tel. (0941)53061 
Buchhandlung Dr. Buttner, AdlerstraBe 10-12 
8500 NGrnberg, Tet. (0911) 23 2318 
Computer-Center-Burger, Leimitzer StraBe 11-13 
8670 Hof, Tei. (09281) 40075 
Sottiments- U- Bahnhofsbuchh. J. Strykowski, 
Bahnhofplatz 4 

8700 WCirzburg, Tel. (0931) 54389 
Buchhandlung Pustet, Grottenau 4 
8900 Augsburg, Tei. (08 21) 3 54 37 
Kemptener Fachsortiment, SalzstraBe 30 
8960 Kempten, Tel. (08 31) 1 4413 

Schweiz: 

Buchhandlung Francke AG, Neuengasse 43, 

Von-Werdt-Passage 

3001 Bern, Tel. (031) 221717 

Buchhandlung Scherz. Marktgasse 25 

3011 Bern, Tel. (0 31) 22 6837 

Buchhandlung Meissner, Bahnhofstrasse 41 

5000 Aarau, Tel. (064) 2471 51 

Bucher Balmer, Neugasse 12 

6300 Zug, Tel. (042) 21 41 41 

Buchhandlung Enge, Bleicherweg 56 

8002 Zurich, Tel. (01) 201 20 78 

Buchhandlung Orel! Fiissli, Pelikanstrasse 10 

8022 Zurich, Tei. (01) 2 11 8011 

Freihofer AG, Wissenschaftliche Buchhandlung, 

Universitatsstrasse 11 

8033 Zurich, Tel. (01) 3 634282 

Buchhandlung am Rossi'rtor, Webergasse 5 

9001 St.Galien, Tel. (071) 228726 

Osterreich: 

Morawa&Co, Woiizeiie 11 

1010 Wien, Tel. (02 22) 94 7641 

Computer Buch Shop Karl Fegeri, HeinertstraBe 3 

1020 Wien, Tel. (02 22) 24 53 68 

Johann Reisinger, Hauptplatz 30, KirchenstraGe 3 

3302 Amstetten, Tel. (0 74 72) 2576-0 

Helmut Lainar, Obere LandstraSe 8 

3500 Krems,.Tel. (0 27 32) 2818 

R. Pirngruber, LandstraGe 34 

4020 Linz, Tel. (0732) 2728 34 

Buchhandlung Schachtner, Stadtplatz 28 

4840 Vockiabruck, Tei. (07672) 3467 

R. Regelsberg, St.Oullen-StraGe 2 

5020 Salzburg, Tel. (06 62) 7 35 73 

Tyrolia. Maria-Theresien-StraBe 15 

6010 Innsbruck, Tel. (05222) 24944 

Wagner'sche Universitatsbuchhandlung, 

MuseumstraBe 4 « 

6010 Innsbruck, Tel. (0 52 22) 2 23 16 
Buchhandlung Laykam, Stemplergasse 3 
8010 Graz, Tel. (0316) 7 66 76-0 
Jos. A, Kienreich, SacherstraSe 6 
8010 Graz, Tel. (0316) 76441 
Volksbuchhandlung, RadetzkystraBe 7 
8010 Graz, Tei. (0316) 7 93 88 
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BONGO 
CONSTRUCTION SET 

Begle'rten Sie Bongo, die Supermaus, in sechs ver- 
schiedenen Bildem auf ihrer Suche nach den ge- 
raubten Diamanten der Prinzessin. Als einmalige 
Neuhert konnen Sie Ihre Bilder selber zusammen- 
bauen, spielen und abspeichern; dadurch bieten 
sich nahezu unbegrenzte Moglichkeiten. Fur 1 
Oder 2 Spieler; nur mit Joystick. 




GALAXY 



Schnelles und abwechslungsreiches Weltraum- 
spiei mit achtzehn verschiedenen Phasen und vie- 
len interessanten Gegnern. Gute Reaktionen und 
genaue Schusse sind dabei erforderlich, denn Fehl- 
schiisse kosten Sie nur unnotig Energie. Fiir 1 oder 
2 Spieler; Steuerung wahlweise mit Joystick oder 
Tastatur. 





GHOST TOWN 



Suchen Sie die verborgene Schatztruhe in einer 
unheimlichen Geisterstadt. Dabei wandern Sie 
durch neunzehn Bilder in vwunderschoner hoch- 
auflosender Farbgrafik, Ein Grafik-Adventure fiir 
alle Tiiftler und Knobler. Steuerung mit Joystick 
oder Tastatur. 





a a a 


m 





GRANDMASTER 

Das legendare Schachprogramm in einer volrvver- 
tigen Version fur den C-16 mit iiberragender Sptel- 
starke und viel Komfort (u.a. Zugzurocknahme, 
Zugvorschlag, Wahl der Bildschirmfarben, Scha- 
chuhren, Autoplay-Demomodus, usw.). Bedie- 
nung mit Tastatur. 



TOM 



Durchsuchen Sie mit Ihrem Abenteurer Tom die 
Pyramide von Manilo nach einem Schatz. Ein Arca- 
de-Adventure mit sage und schreibe 178 (einhun- 
dertachtundsiebzig!) Hires-Bildern, die ohne Nach- 
laden im Speicher sind. Steuerung mit Joystick 
oder Tastatur. 




WINTER OLYMPIADE 

Endlich ist es soweit: spielen Sie im Familien- oder 
Freundeskreis sechs verschiedene Disziplinen mit 
bestechender Grafik: Biathlon, Slalom, Eisschnell- 
lauf, Bobfahren, Skispringen und Abfahrt. Natiir- 
lich komplett mit Eroffnungszeremonie, Wahl der 
Landesfarben, usw. Fur 1 bis 4 Mitspieler; Joy- 
stick^) erforderlich. 
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MICRO DATEI 



Ein universelles Dateiprogramm fiir beliebige Da- 
ten (z.B. Adressen, Schallplatten, Videos, usw.). Sie 
konnen Ihre Efetensatze eingeben, andern, sortie- 
ren, ausdrucken, abspeichern, usw. Eine Speiche- 
rerweiterung ist empfehlenswert. 




MICRO KALK 



Jetzt konnen Sie alle Kalkulationen durchfiihren, 
die tagtaglich anfallen, z.B. Fiihrung einer Haus- 
haltskasse, Einkauf-Arerkauf-Erlos, usw. Schauen 
Sie sich an, warum Tabellenkalkulationen eine 
Hauptanwendung der "grofien" Personal Compu- 
ter ist. Eine Speichererweiterung ist empfehlens- 
wert. 



MICRO TEXT 

Leistungsfahiges und einfach zu bedTenendes 
Textverarbeitungsprogramm mit vielen Profi- 
Funktionen, z.B. Flattersatz (linksbiindig), Block- 
satz (rechtsbiindig), Suchen, halbautomatischer 
Worttrennung, Textbausteine, usw. Der Textspei- 
cher umfaBt in der Grundversion ca. 6000 Zeichen 
(mehr als eine DIN A4-Seite). 
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GRAFIK DESIGNER 

Entwerfen Sie mit diesem Super-Editor Ihren eige- 
nen Zeichensatz. Neben den ublichen Funktionen 
bietet dieses Programm so tolle Sachen wie: Dre- 
hen, Spiegeln, Invertieren, Multicolour-Modus, 
Scrollen, Fullen, usw. Selbst Animation von meh- 
reren Zeichen ist moglich! Alle unsere Spiele wur- 
den hiermit geschrieben! 





PAINT BOX 



Ein Mai- und Zeichenprogramm der Spitzen klasse 
mit vielfartigen Moglichkeiten, z.B. Linien, Strah- 
len, Rahmen, Rechteck, Kreis, Scheibe, Laden und 
Abspeichern, Fullen von Flachen, acht verschiede- 
ne Pinsel, usw., alles natOrlich in 121 Farben. Be- 
dienung mit Tastatur oder Joystick. 




MUSIC MASTER 



Ein Musikprogramm mit tollen Moglichkeiten, die 
Ihren C-16 in einen fantastischen Synthesizer und 
Sequenzer verwandeln. Die mitgelieferte Demo 
zeigt, daB Ihr C-16 ein fast ebenso guter Musiker 
ist wie ein C-64. Sie konnen Ihre Musikstucke aber 
nicht nur spielen und abspeichern, sondem auch 
einfach in Inre eigenen Programme einbauen! 



TURBO TAPE 

Machen Sie Ihrer Datassette Beine: mit TURBO TAPE konnen Sie Programme bis zu 28K Lange genauso sehnell speichern und laden wie mit einer Floppy! Ein Programm von 12K (Y4) 
Lange wird jetzt in 48 Sekunden statt in 6:42 Minuten geladen, also mehr als 8mal so sehnell. Das abgespeicherte Programm kann spater von jedem C-16 wieder mrt Turbo-Ge- [J^y^ 
schwindigkeit geladen werden; auBerdem bleibt der Bildschirm wahrend des Ladens eingeschaltet! 
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16K-RAM 



Mit dieser Erweiterung konnen Sie Ihren C-16 oder 
C-116 auf 32K-RAM ausbauen, das heiBt "28661 
BYTES FREE" fiir Basic-Programme. Endlich haben 
Sie auch noch genug Speicherplatz zur Verf ugung, 
wenn Sie im nochaufldsenden Grafik-Modus ar- 
beiten. Einfach hinten einstecken - einschalten - 
fertig! 



jetzt 79.- 




Alle aufgef iihrten Artikel werden selbstverstandlich mit ausf tihrlicher 
deutscher Anleitung geliefert. Die Programme laufen auch auf den 
Computern C-116 und PLUS/4; die 64K-RAM ist aus Platzgriinden aber 
nur im C-16 zu verwenden! Alle Preise verstehen sich als unverbindliche 
Preisempfehlung zzgl. 5,- DM Porto & Verpackung; der Versand er- 
folgt ausschlieBlich per Nachnahme. 



64K-RAM 

Durch den Einbau dieser Platine kdnnen Sie Ihren 
C-16 auf die maximale Speicherkapazitat von 64K 
aufrusten, d.h. "60671 BYTES FREE" in Basic. Der 
Einbau erfolgt in wenigen Minuten einfach durch 
Austausch eines BauteiTs. Essind KEINE LOTARBEI- 
TEN erforderlich! Urn eine haufig gestellte Frage 
vorab zu beantworten: auch mit diesem 64K ist 
der C-16 nicht kompatibel zum C-64! 

jetxt 139.- 
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DAS GROSSE C-16 BUCH 

Hier erfahren Sie alles, was Sie brauchen, um die Moglichkeiten 
Ihres C-16 voll auszunutzen. Samtliche wichtigen Bereiche, wie z.B. 
Grafik, Sound, Maschinensprache werden ausfuhrlich behandelt 
und mit vielen Beispielen erlautert. Dieses Buch ist fur jeden 
Commodore-16 Besitzer unentbehrlich. — ■ ^l_ ■ 

Emzelpreis: 




Original Commodore- 
Joystick im eleganten 
und handiichen De- 
sign fur viele Stunden 
SpielspaB; steigert die 
Freude bei praktisch 
alien Spielen enorm. 
Direkt anschluBfertig 
fiir Ihren C-16. 

Einzelpreis: 



PLUS-PAKET 

Die ideale Spielesammlung fur alle Einsteiger, 
bestehend aus 4 absoluten Top-Programmen 

GRANDMASTER, spielstarkes Schachprogramm mit viel Komfort 
TOM, faszinierendes Arcade-Adventure mit 178 (!) Bildern . 
GALAXY, schnelles und abwechslungsreiches Weltraumspiel 
GHOST TOWN, spannendes Grafik-Adventure fiir die ganze Familie 










Einzelpreis: 



Sie spawn 28.- 




4KINGSOFT 

F. Schafer • Schnackebusch 4 
5106Roetgen • Tel. 02408/5119 



Alle 3 Teile zusammen 

statt <$K- nur 




